IXMLSpyPlugIn.OnCommand
Declaración: OnCommand(nID as long, pXMLSpy as IDispatch)
Descripción
Al método OnCommand() de la implementación de la interfaz se le llama cada vez que se procesa un comando añadido por el complemento, ya sea un comando de menú o un botón de barra de herramientas. nID almacena el ID del comando definido por el elemento ID del correspondiente elemento UIElement.
pXMLSpy almacena una referencia a la interfaz de envío del objeto Application de Authentic Desktop.
Ejemplo
Public Sub IXMLSpyPlugIn_OnCommand(ByVal nID As Long, ByVal pXMLSpy As Object)
If (Not (pXMLSpy Is Nothing)) Then
Dim objDlg
Dim objDoc As XMLSpyLib.Document
Dim objSpy As XMLSpyLib.Application
Set objSpy = pXMLSpy
If nID = 3 Or nID = 5 Then
Set objDlg = CreateObject("MSComDlg.CommonDialog")
objDlg.Filter = "XML Files (*.xml)|*.xml|All Files (*.*)|*.*||"
objDlg.FilterIndex = 1
objDlg.ShowOpen
If Len(objDlg.FileName) > 0 Then
Set objDoc = objSpy.Documents.OpenFile(objDlg.FileName, False)
Set objDoc = Nothing
End If
End If
If nID = 4 Or nID = 6 Then
Set objDlg = CreateObject("MSComDlg.CommonDialog")
objDlg.Filter = "All Files (*.*)|*.*||"
objDlg.Flags = cdlOFNPathMustExist
objDlg.ShowSave
If Len(objDlg.FileName) > 0 Then
Set objDoc = objSpy.ActiveDocument
If Not (objDoc Is Nothing) Then
objDoc.SetPathName objDlg.FileName
objDoc.Save
Set objDoc = Nothing
End If
End If
End If
Set objSpy = Nothing
End If
End Sub