vb菜单与工具栏设计-课件

vb菜单与工具栏设计主要内容:1.菜单设计2.弹出式菜单设计3.工具栏设计4.状态栏设计vb菜单与工具栏设计ppt课件2021/3/261vb菜单与工具栏设计主要内容:1.菜单设计2.弹出式菜单设计vb菜单与工具栏设计

在Windows中，菜单可以分为两种基本类型：下拉式菜单和弹出式菜单。下拉式菜单一般通过单击菜单栏中菜单名称的方式打开，而弹出式菜单一般通过在某一区域右击的方式打开。如图4-1所示，分别是VB“工程”菜单的下拉式菜单和窗体的弹出式菜单。

vb菜单与工具栏设计ppt课件2021/3/262vb菜单与工具栏设计在Windows中，菜单可以vb菜单与工具栏设计

在VisualBasic中，菜单也是一个图形对象，即控件。与其他控件一样，菜单也需要定义它的外观和属性。在设计菜单和运行菜单时可以设置菜单的Caption属性、Enable属性、Visible属性、Checked属性及其他属性。每个菜单项都可以接收Click事件，当用鼠标或键盘选中该菜单项时，将调用该事件。vb菜单与工具栏设计ppt课件2021/3/263vb菜单与工具栏设计在VisualBasicvb菜单与工具栏设计VisualBasic中，用菜单编辑器设计菜单和菜单项，或在已有的菜单上添加新菜单项、编辑已有的菜单选项以及修改和删除已有的菜单和菜单项。进入菜单编辑器的方式有如下几种：

l

选择“工具”→“菜单编辑器”命令；

l

单击常用工具栏中的“菜单编辑器”按钮；

l

按Ctrl+E组合键；

l

在要建立菜单的窗体（此窗体为活动窗体）上右击，在弹出的快捷菜单中选择

“菜单编辑器”命令。弹出“菜单编辑器”对话框，如图4-2所示。

vb菜单与工具栏设计ppt课件2021/3/264vb菜单与工具栏设计VisualBasic中，用图4-2“菜单编辑器”对话框vb菜单与工具栏设计ppt课件2021/3/265图4-2“菜单编辑器”对话框vb菜单与工具栏设计ppt“菜单编辑器”窗口分为3部分：数据区、编辑区和菜单项显示区。现分别介绍各部分的功能。1．数据区数据区是菜单控件的属性区，用于输入和修改菜单项、设置菜单项的属性。由10个部分组成，各部分的作用如下。

（1）标题：此文本框用于输入所建立菜单的标题及菜单中每个菜单项的标题（相当于菜单控件的Caption属性），也是显示在菜单中的字符，可以在标题中设置热键。如果要在菜单中添加一条分隔线，就在此输入一个减号（-）。

vb菜单与工具栏设计ppt课件2021/3/266“菜单编辑器”窗口分为3部分：数据区、编辑区和菜单项显示

（2）名称：此文本框用于输入所建立的菜单和各菜单项的控制名（即菜单控件的Name属性），此项不在菜单中显示出来。VisualBasic中的菜单和每个菜单项都是控件，所以都要有一个控制名（其Name属性）。

（3）索引：此文本框用来为用户建立的控件数组设立下标，相当于控件数组的Index属性。

（4）快捷键：此下拉列表框用来设置与某菜单项等价的快捷键。在程序运行时，按下快捷键会立刻运行一个菜单项。快捷键的赋值包括功能键与控制键的组合，它们出现在菜单中相应菜单项的右边。

vb菜单与工具栏设计ppt课件2021/3/267（2）名称：此文本框用于输入所建立的菜单和各菜单项的控制名

（5）帮助上下文：此文本框用于输入在帮助文件（用HelpFile属性设置）中查找相应的帮助主题的数值。

（6）协调位置：此下拉列表框用于确定相应的菜单或菜单项的显示位置。该下拉列表框中有4个选项，其作用如下：

l

0-None——菜单项不显示；

l

1-Left——菜单项靠左显示；

l

2-Middle——菜单项居中显示；

l

3-Right——菜单项靠右显示。vb菜单与工具栏设计ppt课件2021/3/268（5）帮助上下文：此文本框用于输入在帮助文件（用HelpF

