AuthenticView.OnKeyboardEvent
Siehe auch
Event: OnKeyboardEvent (eKeyEvent als SPYKeyEvent, nKeyCode als Long, nVirtualKeyStatus als Long) als Boolean
XMLSpy Skripting-Umgebung - VBScript:
Function On_AuthenticKeyboardEvent(eKeyEvent, nKeyCode, nVirtualKeyStatus)
' On_AuthenticKeyboardEvent = True ' to cancel bubbling of event
End Function
XMLSpy Skripting-Umgebung - JScript:
function On_AuthenticKeyboardEvent(eKeyEvent, nKeyCode, nVirtualKeyStatus)
{
// return true; /* to cancel bubbling of event */
}
XMLSpy IDE Plugin:
IXMLSpyPlugIn.OnEvent (30, ...) // nEventId = 30
Beschreibung
Dieses Event wird für WM_KEYDOWN, WM_KEYUP und WM_CHAR Windows-Meldungen ausgelöst.
Der eigentliche Meldungstyp steht im eKeyEvent Parameter zur Verfügung. Der Status virtueller Tasten ist im Parameter nVirtualKeyStatus kombiniert. Verwenden Sie die im Enumerations-Datentyp SPYVirtualKeyMask definierten Bit-Masken, um eine Überprüfung der unterschiedlichen Tasten und ihrer Kombinationen durchzuführen.
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 OnKeyboard
' event of object objView
Private Function objView_OnKeyboardEvent(ByVal i_keyEvent As Long, ByVal io_pnKeyCode As Long, ByVal i_nVirtualKeyStatus As Long) As Boolean
If ((i_keyEvent = XMLSpyLib.spyKeyUp) And ((i_nVirtualKeyStatus And XMLSpyLib.spyCtrlKeyMask) <> 0)) Then
MsgBox ("Ctrl " & io_pnKeyCode & " pressed")
objView_OnKeyboardEvent = True
Else
objView_OnKeyboardEvent = 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