Application.SetMenu Examples

OverviewExamples

Application.SetMenu (

table Menu )

Example 1

-- Create a table containing all menu information

tblMenu = {};

tblMenu[1] ={};

tblMenu[1].Text = "&New Menu";

tblMenu[1].ID = 100;

tblMenu[1].Checked = false;

tblMenu[1].Enabled = true;

tblMenu[1].SubMenu = {};

tblMenu[1].SubMenu[1] = {};

tblMenu[1].SubMenu[1].Text = "&SubItem 1";

tblMenu[1].SubMenu[1].ID = 101;

tblMenu[1].SubMenu[1].Checked = false;

tblMenu[1].SubMenu[1].Enabled = true;

tblMenu[1].SubMenu[2] = {};

tblMenu[1].SubMenu[2].Text = "S&ubItem 2";

tblMenu[1].SubMenu[2].ID = 102;

tblMenu[1].SubMenu[2].Checked = false;

tblMenu[1].SubMenu[2].Enabled = true;

-- Set the menu based on the info in the above table

Application.SetMenu(tblMenu);

Creates a sample menu at runtime right from script. Please note that the "Show menu bar" setting must be checked on Menu Bar dialog in order for this example to work.