（7）复选：此复选框用于设置该菜单项标记（即菜单项的Checked属性），此选项通常是动态地加上或取消的，一般应当在程序代码中，根据执行情况设置。当“复选”属性设置为True时，可在相应的菜单项旁加上标记√，表明该菜单项当前处于活动状态。

（8）有效：该复选框用于设置菜单项的操作状态（即Enable属性）。默认情况下，该属性为True，表示该选项为有效，可以对用户事件做出响应。若设置该选项为False，则相应的菜单项不响应用户事件。vb菜单与工具栏设计ppt课件2021/3/269（7）复选：此复选框用于设置该菜单项标记（即菜单项的Che

（9）可见：该复选框用于确定相应的菜单项是否可见（即Visible属性）。若菜单项是可以执行的，则其可见属性为True，否则相应的菜单项不能执行，即其可见属性为False。此时可以把它的“可见”属性设置为True，那么该菜单项将重新出现在菜单中。

（10）显示窗口列表：该复选框被选中（即框内为√）时，将显示当前打开的一系列子窗口。该选项用于多文档应用程序。vb菜单与工具栏设计ppt课件2021/3/2610（9）可见：该复选框用于确定相应的菜单项是否可见（即Vis2．编辑区编辑区有7个按钮，用于对输入的菜单项进行简单编辑。菜单在数据区输入，在菜单项显示区显示。这7个按钮的作用如下:

（1）左、右箭头：用来产生和取消内缩符号。单击一次右箭头可以产生一个内缩符号（4个点“....”），其作用是使当前菜单项的层次下降一层；单击一次左箭头，可以删除一个内缩符号，其作用是使当前菜单项的层次上升一层。vb菜单与工具栏设计ppt课件2021/3/26112．编辑区（1）左、右箭头：用来产生和取消内缩符号。单击一

（2）上、下箭头：用来在菜单项显示区内移动菜单项的位置。把条形光标移动到某个菜单项上，单击上箭头将使该菜单项上移，单击下箭头将使该菜单项下移。

（3）下一个：新建一个菜单项（与按【Enter】键作用相同）。

（4）插入：在当前菜单项之前插入一个新的菜单项。

（5）删除：删除当前菜单项。vb菜单与工具栏设计ppt课件2021/3/2612（2）上、下箭头：用来在菜单项显示区内移动菜单项的位置。把3．菜单项显示区菜单项显示区在菜单设计窗口的下面，输入的菜单项在此区域显示，不同菜单项的层次通过内缩符号来表示。条形光标所在的菜单项为“当前菜单项”。

vb菜单与工具栏设计ppt课件2021/3/26133．菜单项显示区vb菜单与工具栏设计ppt课件2021/3vb菜单与工具栏设计【例4-1】设计一个具有输入、输出和显示功能的菜单，该菜单可以把输入的一串字符显示出来。分析：根据题意，可以分为两个主菜单项，分别为“输入信息”和“显示信息”，它们各包括两个子菜单项。

l

“输入信息”包括“输入”和“退出”。

l

“显示信息”包括“显示”和“清除”。建立菜单的具体操作步骤如下：

vb菜单与工具栏设计ppt课件2021/3/2614vb菜单与工具栏设计【例4-1】设计一个具有输入、输出和显示（1）建立控件本例中需要输入和输出数据，因此需要建立一个文本框用以输入数据，建立一个标签用以输出数据，另外建立两个标签作为提示，各控件的属性设置如表4-1所示，窗体界面如图4-3所示。此外，还要设置标签output的背景色及Label1和Label2的显示方式，如图4-4所示。

vb菜单与工具栏设计ppt课件2021/3/2615（1）建立控件vb菜单与工具栏设计ppt课件2021/3/图4-3菜单控件设计

vb菜单与工具栏设计ppt课件2021/3/2616图4-3菜单控件设计vb菜单与工具栏设计ppt课件2

图4-4菜单项设计

vb菜单与工具栏设计ppt课件2021/3/2617图4-4菜单项设计vb菜单与工具栏设计ppt课件2

（2）设计菜单

