AuthenticView.OnSelectionChanged
Event: OnSelectionChanged (objNewSelection als AuthenticRange)
XMLSpy Skripting-Umgebung - VBScript:
Function On_AuthenticSelectionChanged (objNewSelection)
End Function
XMLSpy Skripting-Umgebung - JScript:
function On_AuthenticSelectionChanged (objNewSelection)
{
}
XMLSpy IDE Plugin:
IXMLSpyPlugIn.OnEvent (23, ...) // nEventId = 23
Beschreibung
Dieses Event wird ausgelöst, wenn die sich die Auswahl auf der Benutzeroberfläche ändert.
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 OnSelectionChanged
' event of object objView
Private Sub objView_OnSelectionChanged (ByVal i_ipNewRange As XMLSpyLib.IAuthenticRange)
MsgBox ("new selection: " & i_ipNewRange.Text)
End Sub
' 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