Add and Remove Items to File Save As and Open Menus Example (VBA)

This example shows how to use these APIs in a Visual Basic DLL add-in:

• ISldWorks::SetAddinCallbackInfo2

• ISldWorks::AddFileSaveAsItem2

• ISldWorks::AddFileOpenItem3

• ISldWorks::RemoveFileSaveAsItem2

• ISldWorks::RemoveFileOpenItem2

' ------------------------------------------

Private Function SwAddin_ConnectToSW(ByVal ThisSW As Object, ByVal Cookie As Long) As Boolean

    Dim bRet As Boolean

    ' Store reference to SOLIDWORKS session

    Set iSldWorks = ThisSW

    ' Store cookie from SOLIDWORKS

    iCookie = Cookie

    'Inform SOLIDWORKS about the object that contains the callbacks

    bRet = iSldWorks.SetAddinCallbackInfo2(App.hInstance, Me, iCookie)

    bRet = iSldWorks.AddFileSaveAsItem2(iCookie, "XYZ_FileSave", "XYZ file (*.xyz)", "XYZ", swDocPART)

    bRet = iSldWorks.AddFileOpenItem3(iCookie, "XYZ_FileOpen", "XYZ file (*.xyz)", "XYZ", "", "")

    SwAddin_ConnectToSW = True

End Function

Private Function SwAddin_DisconnectFromSW() As Boolean

    Dim bRet            As Boolean

    bRet = iSldWorks.RemoveFileSaveAsItem2(iCookie, "XYZ_FileSave", "XYZ file (*.xyz)", "XYZ", swDocPART)

    bRet = iSldWorks.RemoveFileOpenItem2(iCookie, "XYZ_FileOpen", "XYZ file (*.xyz)", "XYZ")

    Set iSldWorks = Nothing

    SwAddin_DisconnectFromSW = True

End Function

Public Sub XYZ_FileSave(sFileName As String)

    ' S_OK          =   Saved successfully

    ' S_FALSE       =   Unsuccessful

    ' !(SUCCEEDED)  =   Insuccessful

    MsgBox "XYZ_FileSave = " & sFileName

End Sub

Public Sub XYZ_FileOpen(sFileName As String)

    ' S_OK          =   Loaded successfully

    ' S_FALSE       =   Unsuccessful

    ' !(SUCCEEDED)  =   Unsuccessful

    MsgBox "XYZ_FileOpen = " & sFileName

End Sub