下面利用菜单编辑器来设计各个菜单项，在设计菜单控件时应提供3种属性：标题、名称和内缩符号，一个内缩符号表示一层子菜单，没有内缩符号表示主菜单项。本例中有两个主菜单项，每个主菜单项有两个子菜单。其属性设置如表4-2所示。具体操作步骤如下：

①选择“工具”→“菜单编辑器”命令，弹出“菜单编辑器”对话框。②在“标题”文本框中输入“输入信息”（主菜单1），在菜单项显示区中出现同样的标题名称。vb菜单与工具栏设计ppt课件2021/3/2618（2）设计菜单①选择“工具”→“菜单编辑器”命③按【Tab】键（或用鼠标）把输入光标移到“名称”文本框。④在“名称”文本框中输入“Input”，此时菜单项显示区中没有变化。⑤将此菜单项的Enable（有效）和Visible（可见）属性都设置为True（本例中所有菜单项的此二属性皆如此）。⑥单击编辑区中的“下一个”按钮，菜单项显示区中的条形光标下移，同时数据区的“标题”文本框和“名称”文本框被清空，光标回到“标题”文本框。⑦在“标题”文本框中输入“输入”，该信息同时在菜单项显示区中显示出来。vb菜单与工具栏设计ppt课件2021/3/2619③按【Tab】键（或用鼠标）把输入光标移到“名称”文本⑨单击编辑区的右箭头，菜单显示区中的“输入”右移，同时其左侧出现一个内缩符号（….），表明“输入”是“输入信息”的下一级菜单。⑩单击“快捷键”下拉列表框右端的下拉按钮，选择【Ctrl+I】作为“输入”菜单项的快捷键，此时，在该菜单项右侧出现Ctrl+I。单击编辑区中的“下一个”按钮，菜单项显示区的条形光标下移，左端自动出现内缩符号“….”。在“标题”文本框内输入“退出”，然后在“名称”文本框内输入“Quit”作为菜单项的名称。

单击“快捷键”下拉列表框右端的下拉按钮，从中选出【Ctrl+Q】组合键作为“退出”菜单项的快捷键。

vb菜单与工具栏设计ppt课件2021/3/2620⑨单击编辑区的右箭头，菜单显示区中的“输入”右移，同

建立主菜单项“显示信息”及其两个子菜单项的操作与上面所述的各步骤类似，不再重复。设计完成后的窗口如图4-4所示。此时，单击右上角的“确定”按钮，菜单的建立工作全部结束。设计完成后，窗体的顶行显示主菜单项，单击某个主菜单项，即可显示下拉菜单，如图4-5所示。

vb菜单与工具栏设计ppt课件2021/3/2621建立主菜单项“显示信息”及其两个子菜单项的操作与上面

（3）为事件过程编写代码如前所述，每个菜单项（包括主菜单项和子菜单项）都可以接收Click事件。每个子菜单项都对应一个Click事件过程。即程序运行后，只要单击某个子菜单项，就可以执行事件过程所定义的操作。

每个菜单项对应一个控件。菜单设计完成后，窗体上显示出如图4-5所示的菜单项，此时只要单击某个子菜单项，即可编写该菜单项的过程。例如，完成菜单设计后，单击“输入信息”菜单项，显示“输入”和“退出”子菜单项，如果单击“输入”子菜单项，则进入程序代码窗口，并显示：

vb菜单与工具栏设计ppt课件2021/3/2622（3）为事件过程编写代码每个菜单项对应一个控件。菜PrivateSubIput_Click()输入菜单代码

Text1.Text=""EndSubPrivateSubdisp_Click()显示菜单代码

output.Caption=Text1.TextEndSubvb菜单与工具栏设计ppt课件2021/3/2623PrivateSubIput_Click()输入菜PrivateSubclear_Click()清除菜单代码

Text1.Text=""output.Caption=""EndSubvb菜单与工具栏设计ppt课件2021/3/2624PrivateSubclear_Click()清除菜单vb菜单与工具栏设计

