第9章 菜单和工具栏设计电子课件 中职 高教版 Visual Basic程序设计（第4版）

第9章 菜单和工具栏设计电子课件 中职 高教版 Visual Basic程序设计（第4版） 单元九 菜单和工具栏设计 单元九 菜单和工具栏设计 菜 单 设 计 1 工 具 栏 设 计 2 滚动条控件 ScrollBar 3 9.1 菜单设计 9.1.1 菜单的两种基本类型 1. 下拉式菜单 下拉式菜单是一种典型的窗口式菜单，一般通过单击窗口菜单栏中的菜单标题的方式打开。 2. 弹出式菜单 弹出式菜单（也称右键菜单、快捷菜单），是当用户在一个对象上单击右键时显示出来的菜单，可以在窗口的某个位置显示，因此，用户可以利用弹出式菜单更方便快捷地操作。 9.1.2 下拉式菜单的程序设计 利用菜单编辑器可以在窗体中建立下拉式菜单，设计步骤为： (1) 新建一个窗体，并设计用户界面。 (2) 利用菜单编辑器设计各菜单项。 (3) 利用代码编辑窗口编写每一菜单项的事件过程。 (4) 运行调试各菜单命令。 1. 建立简单的下拉式菜单 在窗体上建立下拉式菜单。 (1) 在VB中，菜单是一个控件。 (2) 菜单控件不在VB的工具箱中，需要在VB的“菜单编辑器”中进行菜单的设计。 (3) 进入菜单编辑器可以通过下面4种方法： 单击“工具”菜单→“菜单编辑器”命令。 单击工具栏中的“菜单编辑器”按钮。 在窗体上单击右键，在快捷菜单中选择“菜单编辑器”。 按下快捷键Ctrl+E。 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 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 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 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 Case 3 Size(2).Checked = False Size(1).Checked =