第9章 菜单和工具栏设计

(2) 设置对象属性。 ① 将文本框Text1的MultiLine属性设为True，将 ScrollBars属性设为2。 ② 指向ImageList控件，单击右键，在快捷菜单中 选择“属性”，打开“属性页”对话框，选择“图像” 选项卡，单击“插入图片”按钮，选出需要的图像。 ③ 在窗体工具栏上单击右键，在 “属性页”对话框， 在“图像列表”选项中选取ImageList1，建立与图像列 表框的关联。选择“按钮”选项卡，单击其中的“插入 按钮”按钮，向工具栏中添加3个工具按钮，索引值分别 为1、2、3，关键字分别为B、I、U，对应图像的索引 值分别为1、2、3，将工具提示文本分别设为“粗体”、 “斜体”、“下划线” 。
返回目录
9.2 工具栏设计
9.2.1 手工方式设计工具栏 手工制作工具栏的一般步骤和注意事项： (1) 在窗体界面上，添加一个图片框，将该图片框作为工具按钮 的容器。 (2) 设置图片框的Align属性以便控制工具栏（图片框）在窗体 中的位置。当改变窗体的大小时，图片框（Align属性值非0）会自 动地改变大小以适应窗体的宽度或高度。 (3) 选定图片框，在图片框中添加需在工具栏中显示的控件。通 常使用的控件有：命令按钮、图形方式的单选按钮和复选框按钮、 下拉列表框等。 (4) 设置控件属性。通常在工具按钮上通过不同的图像来表示对 应的功能，还可以设置按钮的ToolTipText属性为工具按钮添加工 具提示。 (5) 编写代码。由于工具按钮通常用于提供对其他（菜单）命令 的快捷访问，所以一般都是在其Click事件代码中调用对应的菜单命 令。
9.1.2 下拉式菜单的程序设计
利用菜单编辑器可以在窗体中建立下拉式 菜单，设计步骤为： (1) 新建一个窗体，并设计用户界面。 (2) 利用菜单编辑器设计各菜单项。 (3) 利用代码编辑窗口编写每一菜单项的事 件过程。 (4) 运行调试各菜单命令。
1. 建立简单的下拉式菜单
在窗体上建立下拉式菜单。
3. 动态菜单的程序设计
设计菜单程序。
建立用户界面。
Private Sub Main_Click() If Text1.Text = “” Then Size(1).Enabled = False Size(2).Enabled = False Size(3).Enabled = False Else Size(1).Enabled = True Size(2).Enabled = True Size(3).Enabled = True End If End Sub
(3) 编写事件代码。
Private Sub Command1_Click(index As Integer) n = index Select Case n Case 0 Text1.FontSize = 10 Case 1 Text1.FontSize = 12 Case 2 Text1.FontSize = 14 End Select End Sub
Private Sub Size_Click(Index As Integer) Select Case Index Case 1 Size(3).Checked = False Size(2).Checked = False Size(1).Checked = True Text1.FontSize = 10 Case 2 Size(1).Visible = True Size(1).Checked = False Size(3).Checked = False Size(2).Checked = True Text1.FontSize = 12 If a = 1 Then Unload Size(4) a=0 End If
(2) 设置对象属性。
对 象 属 性 32 4 0 255 255 依次为：红、绿、蓝 利用滚动条控制色彩 属 性 值
9.1.3 弹出式菜单的程序设计
设计弹出式菜单的步骤可以分为两步： (1) 使用菜单编辑器建立菜单，此步骤与前 面介绍的建立下拉菜单的方法一样，只是必须把 主菜单的“可见”栏Visible属性设置为False， 其子菜单项的Visible属性不要设置为False。 (2) 利用窗体的PopupMenu方法显示弹出式 菜单。
2. 常用的下拉式菜单程序设计
利用下拉式菜单为标签中的文本内容设置不同的 字体和风格。
建立用户界面及设置对象属性。
Private Sub song_Click() Label1.FontName = "宋体" End Sub Private Sub li_Click() Label1.FontName = "隶书" End Sub Private Sub kai_Click() Label1.FontName = "楷体 _GB2312" End Sub Private Sub hei_Click() Label1.FontName = "黑体" End Sub
Private Sub HScroll1_Change() HScroll1.Max = 200 HScroll1.Min = 1 HScroll1.SmallChange = 1 HScroll1.LargeChange = 5 Text1.Text = HScroll1.Value End Sub
[〈窗体名〉.] PopupMenu〈菜单名〉[, Flags [,x [, y [, Boldcommand ]]]]
为文本框增加一个弹出式菜单，该菜单中包含3 个选项，分别是“红色”、“蓝色”和“绿色”， 单击相应的选项后可以改变文本框中文字的颜色。
(1) 建立用户界面。
添加一个文本框控件Text1。在“菜单编辑器”窗口中 添加一个标题为“颜色”、名为“Color”的主菜单。向其 中添加“红色”（Red）、“蓝色”（Blue）和“绿色” （Green）的3个菜单项。 将顶级菜单的Visible属性设为 False（将“可见”前面的“√”去掉，使其不可见），
Private Sub bld_Click() bld.Checked = Not bld.Checked Label1.FontBold = bld.Checked End Sub Private Sub Itl_Click() Itl.Checked = Not Itl.Checked Label1.FontItalic = Itl.Checked End Sub Private Sub Undrln_Click() Undrln.Checked = Not Undrln.Checked Label1.FontUnderline = Undrln.Checked End Sub
Case 3 Size(2).Checked = False Size(1).Checked = False Size(3).Checked = True Text1.FontSize = 14 Size(1).Visible = False If a = 0 Then Load Size(4) a = 1 Size(4).Visible = True Size(4).Caption = "16" Else Size(4).Checked = False End If Case 4 Size(2).Checked = False Size(3).Checked = False Size(4).Checked = True Text1.FontSize = 16 End Select End Sub
(2) 编写事件代码。
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu Color, 4 Or 2 End If End Sub Private Sub Red_Click() Text1.ForeColor = vbRed End Sub Private Sub Blue_Click() Text1.ForeColor = vbBlue End Sub Private Sub Green_Click() Text1.ForeColor = vbGreen End Sub
单元九 菜单和工具栏设计
单元九
1
2
菜单和工具栏设计
菜 单 设 计 工 具 栏 设 计 滚动条控件 ScrollBar
3
9.1 菜单设计
9.1.1 菜单的两种基本类型 1. 下拉式菜单
下拉式菜单是一种典型的窗口式菜单，一般通过单击窗 口菜单栏中的菜单标题的方式打开。
2. 弹出式菜单 弹出式菜单（也称右键菜单、快捷菜单）， 是当用户在一个对象上单击右键时显示出来的菜 单，可以在窗口的某个位置显示，因此，用户可 以利用弹出式菜单更方便快捷地操作。
2. 设计调色板
利用滚动条控制色彩，并且返回色彩的RGB值。
(1) 建立应用程序用户界面。 先增加一个框架Frame1，激活Frame1后，在其中增 加一个图片框Picture1，一个文本框Text1，一个水平 滚动条控件数组HScroll1(0)～HScroll1(2)和一个标签 控件数组Label1(0)～Label1(2)。
(3) 编写事件代码。
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 Text1.FontBold = True Case 2 Text1.FontItalic = True Case 3 Text1.FontUnderline = True End Select End Sub
9.2.2 使用Toolbar控件设计工具栏
利用Toolbar制作工具栏，单击工具栏中的“加 粗”、“斜体”、“下划线”按钮，就能执行相 应的操作，工具按钮带有对应的工具提示。
(1) 建立用户界面。 ① 添加Toolbar控件。选择“工程”菜单 →“部件”，打开“部件”对话框，选中 Microsoft Windows Common Controls 6.0， 单击“确定”按钮。 ② 双击工具箱中的Toolbar控件向窗体中添 加工具栏控件，双击其中的“ImageList”按钮 向窗体中添加图像列表控件。 ③ 向窗体中添加一个文本框控件Text1。
(1) 在VB中，菜单是一个控件。 (2) 菜单控件不在VB的工具箱中，需要在VB的“菜 单编辑器”中进行菜单的设计。 (3) 进入菜单编辑器可以通过下面4种方法：
单击“工具”菜单→“菜单编辑器”命令。 单击工具栏中的“菜单编辑器”按钮。 在窗体上单击右键，在快捷菜单中选择“菜单编辑器”。 按下快捷键Ctrl+E。
为文本框添加一个简单的工具栏。通过工具栏中 的按钮，百度文库变文本字体的大小。
(1) 建立用户界面。 在窗体中添加一个作为容器使用的图片框，在其中 添加由3个命令按钮组成的按钮组Command1(0)～ Command1(2)。再增加一个文本框控件Text1。 (2) 设置对象属性。 将图片框的Align属性设为1（图片框贴于窗体的顶 部）。按钮的Caption属性分别设为“10”、“12”和 “14”。文本框Text1的MultiLine属性设为“True”， 允许多行显示，将ScrollBars属性设为2（带垂直滚动 条）。
返回目录
9.3 滚动条控件ScrollBar
9.3.1 滚动条控件的类型
有水平和垂直两种，可以通过水平滚动条 （HScrollBars）和垂直滚动条（VScrollBars）工具建 立。
9.3.2 滚动条控件的程序设计
1. 简单的滚动条设计 在窗体上建立一个滚动条控件，当拖动滚动条时， 在文本框中显示滑块当前位置代表的值。 (1) 建立用户界面和设置对象属性。 (2) 编写事件代码。