《Visual Basic程序设计（第4版）》第9章 菜单和工具栏设计

单元九菜单和工具栏设计

单元九菜单和工具栏设计菜单设计1工具栏设计2滚动条控件

ScrollBar39.1菜单设计9.1.1菜单的两种基本类型1.下拉式菜单

下拉式菜单是一种典型的窗口式菜单，一般通过单击窗口菜单栏中的菜单标题的方式打开。2.弹出式菜单弹出式菜单（也称右键菜单、快捷菜单），是当用户在一个对象上单击右键时显示出来的菜单，可以在窗口的某个位置显示，因此，用户可以利用弹出式菜单更方便快捷地操作。

9.1.2下拉式菜单的程序设计利用菜单编辑器可以在窗体中建立下拉式菜单，设计步骤为：

(1)新建一个窗体，并设计用户界面。

(2)利用菜单编辑器设计各菜单项。

(3)利用代码编辑窗口编写每一菜单项的事件过程。

(4)运行调试各菜单命令。1.建立简单的下拉式菜单在窗体上建立下拉式菜单。

(1)在VB中，菜单是一个控件。

(2)菜单控件不在VB的工具箱中，需要在VB的“菜单编辑器”中进行菜单的设计。

(3)进入菜单编辑器可以通过下面4种方法：单击“工具”菜单→“菜单编辑器”命令。单击工具栏中的“菜单编辑器”按钮。在窗体上单击右键，在快捷菜单中选择“菜单编辑器”。按下快捷键Ctrl+E。2.常用的下拉式菜单程序设计利用下拉式菜单为标签中的文本内容设置不同的字体和风格。建立用户界面及设置对象属性。

PrivateSubsong_Click()Label1.FontName="宋体"EndSubPrivateSubli_Click()Label1.FontName="隶书"EndSubPrivateSubkai_Click()Label1.FontName="楷体_GB2312"EndSubPrivateSubhei_Click()Label1.FontName="黑体"EndSubPrivateSubbld_Click()bld.Checked=Notbld.CheckedLabel1.FontBold=bld.CheckedEndSubPrivateSubItl_Click()Itl.Checked=NotItl.CheckedLabel1.FontItalic=Itl.CheckedEndSubPrivateSubUndrln_Click()Undrln.Checked=NotUndrln.CheckedLabel1.FontUnderline=Undrln.CheckedEndSub3.动态菜单的程序设计设计菜单程序。

建立用户界面。PrivateSubMain_Click()IfText1.Text=“”Then

Size(1).Enabled=False

Size(2).Enabled=FalseSize(3).Enabled=FalseElseSize(1).Enabled=TrueSize(2).Enabled=TrueSize(3).Enabled=TrueEndIfEndSubPrivateSubSize_Click(IndexAsInteger)SelectCaseIndexCase1

Size(3).Checked=FalseSize(2).Checked=FalseSize(1).Checked=TrueText1.FontSize=10Case2

Size(1).Visible=True

Size(1).Checked=FalseSize(3).Checked=FalseSize(2).Checked=TrueText1.FontSize=12Ifa=1ThenUnloadSize(4)a=0EndIf

Case3

Size(2).Checked=FalseSize(1).Checked=FalseSize(3).Checked=TrueText1.FontSize=14Size(1).Visible=FalseIfa=0ThenLoadSize(4)a=1Size(4).Visible=TrueSize(4).Caption="16"ElseSize(4).Checked=FalseEndIfCase4

Size(2).Checked=FalseSize(3).Checked=FalseSize(4).Checked=TrueText1.FontSize=16EndSelectEndSub9.1.3弹出式菜单的程序设计设计弹出式菜单的步骤可以分为两步：

(1)使用菜单编辑器建立菜单，此步骤与前面介绍的建立下拉菜单的方法一样，只是必须把主菜单的“可见”栏Visible属性设置为False，其子菜单项的Visible属性不要设置为False。

(2)利用窗体的PopupMenu方法显示弹出式菜单。[〈窗体名〉.]PopupMenu〈菜单名〉[,Flags[,x[,y[,Boldcommand]]]]为文本框增加一个弹出式菜单，该菜单中包含3个选项，分别是“红色”、“蓝色”和“绿色”，单击相应的选项后可以改变文本框中文字的颜色。

(1)建立用户界面。

添加一个文本框控件Text1。在“菜单编辑器”窗口中添加一个标题为“颜色”、名为“Color”的主菜单。向其中添加“红色”（Red）、“蓝色”（Blue）和“绿色”（Green）的3个菜单项。将顶级菜单的Visible属性设为False（将“可见”前面的“√”去掉，使其不可见），

(2)编写事件代码。PrivateSubText1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2Then

PopupMenuColor,4Or2

EndIfEndSubPrivateSubRed_Click()Text1.ForeColor=vbRedEndSubPrivateSubBlue_Click()Text1.ForeColor=vbBlueEndSubPrivateSubGreen_Click()Text1.ForeColor=vbGreenEndSub返回目录9.2工具栏设计9.2.1手工方式设计工具栏

手工制作工具栏的一般步骤和注意事项：

