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