Example: Using Events

www.altova.com Print this Topic Previous Page Up One Level Next page

Home >  Programmers' Reference > Application API > Overview > Programming Languages > VBScript >

Example: Using Events

Authentic View supports event connection on a per-object basis. Implementation of this feature is based on COM connection points and is available in environments that support this mechanism.


The following example is a VBScript code example that shows how to use events from within a VBScript project.


' --------------------------------------------------------------------------
' VBScript example that demonstrates how to use events.
' --------------------------------------------------------------------------
' Event handler for OnSelectionChanged event of AuthenticView
Function AuthenticViewEvent_OnSelectionChanged(objAuthenticRange)
  If objAuthenticRange.FirstTextPosition <> objAuthenticRange.LastTextPosition Then
      Call WScript.Echo("Selection: " & objAuthenticRange.Text & vbNewLine & vbNewLine & "Close this dialog.")
      Call WScript.Echo("Cursor position: " & objAuthenticRange.FirstTextPosition & vbNewLine & vbNewLine & "Close this dialog.")
  End If
End Function
' Start/access XMLSpy and connect to its automation interface.
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objSpy = GetObject("", "XMLSpy.Application")
' Make the UI of XMLSpy visible.
objSpy.Visible = True
' Find out user's personal folder and locate one of the installed XMLSpy examples.
personalFolder = WshShell.ExpandEnvironmentStrings("%UserProfile%")
majorVersionYear = objSpy.MajorVersion + 1998
xmlspyExamplesFolder = personalFolder & "\Documents\Altova\XMLSpy" & majorVersionYear  & "\Examples\"
docPath = xmlspyExamplesFolder & "ExpReport.xml"
' Create object to access windows file system and test if the our document exists.
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(docPath) Then
  ' open the document
  Call objSpy.Documents.OpenFile(docPath, False)
  set objDoc = objSpy.ActiveDocument
  ' switch active document to authentic view
   objDoc.SwitchViewMode 4 ' spyViewAuthentic
  ' Register for connection point events on the authentic view of the active document.
  ' Any function with a valid event name prefixed with "AuthenticViewEvent_" will
  ' be called when the corresponding event gets triggered on the specified object.
  set objView = objDoc.AuthenticView
  Call WScript.ConnectObject(objView, "AuthenticViewEvent_")
  Call WScript.Echo("Events are connected." & vbNewLine & vbNewLine & "Now set or move the cursor in XMLSpy." & vbNewLine & vbNewLine & "Close this dialog to shut down XMLSpy.")
  ' To disconnect from the events delete the reference to the object.
  set objView = Nothing
  Call WScript.Echo("The file " & docPath & " does not exist.")
End If
' shut down XMLSpy when this script ends
objSpy.Visible = False

© 2019 Altova GmbH