在VisualBasic中，菜单也是图形对象，即控件，所以可以运用数组的概念。菜单控件数组的作用主要有以下两方面：（1）用于动态地增加和删除菜单项；（2）简化了编程过程，用一段代码处理多个菜单项。【例4-2】设计一个简易的文本编辑器，具有新建、编辑和保存一般文本文件的功能，如图4-7所示。vb菜单与工具栏设计ppt课件2021/3/2625vb菜单与工具栏设计在Visual图4-7简易文本编辑器

vb菜单与工具栏设计ppt课件2021/3/2626图4-7简易文本编辑器vb菜单与工具栏设计ppt课件建立此菜单的具体操作步骤如下：（1）建立菜单控件由于本菜单中有文本的输入和显示操作、文件的操作（如“打开”、“保存”等），因此需要有文本框和对话框，还应设置文本的多行属性和滚动条，如图4-8所示。

（2）设计菜单此文本编辑器的每一菜单的下拉菜单中的菜单项是通过菜单控件数组完成的，只需指定其Index属性值即可。打开菜单编辑器，按表4-3所示输入每一个菜单项的各个属性。所建立的菜单如图4-9所示。vb菜单与工具栏设计ppt课件2021/3/2627建立此菜单的具体操作步骤如下：（2）设计菜单vb菜图4-8建立菜单控件vb菜单与工具栏设计ppt课件2021/3/2628图4-8建立菜单控件vb菜单与工具栏设计ppt课件2图4-9用菜单控件数组建立菜单

vb菜单与工具栏设计ppt课件2021/3/2629图4-9用菜单控件数组建立菜单vb菜单与工具栏设计p

（3）编写事件过程代码菜单建立好以后，还需要为每一个事件过程编写相应的代码。下面是每一个菜单项的代码。“文件”菜单的各个菜单项对应的事件代码如下：PrivateSub(IndexAsInteger)n=IndexSelectCasenCase0

'新建

Text1.Text=""Form1.Caption="未命名"vb菜单与工具栏设计ppt课件2021/3/2630（3）编写事件过程代码“文件”菜单的各个菜单项对应

Case1 ‘打开子菜单

CommonDialog1.ShowOpen

'显示“打开”对话框

fname=CommonDialog1.Iffname<>""ThenText1.Text=""OpenfnameForInputAs#1b=""DoUntilEOF(1)LineInput#1,nextlineb=b&nextline&Chr(13)&Chr(10)LoopClose#1Text1.Text=bEndIfForm1.Caption=fnamevb菜单与工具栏设计ppt课件2021/3/2631Case1

Case2

‘保存子菜单

IfForm1.Caption="未命名"OrForm1.Caption=""ThenCommonDialog1.ShowSave '显示“另存为”对话框

fname=CommonDialog1.Elsefname=Form1.CaptionEndIfIffname<>""ThenOpenfnameForOutputAs#1Print#1,Text1.TextClose#1EndIfvb菜单与工具栏设计ppt课件2021/3/2632Case2

‘保存子

Case3

‘另存为子菜单

CommonDialog1.ShowSave'显示“另存为”对话框

fname=CommonDialog1.Iffname<>""ThenOpenfnameForOutputAs#1Print#1,Text1.TextClose#1EndIfCase4

‘关闭子菜单

Text1.Text=""EndEndSelectText1.SetFocusEndSubvb菜单与工具栏设计ppt课件2021/3/2633Case3

‘另存为子菜单“编辑”菜单的各个菜单项对应的事件代码如下：PrivateSubEdi_Click(IndexAsInteger)i=IndexSelectCaseiCase0

'剪切

Clipboard.SetTextText1.SelTextText1.SelText=""Case1

'复制

Clipboard.SetTextText1.SelTextCase2

'粘贴

Text1.SelText=Clipboard.GetText()Case3

'清除

Text1.SelText=""EndSelectEndSubvb菜单与工具栏设计ppt课件2021/3/2634“编辑”菜单的各个菜单项对应的事件代码如下：vb菜单与工具栏vb菜单与工具栏设计

