Software Developer's Kit - ChemDraw

Send comments on this topic
MenuBar Object
See Also  Members 


Member of ChemDraw Control.

For a list of all members defined for this object, see MenuBar Members.

ChemDraw MenuBar Class represents a MenuBar object. 


Private Sub cmdCommand_click()
   'Declares variables 
    Dim myMenu As ChemDrawControl11Ctl.Menu
    Dim myMenus As ChemDrawControl11Ctl.Menus
    Dim myMenuBar As ChemDrawControl11Ctl.MenuBar
    Dim myMenuBars As ChemDrawControl11Ctl.MenuBars
    Dim myMenuItem As ChemDrawControl11Ctl.MenuItem
    Dim myMenuItems As ChemDrawControl11Ctl.MenuItems
   'Returns number of MENU BARS 
    Text1.Text = "Menu Bars: " & ctlChemDraw.Application.MenuBars.Count
    Set myMenuBar = ctlChemDraw.Application.MenuBars.Item(1)  
   'Returns menu bar properties 
    Text2.Text = myMenuBar.Application 
    Text3.Text = myMenuBar.Index
    Text4.Text = "Menus: " & myMenuBar.Menus.Count
End Sub

See Also