,单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,#,单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,第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=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,9.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),编写事件代码。,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,返回目录,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),编写事件代码。,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,9.2.2,使用,Toolbar,控件设计工具栏,利用,Toolbar,制作工具栏，单击工具栏中的,“,加粗,”,、,“,斜体,”,、,“,下划线,”,按钮，就能执行相应的操作，工具按钮带有对应的工具提示。,(1),建立用户界面。,添加,Toolbar,控件。选择,“,工程,”,菜单,“,部件,”,，打开,“,部件,”,对话框，选中,Microsoft Windows Common Controls 6.0,，单击,“,确定,”,按钮。,双击工具箱中的,Toolbar,控件向窗体中添加工具栏控件，双击其中的,“,ImageList,”,按钮向窗体中添加图像列表控件。,向窗体中添加一个文本框控件,Text1,。,(2),设置对象属性。,将文本框,Text1,的,MultiLine,属性设为,True,，将,ScrollBars,属性设为,2,。,指向,ImageList,控件，单击右键，在快捷菜单中选择,“,属性,”,，打开,“,属性页,”,对话框，选择,“,图像,”,选项卡，单击,“,插入图片,”,按钮，选出需要的图像。,在窗体工具栏上单击右键，在,“,属性页,”,对话框，在,“,图像列表,”,选项中选取,ImageList1,，建立与图像列表框的关联。选择,“,按钮,”,选项卡，单击其中的,“,插入按钮,”,按钮，向工具栏中添加,3,个工具按钮，索引值分别为,1,、,2,、,3,，关键字分别为,B,、,I,、,U,，对应图像的索引值分别为,1,、,2,、,3,，将工具提示文本分别设为,“,粗体,”,、,“,斜体,”,、,“,下划线,”,。,(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.3,滚动条控件,ScrollBar,9.3.1,滚动条控件的类型,有水平和垂直两种，可以通过水平滚动条（,HScrollBars,）和垂直滚动条（,VScrollBars,）工具建立。,9.3.2,滚动条控件的程序设计,1.,简单的滚动条设计,在窗体上建立一个滚动条控件，当拖动滚动条时，在文本框中显示滑块当前位置代表的值。,(1),建立用户界面和设置对象属性。,(2),编写事件代码。,Private Sub HScroll1_Change(),HScroll1.Max=200,HScroll1.Min=1,HScroll1.SmallChange=1,HScroll1.LargeChange=5,Text1.Text=HScroll1.Val