虽然下拉式菜单能够根据程序的运行情况动态地调整其可见性、有效性，也可以动态地增减菜单项，但其对用户的当前操作跟踪不够。而弹出式菜单能以灵活的方式为用户提供更方便的操作。弹出式菜单是独立于窗体菜单栏而显示在窗体内的浮动菜单。弹出式菜单在窗体内的位置取决于单击鼠标键（通常单击右键）时指针的位置，弹出式菜单也称为“上下文菜单”或“快捷菜单”。vb菜单与工具栏设计ppt课件2021/3/2635vb菜单与工具栏设计虽然下拉式菜单能够根据程建立弹出式菜单的具体操作步骤如下：（1）先用菜单编辑器建立菜单。此步骤与下拉式菜单建立方法相同，区别在于必须把主菜单项的“可见（Visible）”属性设置为False。（2）用PopupMenu方法弹出显示。PopupMenu方法用来显示弹出式菜单，其格式如下：[<窗体名>.]PopupMenu<菜单名>[,Flags[,X[,Y[,BoldCommand]]]]vb菜单与工具栏设计ppt课件2021/3/2636建立弹出式菜单的具体操作步骤如下：vb菜单与工具栏设计pp说明：①PopupMenu方法有6个参数，只有<菜单名>是必选的，其余都是可选的。省略<窗体名>时，在当前窗体内打开弹出式菜单，如果需要在非当前窗体中打开弹出式菜单时，必须指定窗体名。②<菜单名>是在菜单编辑器中定义的主菜单项名。③Flags参数是一个数值或符号常量，用来指定弹出式菜单的位置及行为，其取值分为两组，如表4-4和表4-5所示，一组用于指定菜单位置，另一组用于定义特殊的菜单行为。这两组参数可以单独使用，也可以联合使用。当联合使用时，每组中取一个常数，两个常数相加；若每组中取一个符号常量，则此两个常量用or相连。vb菜单与工具栏设计ppt课件2021/3/2637说明：vb菜单与工具栏设计ppt课件2021/3/2637④X、Y分别用来指定弹出式菜单在窗体上的显示位置，X为横坐标，Y为纵坐标，一般与Flags参数配合使用。二者省略时，弹出式菜单在鼠标光标的当前位置显示。如果这几个参数都省略，则当右击弹出菜单时，鼠标光标所在位置为弹出式菜单左上角的坐标。系统默认窗体左上角为坐标原点；如果省略Flags参数，不省略X、Y参数，则X、Y为弹出式菜单左上角的坐标；如果同时使用这几个参数，则弹出式菜单的位置分为以下几种情况。Flags=0

'X、Y为弹出式菜单左上角的坐标Flags=4

'X、Y为弹出式菜单顶边中间的坐标Flags=8

'X、Y为弹出式菜单右上角的坐标vb菜单与工具栏设计ppt课件2021/3/2638④X、Y分别用来指定弹出式菜单在窗体上的显示⑤要弹出菜单，通常的做法是把PopupMenu方法放在ＭouseDown事件中，该事件响应所有的鼠标单击操作。一般情况下右击显示弹出式菜单，这可以用Button参数来实现。对于两个键的鼠标来说，左键的Button参数值为1，右键的Button参数值为2。所以可以用下面的语句实现在右击时响应MouseDown事件，显示弹出式菜单。IfButton=2ThenPopupMenu菜单名vb菜单与工具栏设计ppt课件2021/3/2639⑤要弹出菜单，通常的做法是把PopupMe【例4-3】在例4-1中实现弹出式菜单，在文本显示区域右击时可以设置字体格式。其具体操作步骤如下：

（1）打开在例4-1中建立的窗体，再打开菜单编辑器，设置各个菜单项的属性，其属性如表4-6所示，用菜单编辑器设计的结果如图4-10所示。vb菜单与工具栏设计ppt课件2021/3/2640【例4-3】在例4-1中实现弹出式菜单，在文本显示区域右击时图4-10建立弹出式菜单

vb菜单与工具栏设计ppt课件2021/3/2641图4-10建立弹出式菜单vb菜单与工具栏设计ppt课（2）编辑标签的MouseDown事件过程。PrivateSuboutput_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,-YAsSingle)IfButton=2ThenPopupMenupopformatEndIfEndSub

