《VisualBasic 程序设计教程 教学课件 ppt 作者 刘莲英 第9章 界面设计》由会员分享，可在线阅读，更多相关《VisualBasic 程序设计教程 教学课件 ppt 作者 刘莲英 第9章 界面设计（132页珍藏版）》请在金锄头文库上搜索。
1、1/132,第 9 章,界 面 设 计,本章主要内容 9.1 常用标准控件 9.2 对话框设计 9.3 菜单设计 9.4 工具栏和状态栏 9.5 鼠标和键盘事件 9.6 应用举例,2/132,9.1.1 控件的分类、命名和控件值 1控件的分类 标准控件 ActiveX控件 可插入对象,9.1 常用标准控件,3/132,控件的分类、命名和控件值（续）, 标准控件 在VB工具箱中列出的20个控件。 ActiveX控件 是VB工具箱的扩充部分。 例如：CommonDialog公共对话框控件 可插入对象 VB可以直接利用用户机器中安装的软件所提供的对象，如Excel中的工作表，Word文档，Bmp图像
2、等。在工程中加载这些对象后，可以像使用控件一样使用它们。,4/132,2有关控件的命名和控件值 控件的命名（Name属性值） 使用系统默认的名称，程序的可读性比较差。 一个控件的命名采取如下的方式： 控件前缀 + 控件代表的意义或作用 例如：cmdOk, txtDisply,（用于表示控件的类型）,控件的分类、命名和控件值（续）,5/132, 常用控件的控件值 Visual Basic规定了每个控件有一个默认属性，称为控件值 控件值是一个控件最重要或最常用的属性。在设置或使用默认属性的属性值时，可以不必写出属性名。 例如： Label1.Caption= “欢迎使用Visual Basic“
3、可以改为： Label1“欢迎使用Visual Basic“,控件的分类、命名和控件值（续）,使用控件值可以减少代码，但会降低程序的可读性。因此，建议仍使用“控件.属性”格式。,6/132,9.1.2 单选按钮、复选框和框架,1、单选按钮控件与复选框控件,单选按钮（选择按钮），实现 “单项选择”的功能。单击单选按钮控件后，该控件将显示“”，此时其它单选按钮将显示“”。 复选框（检查框、选择框），可以从选项组中选择或清除任意项 。,单选按钮,复选框,7/132,单选按钮与复选框（续）,常用属性： Caption： 控件旁边显示的文本 Style： 设置控件外观是标准的还是图形的 Alignmen
4、t： 0Left Justify：缺省设置，按钮在左边，标题在右边。如图所示。 1Right Justify：按钮在右边，标题在左边。,标题,8/132, Value属性：用来确定控件的状态。可在设计时用属性窗口，或在运行时通过代码更改Value值 Value属性值和类型参见下表。,单选按钮与复选框（续）,9/132,常用方法： SetFocus 例如：Option1. SetFocus 等价于：Option1.Value = True 常用事件：Click 单击单选按钮，该按钮的Value属性值为True。 单击未选中的复选框时，Value属性值变为1； 单击已选中的复选框时，Value属性
5、值变为0；,单选按钮与复选框（续）,10/132,框架也称为分组框（Frame），作为容器控件，框架可以容纳各种控件。 框架作用：将控件分组。,2、框架控件,11/132,框架内控件的创建步骤： （1）首先绘制框架控件。 （2）在框架中适当位置拖拉出适当大小的控件，或选中控件后将控件粘贴到框架内。 检查控件是否在框架控件中的方法： 移动框架控件，看那些控件是否跟随其移动。,框架控件（续）,注意 ：不能将控件直接拖进框架。,12/132,框架控件的常用属性有两个： Caption属性：指定框架顶部的文字标题。 BorderStyle属性：指定框架边框的样式，默认值为1（单线边框）。,框架控件（续
6、）,13/132,框架控件（续）,【例9-1】使用复选框、单选按钮与框架设置文字格式。程序运行界面如图9-2所示。 本程序的难点在字型的选择上，选择正常体以外的任一字型时，应清除正常体的勾选；相反，如果选择了正常体，应清除正常体以外的任一字型的选择。 界面设计：窗体中各控件的属性设置见表9-3。,14/132, 字体选择 Private Sub OptFont_Click(Index As Integer) Select Case Index Case 0 LblDisp.Font = “楷体-GB2312“ Case 1 LblDisp.Font = “黑体“ Case 2 LblDisp.
7、Font = “宋体“ End Select End Sub,程序代码：,15/132,字号选择 Private Sub OptSize_Click(Index As Integer) Select Case Index Case 0 LblDisp.FontSize = 12 Case 1 LblDisp.FontSize = 18 Case 2 LblDisp.FontSize = 24 End Select End Sub,16/132, 字型选择 Private Sub ChkFont_Click(Index As Integer) Select Case Index Case 0 L
8、blDisp.FontBold = chkFont(0).Value Case 1 LblDisp.FontItalic = chkFont(1).Value Case 2 LblDisp.FontUnderline = chkFont(2).Value Case 3 If chkFont(3).Value = 1 Then LblDisp.FontBold = 0 不加粗 LblDisp.FontItalic = 0 不斜体 LblDisp.FontUnderline = 0 不加下划线,17/132,chkFont(0).Value = 0 chkFont(1).Value = 0 chk
9、Font(2).Value = 0 End If End Select If chkFont(0).Value = 0 And chkFont(1).Value = 0 And chkFont(2).Value = 0 Then chkFont(3).Value = 1 Else chkFont(3).Value = 0 End If End Sub,18/132,9.1.3 列表框和组合框,列表框和 组合框具有许多共同的属性、方法与事件，下面把它们放在一起介绍。,列表框控件（ListBox）用于显示项目列表，用户可从中选择一个或多个项目。如果项目总数超过了可显示的项目数， VB会自动在控件右
10、侧添加滚动条。,只能从其中选择，而不能直接修改其中的内容！,19/132,组合框（ComboBox）是组合了文本框和列表框的特性而形成的一种控件。组合框在列表框中列出可供用户选择的选项，当用户选定某项后，该项内容自动装入文本框中。当列表框中没有所需选项时，除了下拉式列表框（Style属性为2）之外都允许在文本框中输入，但输入的内容不能自动添加到列表框中。,组合框有 三种风格,列表框与组合框（续）,20/132,1. 常用属性 List属性：是一个字符串数组，list(i)存放列表框或组合框中的一个项目，下标从0开始； 列表框中的项目可在设计模式下一项一项输入，每输入一项后按Ctrl +回车键，
11、输入完所有项目后，按回车键结束输入。 程序中引用项目的形式为：对象名.List(i)。 例如，list1. List(0)表示列表框list1中第一项的内容。,列表框与组合框（续）,21/132, ListCount属性 整型值，表示项目的数量，运行时只读。 ListCount-1是最后一项的下标。,列表框与组合框（续）,22/132, MultiSelect属性（组合框控件无此属性） 指出列表框控件是否可以复选以及如何进行复选。只能在设计时设置，在运行时是只读的。,注意：复选列表框只能选0，而组合框无此属性。,列表框与组合框（续）,23/132, Style属性 该值用来指示列表框或组合框控
12、件的显示类型和行为。在运行时是只读的。,例如：在窗体上放置2个列表框，将其Style属性分别设置为0和1；放置3个组合框，将它们Style属性分别设置为0、1和2。结果如下图所示。,6.4 列表框与组合框,24/132,25/132, Columns属性（组合框控件无此属性） 该属性值指定了列表框选项显示的列数，从而决定ListBox控件是水平还是垂直滚动。 Columns属性默认值为0，仅有一列，列表框选项数目超过显示范围时，出现垂直滚动条。 Columns属性设为i（i为1n），列表框中显示i列选项，列表框选项数目超过显示范围所容纳的数目时，出现水平滚动条（即使i1）。具有水平滚动条的Li
13、stBox控件，每列列宽等于ListBox控件宽度除以列数。,列表框与组合框（续）,26/132, Selected属性（组合框控件无此属性） 该属性是一个逻辑类型的数组 用于返回或设置运行时列表框控件中某个选项是否被选中，值为True时，该项目被选中。 例如：List1.Selected(0)=True 表示列表框List1的第一个项目被选中，此时 List1.ListIndex = 0,注意：该属性只能在程序中设置或引用,列表框与组合框（续）,27/132, ListIndex属性 返回或设置当前选择项目的索引值，该属性为整型值，设计时不可用。 单选时，返回当前选择项目的索引值。 例如，若
14、list1.ListIndex值为0， 表示索引值为0的选项被选中，即第一项被选中。 可复选时，该属性不一定是被选项的索引值，只代表光标所在的选项索引值。 当列表框中没有项目选中时ListIndex值为-1。,列表框与组合框（续）,28/132,列表框与组合框（续）, Text属性 该属性为一字符串。如果有文本编辑区，与编辑区中的文本相同；如果没有文本编辑区，与所选项目相同。 Sorted属性 该属性指定控件中的选项字符串是否自动按字母表顺序排序 该属性只能在设计时设置，运行时只读 默认值为False时，不排序，项目按加入的先后顺序排列显示。,29/132,2.事件 Click事件 当单击某一
15、列表项目时，将触发列表框与组合框控件的Click事件。该事件发生时系统会自动改变列表框与组合框控件的ListIndex、Selected、Text等属性，无需另行编写代码。 DblClick事件 当双击某一列表项目时，将触发列表框与简单组合框控件的DblClick事件。,列表框与组合框（续）,30/132, Change事件（列表框没有此事件） 当用户通过键盘输入改变下拉式组合框或简单组合框控件的文本框部分的正文，或者通过代码改变了Text属性的设置时，将触发其Change事件。,列表框与组合框（续）,31/132,3. 方法 AddItem方法 将项目添加到列表框或组合框中。语法格式： 对象
16、名.AddItem item , index 例如： 将Text1中输入的内容添加到列表框(List1)中，并使其成为第2项，应使用如下语句： List1.AddItem Text1.Text, 1,列表框与组合框（续）,添加的项目 （字符类型）,新增项目在对象中的位置（从0开始），缺省，则添加在最后,32/132, RemoveItem方法 用于从列表框控件或组合框控件中删除一项。 语法格式：对象名. RemoveItem index 对index参数的规定同AddItem方法。,列表框与组合框（续）,例如： 删除列表框(List1)中所有选中的项目。 思路：若第i项选中，则selected(i)为真，用RemoveItem方法将其删除，用循环实现。,33/132,Dim i As Integer i = 0 Do While i = List1.ListCount - 1 If List1.Selecte
