OnSelectionChanged
Evento: OnSelectionChanged (objNewSelection as AuthenticRange)
Entorno de scripting de XMLSpy: VBScript:
Function On_AuthenticSelectionChanged (objNewSelection)
End Function
Entorno de scripting de XMLSpy: JScript:
function On_AuthenticSelectionChanged (objNewSelection)
{
}
Complemento de XMLSpy para entornos IDE:
IXMLSpyPlugIn.OnEvent (23, ...) // nEventId = 23
Descripción
Este evento se desencadena cada vez que cambia la selección en la interfaz del usuario.
Ejemplos
' ----------------------------------------------------------------------------
' fragmento de código VB: conectarse a eventos a nivel de objeto
' ----------------------------------------------------------------------------
' acceder a XMLSpy (sin buscar errores)
Dim objSpy As XMLSpyLib.Application
Set objSpy = GetObject("", "XMLSpy.Application")
' esta es la rutina de devolución de llamada
' conectada al evento OnSelectionChanged del objeto objView
Private Sub objView_OnSelectionChanged (ByVal i_ipNewRange As XMLSpyLib.IAuthenticRange)
MsgBox ("new selection: " & i_ipNewRange.Text)
End Sub
' use la palabra clave de VBA WithEvents para conectarse al evento a nivel de objeto
Dim WithEvents objView As XMLSpyLib.AuthenticView
Set objView = objSpy.ActiveDocument.AuthenticView
' continuar con más código ...
' y servir el bucle de mensajes