Add ActiveX Tab to FeatureManager Design Tree Example (VBA)
This example shows how to add a tab to the FeatureManager design tree using
an on-disk bitmap file for the tab's icon.
'----------------------------------------------------------
' Preconditions:
' 1. In the IDE:
' a. Reference your ActiveX control file (click Tools >
' References > Browse > browse to the folder where the
' ActiveX control file resides and click the ActiveX
' control file > Open > OK).
' a. Insert the ActiveX component (click Insert > Components >
' ActiveX component's check box > OK).
' 2. Verify that the specified part document and bitmap exist.
' 3. Replace activex_control_component_declaration and
' activex_control_CLSID_or_ProgID with your ActiveX control's
' information.
'
' Postconditions:
' 1. Opens the part document and adds a new tab to the
' FeatureManager design tree.
' NOTE: To add a tab to the FeatureManager tree,
' you must set IModelViewManager::CreateFeatureMgrControl2's
' WhichPane parameter to swFeatMgrPane_e.swFeatMgrPaneBottom.
' 2. Activates the new tab.
'
' NOTE: Because the part document is used elsewhere,
' do not save changes.
'----------------------------------------------------------
Option Explicit
Sub main()
Const iconSmall As String = "C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\data\user macro icons\button.bmp"
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swModViewMgr As SldWorks.ModelViewManager
Dim swFeatMgrTabBtm As SldWorks.FeatMgrView
Dim ctrlBtm As activex_control_component_declaration
Dim fileName As String
Dim errors As Long
Dim warnings As Long
Dim activePane As Long
Set swApp = CreateObject("SldWorks.Application")
fileName = "c:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\samples\tutorial\fillets\knob.sldprt"
Set swModel = swApp.OpenDoc6(fileName, swDocPART, swOpenDocOptions_Silent, "", errors, warnings)
Set swModViewMgr = swModel.ModelViewManager
' Create and activate the new tab
Set swFeatMgrTabBtm = swModViewMgr.CreateFeatureMgrControl2(iconSmall, "activex_control_CLSID_or_ProgID", "", "Tab ToolTip", swFeatMgrPaneBottom)
Set ctrlBtm = swFeatMgrTabBtm.GetControl
activePane = swFeatMgrTabBtm.ActivateView
End Sub