Altova Authentic 2024 Browser Edition

AuthenticView.OnKeyboardEvent

Zur Startseite Zurück Nach oben Weiter

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

 

© 2018-2024 Altova GmbH