《Visual Basic程序设计与实训 教学课件 ppt 作者 苏玉雄 电子教案 第8章 》由会员分享，可在线阅读，更多相关《Visual Basic程序设计与实训 教学课件 ppt 作者 苏玉雄 电子教案 第8章 （37页珍藏版）》请在金锄头文库上搜索。
1、第 8 章 界面设计,本章学习目标,8.1 菜单,菜单提供了一种结构化的方式向使用应用程序的用户提示可用的命令。,8.1.1下拉式菜单设计,下拉式菜单是用户在任何时候都可以在顶端菜单条上选择后拉出的菜单。,8.1.1下拉式菜单设计,1、关于下拉式菜单的说明 1Caption：菜单项标题。图8-1中“打开”菜单项的Caption属性为“打开”。 2Name：菜单项名称。当通过代码处理菜单项时需要使用Name属性。 3热键。 图8-1中“打开”菜单项的热键为O。当文件菜单展开时，同时按下Alt和O就可以选择“打开”菜单命令。在菜单的Caption属性中在某个字母前加上“&”符号就可以将该字母变为热
2、键。 4ShortCut：快捷键。图8-1中“打开”菜单项的快捷键为Ctrl+O。不用打开“文件”菜单就可以通过Ctrl+O快捷键来选择“打开”菜单命令。 5通过将Caption属性设置为“-”（减号、连字符）可以将菜单项设置为分隔条。分隔条可以将菜单按功能进行分组。 6当某个菜单项的颜色变为灰色时表示该菜单项的功能被禁用。将菜单项的Enabled属性设置为False就可以禁用该菜单项。而要启用该菜单项仅需将该菜单项的Enabled属性设置为True。 7通过将菜单项的Visible属性设置为False可以隐藏该菜单项，而要重新显示该菜单项仅需将Visible属性重新设置为True。 8通过将
3、菜单项的Checked属性设置为True可以在菜单项前显示复先标志。取消复选标志仅需将Checked属性设置为False。,8.1.1下拉式菜单设计,2、“菜单编辑器”的使用,8.1.2 弹出式菜单设计,弹出式菜单则是在程序界面的一定区域内点按鼠标键后出现的菜单。,弹出式菜单的制作过程与下拉式菜单的制作相同。,要显示弹出式菜单需要使用VB提供的PopupMenu方法。该方法的格式为： 对象.PopupMenu 菜单名, Flag , X , Y , boldcommand 其中菜单名是必选项,其他参数都可选的。 可以使用下面这条语句在窗体Form1上显示菜单mnuFile： Form1.Pop
4、upMenu mnuFile,案例8-1,案例8-1：设计一程序,带一个颜色菜单,选择相应的子菜单项后就可以改变文本框中文字的颜色。,案例8-1,【案例分析】：通过ForeColor属性就可以改变文本框中文字的颜色。 【操作步骤】： 1、程序代码如下： Private Sub mnuBlue_Click() Text1.ForeColor = vbBlue End Sub Private Sub mnuExit_Click() End End Sub Private Sub mnuGreen_Click() Text1.ForeColor = vbGreen End Sub Private S
5、ub mnuRed_Click() Text1.ForeColor = vbRed End Sub,案例8-2,案例8-2：将案例8-1的程序添加弹出式菜单 “文本颜色”。,案例8-2,【案例分析】：通过调用PopupMenu方法可以实现弹出式菜单的功能。在调用前需要判断用户按下的鼠标按键类型。 【操作步骤】： 1、程序代码 Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If (Button = vbRightButton) Then Form1.PopupMen
6、u mnuTextColor End If End Sub MouseUp事件过程中Button参数包含了用户按下的鼠标按键的信息。通过将Button参数与VB6.0提供的vbRigthButton、vbMiddleButton和vbLeftButton 常数比较可以判断用户按下了哪一个鼠标按键。,课堂练习8-1,课堂练习5-1：创建一个应用程序，可以完成文本的复制、剪切和粘贴功能。 【案例分析】：通过调用Clipboard的SetText与GetText功能可以完成往剪贴板中写入或读取文本的操作。 【操作步骤】： 1、程序代码 Private Sub mnuCopy_Click() Clip
7、board.SetText Text1.SelText End Sub Private Sub mnuCut_Click() Clipboard.SetText Text1.SelText:Text1.SelText = “ End Sub Private Sub mnuPaste_Click() Text1.SelText = Clipboard.GetText End Sub,8.2 工具栏与状态栏,工具栏（Toolbar）与状态栏（StatusBar）是ActiveX控件，在使用前需要通过“工程”-“部件”菜单打开“部件”对话框（如图所示）。在对话框的“控件”选项卡中选择“MircoSo
8、ft Windows Common Controls 6.0”部件，单击确定后将这二个控件添加到工具箱中。,8.2.1 工具栏的设计,创建工具栏包括以下几个步骤： 1、添加ImageList控件来存放工具栏中要用到的图像。 2、添加Toolbar控件，并将Toolbar控件与ImageList进行关联。 3、设置Toolbar控件的属性，创建相关Button对象并设置其属性。 4、在ButtonClick事件中添加代码。,添加并设置ImageList控件的步骤如下： 1、添加ImageList控件至窗体上。 2、右击ImageList控件，在弹出式菜单上选择“属性”命令后将出现“属性页” 。
9、3、选择“图像”选项卡，单击“插入图片”按钮选择图像文件，同时修改该图像的索引值与关键字。,8.2.1 工具栏的设计,2使用Toolbar控件 1、关联Toolbar与ImageList控件 1、右击Toolbar控件，选择“属性”命令将出现“属性”页。 2、在“属性页”的“通用”选项卡的“图像列表”中，单击下箭头，选择ImageList控件的名称进行关联。 2、添加工具栏按钮 1、选择“按钮”选项卡，设置好按钮的各个属性后进行按钮的添加。,8.2.1 工具栏的设计,3编写ButtonClick事件代码 ButtonClick事件是当单击某个按钮时触发的，可以用按钮的Index属性或Key属性
10、标识被单击的按钮。通过使用Select Case结构来判断用户按下了哪个按钮。,Private Sub Toolbar1_ButtonClick(ByVal Button as MSComctlLib.Button) Select Case Button.Index Case 1 按钮一的处理代码 Case 2 按钮二的处理代码 ase 3 按钮三的处理代码 End Select End Sub,8.2.2状态栏的设计,创建状态栏包括以下几个步骤： 、添加Statusbar控件到窗体上。 、设置Statusbar控件的属性，创建相关Panel（面板）对象并设置其属性。 、在相关的事件处理过程代
11、码中对Statusbar控件的相关面板进行设置。,设置Statusbar控件属性 右击Statusbar控件，选择弹出式菜单中的“属性”命令。在出现的“属性页” 对话框中进行相应的设置。 通过代码修改Statusbar控件的面板内容,案例8-3,案例8-3：为案例8-2中的程序添加如图8-12所示的工具栏与状态栏并实现工具栏上各按钮的功能。 【案例分析】：只需在工具栏的ButtonClick事件过程中添加相应的改变颜色的代码。 【程序代码】 Private Sub mnuBlue_Click() Text1.ForeColor = vbBlue End Sub Private Sub mnuG
12、reen_Click() Text1.ForeColor = vbGreen End Sub Private Sub mnuRed_Click() Text1.ForeColor = vbRed End Sub Private Sub mnuExit_Click() End End Sub,案例8-3,【程序代码】 Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If (Button = vbRightButton) Then Form1.PopupMenu mnu
13、TextColor End If End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button) Select Case Button.Key Case “red“: Text1.ForeColor = vbRed Case “blue“ Text1.ForeColor = vbBlue Case “green“ Text1.ForeColor = vbGreen End Select End Sub,课堂练习8-2,课堂练习8-2：为课堂练习8-1中设计的程序添加相应的工具栏及状态栏。 【案例分析】：利用T
14、oolbar及Statusbar控件可以完成练习所要求的任务。 【程序代码】： Private Sub mnuCopy_Click() Clipboard.SetText Text1.SelText End Sub Private Sub mnuCut_Click() Clipboard.SetText Text1.SelText Text1.SelText = “ End Sub,课堂练习8-2,【代码分析】： Private Sub mnuPaste_Click() Text1.SelText = Clipboard.GetText End Sub Private Sub Toolbar1
15、_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case “copy“ mnuCopy_Click Case “cut“ mnuCut_Click Case “paste“ mnuPaste_Click End Select End Sub,8.3 对话框,通用对话框的基本属性如下： 1、Action属性 用来返回或设置通用对话框的类型。属性值见下表,8.3 对话框,Dialog Title属性 用来确定通用对话框的标题 CancelError属性 当该属性设置为“True”时,当用户单击对话框中的
16、 “取消”按钮后会出现错误警告。当该属性设置为“False”时，当用户单击对话框中的“取消”按钮后不会出现错误警告，这是对话框的默认设置。,8.3 对话框,通用对话框的基本方法如下表所示：,.3.1 “打开”与”另存为”对话框,通过“打开”与“另存为”对话框用户可以获取感兴趣文件的文件名（包含路径名）。,“打开”对话框的主要属性如下所示： FileName属性：当用户在对话框中选择了所需文件后，该文件的文件名及相关路径名将以字符串形式赋值给FileName属性。 FileTitle属性：与FileName属性相似，但只包含文件名而不包含路径名。 Filter属性：确定文件列表框中所显示文件的类型。格式为：文件说明|文件类型。示例：只显示Word文档与文本文件则Filter属性则应设置为：Word文档|*.doc|文本文件|*.txt Filter属性：用来表示“文件类型”列表框中选定的文件类型的序号。 InitDir属性：用来指定“打开”对话框中的初始目录，默认为当前目录。,.3. “颜色”对话框,“颜色”对
