Software Developer's Kit - ChemDraw

Send comments on this topic
Execute Method
See Also 

Description

Member of ChemDraw Control.MenuItem.

Executes this menu item.

Syntax

Visual Basic
Public Sub Execute() 

Remarks

Forces the execution of this menu item.

Example

Private Sub cmdApplication_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 = "menuBars " & ctlChemDraw.Application.MenuBars.Count
    Set  myMenuBar = ctlChemDraw.Application.MenuBars.Item(1)
    'Returns number of MENUS
    Text2.Text = "menus " & myMenuBar.Menus.Count
    Set myMenu = myMenuBar.Menus.Item(1) 
    'Returns number of MENU ITEMS 
    Text3.Text = "menuItems " & myMenu.MenuItems.Count
    Set myMenuItem = myMenu.MenuItems.Item(6)  
    ctlChemDraw.UpdateMenus
   'Returns menu item properties
    Text4.Text = myMenuItem.Application
    Text5.Text = myMenuItem.Caption
    Text6.Text = myMenuItem.Checked
    Text7.Text = myMenuItem.CommandId
    Text8.Text = myMenuItem.Enabled
    Text9.Text = myMenuItem.index 
   'excecutes the selected menu item, e.g. menu item 6
    myMenuItem.Execute
End Sub

See Also