(1)在窗体界面上，添加一个图片框，将该图片框作为工具按钮的容器。

(2)设置图片框的Align属性以便控制工具栏（图片框）在窗体中的位置。当改变窗体的大小时，图片框（Align属性值非0）会自动地改变大小以适应窗体的宽度或高度。

(3)选定图片框，在图片框中添加需在工具栏中显示的控件。通常使用的控件有：命令按钮、图形方式的单选按钮和复选框按钮、下拉列表框等。

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

(5)编写代码。由于工具按钮通常用于提供对其他（菜单）命令的快捷访问，所以一般都是在其Click事件代码中调用对应的菜单命令。为文本框添加一个简单的工具栏。通过工具栏中的按钮，改变文本字体的大小。

(1)建立用户界面。在窗体中添加一个作为容器使用的图片框，在其中添加由3个命令按钮组成的按钮组Command1(0)～Command1(2)。再增加一个文本框控件Text1。

(2)设置对象属性。将图片框的Align属性设为1（图片框贴于窗体的顶部）。按钮的Caption属性分别设为“10”、“12”和“14”。文本框Text1的MultiLine属性设为“True”，允许多行显示，将ScrollBars属性设为2（带垂直滚动条）。

(3)编写事件代码。PrivateSubCommand1_Click(indexAsInteger)n=indexSelectCasenCase0Text1.FontSize=10Case1Text1.FontSize=12Case2Text1.FontSize=14EndSelectEndSub9.2.2使用Toolbar控件设计工具栏利用Toolbar制作工具栏，单击工具栏中的“加粗”、“斜体”、“下划线”按钮，就能执行相应的操作，工具按钮带有对应的工具提示。

(1)建立用户界面。①添加Toolbar控件。选择“工程”菜单→“部件”，打开“部件”对话框，选中MicrosoftWindowsCommonControls6.0，单击“确定”按钮。②双击工具箱中的Toolbar控件向窗体中添加工具栏控件，双击其中的“ImageList”按钮向窗体中添加图像列表控件。③向窗体中添加一个文本框控件Text1。

(2)设置对象属性。①将文本框Text1的MultiLine属性设为True，将ScrollBars属性设为2。②指向ImageList控件，单击右键，在快捷菜单中选择“属性”，打开“属性页”对话框，选择“图像”选项卡，单击“插入图片”按钮，选出需要的图像。③在窗体工具栏上单击右键，在“属性页”对话框，在“图像列表”选项中选取ImageList1，建立与图像列表框的关联。选择“按钮”选项卡，单击其中的“插入按钮”按钮，向工具栏中添加3个工具按钮，索引值分别为1、2、3，关键字分别为B、I、U，对应图像的索引值分别为1、2、3，将工具提示文本分别设为“粗体”、“斜体”、“下划线”。

(3)编写事件代码。PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.IndexCase1Text1.FontBold=TrueCase2Text1.FontItalic=TrueCase3Text1.FontUnderline=TrueEndSelectEndSub返回目录9.3滚动条控件ScrollBar9.3.1滚动条控件的类型

有水平和垂直两种，可以通过水平滚动条（HScrollBars）和垂直滚动条（VScrollBars）工具建立。9.3.2滚动条控件的程序设计1.简单的滚动条设计在窗体上建立一个滚动条控件，当拖动滚动条时，在文本框中显示滑块当前位置代表的值。(1)建立用户界面和设置对象属性。(2)编写事件代码。PrivateSubHScroll1_Change()HScroll1.Max=200HScroll1.Min=1HScroll1.SmallChange=1HScroll1.LargeChange=5Text1.Text=HScroll1.ValueEndSub2.设计调色板利用滚动条控制色彩，并且返回色彩的RGB值。

(1)建立应用程序用户界面。先增加一个框架Frame1，激活Frame1后，在其中增加一个图片框Picture1，一个文本框Text1，一个水平滚动条控件数组HScroll1(0)～HScroll1(2)和一个标签控件数组Label1(0)～Label1(2)。

(2)设置对象属性。对象属性属性值Hscroll1(0)～Hscroll1(2)LargeChange32SmallChange4Max0Min255Value255Label1(0)～Label1(2)Caption依次为：红、绿、蓝Frame1Caption利用滚动条控制色彩Text1TextColor=RGB(255,255,255)

(3)编写事件代码。PrivateSubHScroll1_Change(IndexAsInteger)Picture1.BackColor=RGB(HScroll1(0),HScroll1(1),HScroll1(2))

r=LTrim(Str(HScroll1(0)))g=LTrim(Str(HScroll1(1)))

b=LTrim(Str(HScroll1(2)))Text1.Text="Color=RGB("&r&","&g&","&b&")"EndSubPrivateSubText1_GotFocus()Text1.SelStart=10EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Thena=InStr(10,Text1.Text,",")b=InStr(a+1,Text1.Text,",")c=InStr(b+1,Text1.Text,")")HScroll1(0)=Val(Mid(Text1.Text,11,a–10))HScroll1(1)=Val(Mid(Text1.Text,a+1,b–a))HScroll1(2)=Val(Mid(Text1.Text,b+1,c–b–1))EndIfEnd