IXMLSpyPlugIn.OnCommand

 

www.altova.com Imprimir este apartado Página anterior Subir un nivel Página siguiente

Inicio >  Referencia del programador > Complementos de XMLSpy para entornos IDE > IXMLSpyPlugIn >

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 XMLSpy.

 

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

 


© 2019 Altova GmbH