AuthenticView.OnMouseEvent

www.altova.com Dieses Kapitel drucken Vorherige Seite Eine Ebene nach oben Nächste Seite

Startseite >  Benutzerreferenz > Objekte > AuthenticView > Events >

AuthenticView.OnMouseEvent

Siehe auch

 

Event: OnMouseEvent (nXPos als Long, nYPos als Long, eMouseEvent als SPYMouseEvent, objRange als AuthenticRange) als Boolean

 

XMLSpy Skripting-Umgebung - VBScript:

Function On_AuthenticMouseEvent(nXPos, nYPos, eMouseEvent, objRange)

 ' On_AuthenticMouseEvent = True  ' to cancel bubbling of event

End Function

 

XMLSpy Skripting-Umgebung - JScript:

function On_AuthenticMouseEvent(nXPos, nYPos, eMouseEvent, objRange)

{

 // return true;  /* to cancel bubbling of event */

}

 

XMLSpy IDE Plugin:

IXMLSpyPlugIn.OnEvent (31, ...)        // nEventId = 31

 

Beschreibung

Dieses Event wird für jede Mausbewegung und jede Mausschaltflächen-Windows-Meldung ausgelöst.

 

Der eigentliche Meldungstyp und der Status der Maustaste stehen im eMouseEvent Parameter zur Verfügung. Verwenden Sie die im Enumerations-Datentyp SPYMouseEvent definierten Bit-Masken, um eine Überprüfung auf die unterschiedlichen Meldungen, Tastenstatus und ihre Kombinationen durchzuführen.

 

Der Parameter objRange definiert den Teil des Dokuments, der sich an der aktuellen Mauscursorposition befindet. Das Bereichsobjekt wählt immer einen vollständigen Tag des Dokuments aus. (Dies kann sich in zukünftigen Versionen ändern, wenn ein genauerer Positionierungsmechanismus zur Verfügung steht). Wenn sich an der aktuellen Position kein auswählbarer Teil des Dokuments befindet, ist das Bereichsobjekt Null.

 

ANMERKUNG: Die folgenden Events aus der Skripting-Umgebung und dem IDE Plug-in von XMLSpy werden weiterhin unterstützt, werden aber bei diesem Event nicht mehr unterstützt:

On_AuthenticKeyUp()                IXMLSpyPlugIn.OnEvent (13, ...)        // nEventId = 13

On_AuthenticKeyDown()                IXMLSpyPlugIn.OnEvent (12, ...)        // nEventId = 12

On_AuthenticKeyPressed()        IXMLSpyPlugIn.OnEvent (14, ...)        // nEventId = 14

 

 

Beispiele

' ----------------------------------------------------------------------------

' VB code snippet - connecting to object level events

' ----------------------------------------------------------------------------

' access XMLSpy (without checking for any errors)

Dim objSpy As XMLSpyLib.Application

Set objSpy = GetObject("", "XMLSpy.Application")

 

' this is the event callback routine connected to the OnMouseEvent

' event of object objView. If you click with the left mouse button

' while pressing a control key, the current selection will be set

' to the tag below the current mouse cursor position

Private Function objView_OnMouseEvent(ByVal i_nXPos As Long, ByVal i_nYPos As Long, ByVal i_eMouseEvent As XMLSpyLib.SPYMouseEvent, ByVal i_pRange As XMLSpyLib.IAuthenticRange) As Boolean

  If (i_eMouseEvent = (XMLSpyLib.spyLeftButtonDownMask Or XMLSpyLib.spyCtrlKeyDownMask)) Then

      On Error Resume Next

       i_pRange.Select

       objView_OnMouseEvent = True

  Else

       objView_OnMouseEvent = False

  End If

End Function

 

' use VBA keyword WithEvents to connect to object-level event

Dim WithEvents objView As XMLSpyLib.AuthenticView

Set objView = objSpy.ActiveDocument.AuthenticView

 

' continue here with something useful ...

' and serve the windows message loop

 


© 2019 Altova GmbH