此过程中的条件语句用来判断所按下的是否是鼠标右键，如果是，则用PopupMenu方法弹出菜单。运行程序，然后在标签output内右击，将弹出一个菜单，如图4-11所示。vb菜单与工具栏设计ppt课件2021/3/2642（2）编辑标签的MouseDown事件过程。vb菜单与工具栏图4-11显示弹出式菜单

vb菜单与工具栏设计ppt课件2021/3/2643图4-11显示弹出式菜单vb菜单与工具栏设计ppt课

（3）为每个子菜单项编写事件过程代码。在编写下拉式菜单过程代码时，通常是在窗体中单击主菜单项，显示子菜单，然后双击某个子菜单项，进入代码窗口，即可编写该菜单项的事件过程代码。而弹出式菜单的主菜单项是不可见的（其Visible属性为False），不能在窗体顶部显示，所以不能通过双击子菜单项的方式进入代码窗口，必须先进入代码窗口（选择“视图”→“代码”命令，或按【F7】键，或双击窗体），然后单击“对象”下拉列表框右端的下拉按钮，显示各个子菜单项，再单击某个子菜单项，将显示该子菜单项的事件过程代码框架，然后可在该框架内编写代码。vb菜单与工具栏设计ppt课件2021/3/2644（3）为每个子菜单项编写事件过程代码。vb菜单与工各子菜单项的事件过程代码如下：PrivateSubpopBold_Click()粗体菜单

output.FontBold=TrueEndSubPrivateSubpopItalic_Click()斜体菜单

output.FontItalic=TrueEndSubPrivateSubpopUndrli_Click()下划线菜单

output.FontUnderline=TrueEndSubvb菜单与工具栏设计ppt课件2021/3/2645各子菜单项的事件过程代码如下：vb菜单与工具栏设计ppt课PrivateSubfont20pt_Click()

output.FontSize=20EndSubPrivateSubfontLs_Click()output.FontName="隶书"EndSubPrivateSubQit_Click()EndEndSub

运行上面的程序后，用弹出式菜单设置标签内数据的属性，如图4-12所示。vb菜单与工具栏设计ppt课件2021/3/2646PrivateSubfont20pt_Click()

图4-12弹出式菜单程序运行结果

vb菜单与工具栏设计ppt课件2021/3/2647图4-12弹出式菜单程序运行结果vb菜单与工具栏设计vb菜单与工具栏设计

工具栏（也称为发条或者控制栏）已经成为许多基于Windows应用程序的标准功能。工具栏提供了对于应用程序中最常用的菜单命令的快速访问。制作工具栏有两种方法：一是手工制作，即利用图形框和命令按钮，比较烦琐；另一种方法通过组合使用ToolBar、ImageList控件，使得工具栏制作与菜单制作一样简单易学。vb菜单与工具栏设计ppt课件2021/3/2648vb菜单与工具栏设计工具栏（也称为发条或者控

用手工方式制作工具栏的具体操作步骤如下：（1）在窗体中添加一个图片框（作为工具按钮的容器），通过设置图片框的Align属性来控制工具栏（图片框）在窗体中的位置。当改变窗体的大小时，Align属性值非0的图片框会自动改变大小以适应窗体的宽度或高度。（2）选定图片框，在图片框中添加任何想在工具栏中显示的控件，通常使用的控件有命令按钮、图形方式的选项按钮、复选框按钮和下拉列表框等。vb菜单与工具栏设计ppt课件2021/3/2649用手工方式制作工具栏的具体操作步骤如下：vb菜单

（3）设置控件的属性。通常在工具按钮上通过不同的图像来表示对应的功能，还可以设置按钮的ToolTipText属性为工具按钮添加工具提示。

图4-13带工具栏的简易文本编辑器（4）编写代码。由于工具按钮通常用于提供对其他（菜单）命令迅速快捷地访问，所以一般都是在其Click事件代码中调用对应的菜单命令。vb菜单与工具栏设计ppt课件2021/3/2650（3）设置控件的属性。通常在工具按钮上通过不同的图像【例4-4】为例4-2中的简易文本编辑器增加一个自定义的工具栏，如图4-13所示。在例4-2的基础上作如下修改。

（1）修改应用程序用户界面。在窗体上增加一个图片框Picture1，然后在图片框中增加一个命令按钮数组Command1(0)～Command1(2)和复选框数组Check1(0)～Check1(2)。

