Add ActiveX Tab to FeatureManager Design Tree (VB.NET)

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 Microsoft Calendar Control's ActiveX
'       control file (click Project > Add Reference >
'       Browse tab).
'    b. Browse to:
'       c:\Program Files\Microsoft Office\Office12\MSCAL.OCX
'       and click OK.
' 2. Specified part document and bitmap exist.
'
' Postconditions:
' 1. A new tab is added to the FeatureManager design tree
'    with a Microsoft Calendar Control background of red.
'
'    NOTE: To add a tab to the FeatureManager tree,
'    you must set IModelViewManager::CreateFeatureMgrControl2's
'    WhichPane parameter to swFeatMgrPane_e.swFeatMgrPaneBottom.
'
' 2. The new tab is active.

' NOTE: Because the part document is used elsewhere,
' do not save any changes when closing it.
'----------------------------------------------------------
Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports MSACAL


Partial Class SolidWorksMacro

    Public Sub Main()

        Const iconSmall As String = "C:\Program Files\SolidWorks Corp\SolidWorks\data\user macro icons\button.bmp"

        Dim swModel As ModelDoc2
        Dim swModViewMgr As ModelViewManager
        Dim swFeatMgrTabBtm As FeatMgrView
        Dim ctrlBtm As MSACAL.Calendar
        Dim fileName As String
        Dim errors As Integer
        Dim warnings As Integer
        Dim activePane As Integer

        fileName = "c:\Program Files\SolidWorks Corp\SolidWorks\samples\tutorial\fillets\knob.sldprt"
        swModel = swApp.OpenDoc6(fileName, swDocumentTypes_e.swDocPART, swOpenDocOptions_e.swOpenDocOptions_Silent, "", errors, warnings)

        swModViewMgr = swModel.ModelViewManager

        ' Create new tab
        swFeatMgrTabBtm = swModViewMgr.CreateFeatureMgrControl2(iconSmall, "MSCAL.Calendar", "", "Tab ToolTip", swFeatMgrPane_e.swFeatMgrPaneBottom)
        ctrlBtm = swFeatMgrTabBtm.GetControl
        ctrlBtm.BackColor = 255 ' red

        activePane = swFeatMgrTabBtm.ActivateView

    End Sub

    ''' <summary>
    ''' The SldWorks swApp variable is pre-assigned for you.
    ''' </summary>
    Public swApp As SldWorks


End Class