Load and Unload Add-in Example (VBA)
This example shows how to prompt the user to load or unload an add-in.
'---------------------------------------------
'
' Preconditions: C:\samples\VB_COM\Sample.dll must exist.
'
' Postconditions: Add-in is loaded if user clicks Yes;
add-in is unloaded if user
' clicks
No.
'
'----------------------------------------------
Option Explicit
' SldWorks::LoadAddIn
' 0
Success.
Add-in load was successful.
' 1
Add-in
not loaded. However, this was not an error condition.
' -1
Add-in
not loaded. Unknown error occurred.
' 2
Add-in
not loaded. Add-in is already loaded
' SldWorks::UnloadAddIn
' 0
Normal
return. Add-in unloading was successful.
' -1
Add-in
could not be unloaded due to some error condition.
Sub main()
'
Path to an existing add-in
Const
sAddinName As
String = "C:\samples\VB_COM\Sample.dll"
Dim
swApp As
SldWorks.SldWorks
Dim
nResponse As
Integer
Dim
nStatus As
Long
Dim
bRet As
Boolean
Set
swApp = CreateObject("SldWorks.Application")
nResponse
= MsgBox("Load add-in?", vbYesNo)
If
nResponse = vbYes Then
Debug.Print
"Loading: " + sAddinName
nStatus
= swApp.LoadAddIn(sAddinName)
Else
Debug.Print
"Unloading: " + sAddinName
nStatus
= swApp.UnloadAddIn(sAddinName)
End
If
Debug.Print
" Status
= " & nStatus
End Sub
'---------------------------------------------