（2）设置新增对象属性，如表4-7所示。（3）修改及编写程序代码。vb菜单与工具栏设计ppt课件2021/3/2651【例4-4】为例4-2中的简易文本编辑器增加一个自定义的工具修改窗体的事件代码如下：PrivateSubForm_Resize()WithText1Left=0Top=Picture1.HeightHeight=Form1.ScaleHeight-Picture1.HeightWidth=Form1.ScaleWidthEndWithEndSubvb菜单与工具栏设计ppt课件2021/3/2652修改窗体的事件代码如下：vb菜单与工具栏设计ppt课件20编写命令按钮数组Command1()的Click事件代码如下：PrivateSubCommand1_Click(indexAsInteger)(index)EndSub编写复选框数组Check1()的事件代码如下：PrivateSubCheck1_Click(indexAsInteger)Edi_Click(index)EndSubvb菜单与工具栏设计ppt课件2021/3/2653编写命令按钮数组Command1()的Click事件代码如下vb菜单与工具栏设计

使用ToolBar控件和ImageList控件来创建工具栏非常容易且很方便。在使用这些控件前必须打开“部件”对话框，选择MicrosoftWindowsCommonControls6.0选项，将控件添加到工具中，如图4-14所示。vb菜单与工具栏设计ppt课件2021/3/2654vb菜单与工具栏设计使用ToolBar控件和图4-14添加控件到工具箱

vb菜单与工具栏设计ppt课件2021/3/2655图4-14添加控件到工具箱vb菜单与工具栏设计ppt1．ToolBar控件控件的插入：在工具箱中选择ToolBar控件，然后在窗体中画出控件。控件属性的设置：（1）通过设置ToolBar的Align属性可以控制工具栏在窗体中的位置。当改变窗体的大小时，Align属性值非0的ToolBar控件会自动地改变大小以适应窗体的宽度或高度。（2）右击窗体上的ToolBar控件，在弹出的快捷菜单中选择“属性（Properties）”命令或者选中窗体上的ToolBar控件后在属性窗口单击“自定义（Custom）”下拉列表框右侧的下拉按钮，都可以打开ToolBar的“属性”对话框，如图4-15所示。vb菜单与工具栏设计ppt课件2021/3/26561．ToolBar控件vb菜单与工具栏设计ppt课件202图4-15“属性页”对话框

vb菜单与工具栏设计ppt课件2021/3/2657图4-15“属性页”对话框vb菜单与工具栏设计ppt“通用”选项卡中的“图像列表”属性用来与ImageList控件建立关联（见图4-16），“按钮”选项卡用来在ToolBar控件中添加按钮（见图4-17）。图4-16与ImageList控件建立关联

vb菜单与工具栏设计ppt课件2021/3/2658“通用”选项卡中的“图像列表”属性用来与Im图4-17在ToolBar中添加按钮

vb菜单与工具栏设计ppt课件2021/3/2659图4-17在ToolBar中添加按钮vb菜单与工具栏设“按钮”选项卡的各项功能如下。插入删除按钮：在按钮集合中添加或删除按钮元素索引和关键字：工具栏中的每个按钮都有唯一的标识，即索引和关键字。索引是整型，关键字是字符串型，访问按钮时可以引用二者之一。标题和描述：标题是显示在按钮上的文字，描述是按钮的说明信息。值：决定按钮的状态，0-tbrUnpressed为弹起状态，1-tbrPressed为按下状态。样式：决定按钮的行为特点，并且将影响按钮的功能，如表4-8所示。宽度：当Style属性值为4时，可设置按钮的宽度。图像：按钮上显示的图片在ImageList控件中的编号工具提示文本：程序运行时，当鼠标指向按钮时显示的说明性文字。vb菜单与工具栏设计ppt课件2021/3/2660“按钮”选项卡的各项功能如下。vb菜单与工2．ImageList控件工具栏（ToolBar）本身没有Picture属性，不能直接添加按钮上显示的图片。VisualBasic专门提供了图像列表控件ImageList，此控件不单独使用，专门为其他控件提供图像库，是一个图像容器控件。工具栏按钮的图像就是通过ToolBar控件从ImageList的图像库中获得的。控件的插入：在ToolBar控件所在的窗体中添加ImageList控件及其图片，然后建立ToolBar和ImageList控件之间的关联，最后从ImageList控件的图片库中选择需要的图像加载到工具栏按钮上。

