xml spy
Previous  Top  Next
IXMLSpyPlugIn.OnCommand


See also

Declaration: OnCommand(nID as long, pXMLSpy as IDispatch)

Description
The OnCommand() method of the interface implementation, is called each time a command added by the the IDE plug-in (menu item or toolbar button) is processed. nID stores the command ID defined by the ID element of the respective UIElement.

pXMLSpy holds a reference to the dispatch interface of the Application object of XMLSpy.
Example:
 

Public Sub IXMLSpyPlugIn_OnCommand(ByVal nID As LongByVal 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 NothingThen
                    objDoc.SetPathName objDlg.FileName
                    objDoc.Save
                    Set
 objDoc = Nothing
                End If

            End If

        End If

        
        Set
 objSpy = Nothing
    End If

End Sub


Previous  Top  Next

© 2002 Altova