vb菜单与工具栏设计ppt课件2021/3/26612．ImageList控件vb菜单与工具栏设计ppt课件23．创建工具栏的步骤（1）有窗体中插入工具栏控件（如ToolBar1）和一个图像列表控件（如Imagelist1），并设置工具栏控件的Align属性。（2）在Imagelist控件中添加所需的图像。（3）在ToolBar控件中创建按钮（Button）对象。（4）在工具栏（如ToolBar1）的ButtonClick事件中用SelectCase语句对各按钮进行相应的编程。vb菜单与工具栏设计ppt课件2021/3/26623．创建工具栏的步骤vb菜单与工具栏设计ppt课件2021【例4-5】使用工具栏控件重新设计例4-4中的简易文本编辑器，如图4-18所示。图4-18利用工具栏控件设计的带工具栏的简易文本编辑器vb菜单与工具栏设计ppt课件2021/3/2663【例4-5】使用工具栏控件重新设计例4-4中的简易文本编辑器

在例4-2的基础上进行操作。（1）修改应用程序用户界面。将窗体上的图片框及其中的命令按钮及复选框删除，再添加一个工具栏控件ToolBar1和一个图像列表控件ImageList1。设置ToolBar1的Align属性为1-cdlAligntop，如图4-19所示。（2）通过“属性”对话框设置工具栏控件与图像列表控件的属性。先选中图像列表控件ImageList1并右击，在弹出的快捷菜单中选择“属性”命令即可打开“属性页”对话框，切换到“图像”选项卡，单击“插入图片”按钮，并依次从common\graphic\bitmaps\tlbr_w95目录中选取图片文件New.bmp、Open.bmp、Save.bmp、Cut.bmp、Copy.bmp、Paste.bmp，如图4-20所示，单击“确定”按钮关闭“属性页”对话框。vb菜单与工具栏设计ppt课件2021/3/2664在例4-2的基础上进行操作。vb菜单与工具栏设图4-19添加工具栏控件vb菜单与工具栏设计ppt课件2021/3/2665图4-19添加工具栏控件vb菜单与工具栏设计ppt课图4-20向图像列表控件ImageList1中添加图像vb菜单与工具栏设计ppt课件2021/3/2666图4-20向图像列表控件ImageList1中添加图像

（3）选中工具栏控件ToolBar1，打开“属性页”对话框。切换到“通用”选项卡，将“图像列表”属性改为ImageList1，建立与图像列表框的关联。切换到“按钮”选项卡，依次插入按钮，如表4-9所示。单击“确定”按钮，关闭“属性页”对话框。添加了工具栏的窗体如图4-21所示。vb菜单与工具栏设计ppt课件2021/3/2667（3）选中工具栏控件ToolBar1，打开“属性页图4-21向工具栏中添加按钮vb菜单与工具栏设计ppt课件2021/3/2668图4-21向工具栏中添加按钮vb菜单与工具栏设计pp（4）修改及编写程序代码。修改窗体的事件代码如下：PrivateSubForm_Resize()WithText1Left=0Top=Toolbar1.HeightHeight=Form1.ScaleHeight-Toolbar1.HeightWidth=Form1.ScaleWidthEndWithEndSubvb菜单与工具栏设计ppt课件2021/3/2669（4）修改及编写程序代码。vb菜单与工具栏设计ppt课件2编写工具栏按钮的事件代码如下：PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)n=Button.indexSelectCasenCase2,3,4(n-2)Case6,7,8Edi_Click(n-6)EndSelectEndSubvb菜单与工具栏设计ppt课件2021/3/2670编写工具栏按钮的事件代码如下：vb菜单与工具栏设计ppt课vb菜单与工具栏设计VisualBasic6.0提供了功能强大的ActiveX控件，其中CoolBar、ToolBar控件可以用来制作Windows