《Visual_Basic程序设计 教学课件 ppt 作者 高巍 姜楠 肖峰 第7章用户界面设计》由会员分享，可在线阅读，更多相关《Visual_Basic程序设计 教学课件 ppt 作者 高巍 姜楠 肖峰 第7章用户界面设计（68页珍藏版）》请在金锄头文库上搜索。
1、第7章 用户界面设计,第7章 用户界面设计,7.1 常用标准控件 7.2 菜单设计 7.3 通用对话框 7.4 工具栏 7.5 综合应用,7.1 常用标准控件,7.1.1 单选按钮、复选框和框架 7.1.2 列表框和组合框 7.1.3 滚动条 7.1.4 定时器 7.1.5 图片框和图像框,7.1.1 单选按钮、复选框和框架,1单选按钮 2复选框 3框架,1单选按钮,单选按钮也称为选择按钮，一般都是成组出现，一组单选按钮控件可以提供一组彼此互相排斥的选项，实现一种“单项选择”的功能。 单选按钮的常用事件为Click。,单选按钮常用属性（1）, Caption属性。用于设置单选按钮上显示的标题。
2、 Alignment属性。用于设置单选按钮标题的对齐方式，可以在设计时设置，也可以在运行期间设置。其取值0（默认值）表示控件钮在左边，标题显示在右边；其取值1表示控件钮在右边，标题显示在左边。 Value 属性。默认属性，其值为逻辑类型，表示单选按钮的状态，可以在设计时设置，也可以在运行期间设置。其取值True表示单选钮被选定；其取值False（默认值）表示单选钮未被选定。 Style 属性。用来指定单选按钮的显示方式，用于改善视觉效果。其取值0（默认值）表示标准方式 ；其取值1表示图形方式。当该属性设置为1（Graphical）时，可以在Picture、DownPicture和Disable
3、d Picture中分别设置不同的图标或位图，用三种不同的图形分别表示未选定、选定和禁止选择。,单选按钮常用属性（2）, Picture属性。用来返回或设置未选定控件时的图片。可以在设计时设置，也可以在运行期间通过LoadPicture函数设置。如果Caption属性有值，则同时显示图片和文字；如果图片太大，则自动剪裁。 DownPicture属性。用来返回或设置选定控件时的图片。如果该属性为空，则按钮被按下时，只显示Picture属性指定的图片；如果Picture属性和Disabled Picture属性为空，则只显示文字。 Disabled Picture属性。用来返回或设置禁止选择时的图
4、片，即控件的Enabled属性为False时控件的图片。,例7.1 设计一个窗体，模拟单选题测试。,Private Sub Command1_Click() If Option2.Value=True Then MsgBox “恭喜，你答对了“ Else MsgBox “真遗憾，你选错了“ End If End Sub Private Sub Form_Load() Option1.Value=False Option2.Value=False Option3.Value=False Option4.Value=False End Sub,2复选框,复选框主要用于对某种或几种状态进行开关选择。
5、复选框列出可供用户选择的选项，用户根据需要选定其中的一项或多项。 复选框的常用属性： Caption属性。Caption属性是用来设置复选框上显示的文本。 Value属性。Value属性是默认属性，其值为整型，表示复选框的状态。其取值0 vbUnchecked表示未被选定，是默认值；其取值1 vbChecked表示被选定；其取值2 vbGrayed表示灰色，禁止用户选择。 复选框的常用事件为Click。,例7.2 设计一个窗体，模拟多项选择题测试。,Private Sub Command1_Click() If Check1.Value=1 And Check3.Value=1 And Che
6、ck2.Value=0 And _ Check4.Value=0 Then MsgBox “恭喜，你选对了！“ Else MsgBox “很遗憾，你选错了！“ End If End Sub,3框架,框架是一个容器控件，用于将屏幕上的对象分组。主要用于单选按钮分组。在窗体上创建框架及其内部控件时，必须先建立框架，然后在其中建立各种控件。 框架的常用属性： Caption属性。用来设置框架上的标题名称。如果Caption为空字符，则框架为封闭的矩形框，但框架内的控件仍然可以被视为一组，而不是单独的控件。 Enabled属性。Enabled属性为False：标题呈灰色，表示框架内的所有对象均被屏蔽，
7、不允许对框架内的对象进行操作。 Visible属性。Visible属性设为False，表示在程序执行期间，框架及其内部所有控件全部被隐藏起来。也就是说，对框架的操作也是对其内部的控件的操作。其取值为True，表示框架及其内部控件可见。框架内的所有可见控件将随框架一起移动、显示、消失和屏蔽。 框架可以响应Click和DblClick事件 。,例7.3 设计用三组框架显示学生个人信息窗体。,Private Sub Command1_Click() Dim str As String str=Text1.Text & “, “ If Option1.Value=True Then str=str &
8、 Option1.Caption & “, “ Else str=str & Option2.Caption & “, “ End If If Option3.Value=True Then str=str & Option3.Caption & “, “ Else str=str & Option4.Caption & “, “ End If str=str & vbCrLf & Frame3.Caption & “:“ If Check1.Value=1 Then str=str & Check1.Caption & “ “ If Check2.Value=1 Then str=str &
9、 Check2.Caption & “ “ If Check3.Value=1 Then str=str & Check3.Caption & “ “ If Check4.Value=1 Then str=str & Check4.Caption & “ “ If Check5.Value=1 Then str=str & Check5.Caption & “ “ If Check6.Value=1 Then str=str & Check6.Caption & “ “ MsgBox str, , “学生个人信息“ End Sub,7.1.2 列表框和组合框,1列表框 2组合框,1列表框,将一
10、系列的选项组合成一个列表，供用户选择。在列表框中放入若干个项的名字，用户可以通过单击某一项或多项来选择自己所需要的项目。用户可以选择其中的选项，但不能向列表清单中输入项目。,列表框的常用属性 （1）, List属性。一个字符串数组，用来保存列表框中的各个数据项内容。 List数组的下标从0开始，即List(0)保存表中的第一个数据项的内容。List(1)保存第二个数据项的内容，以此类推，List(ListCount-1)保存表中的最后一个数据项的内容。其语法格式如下： 列表框名.List(索引号)=项目内容 ListCount属性。ListCount属性与List属性一起用，表示列表框中有多少
11、列表项。该属性只能在运行状态访问。ListCount-1是最后一个列表项的下标。 ListIndex属性。判断列表框中当前被选中的项目的序号。序号也是自0开始，第一个项目的序号为0，第二个项目的序号为1，以此类推。如果Listindex属性值为-1，则表明没有项目被选中。该属性只能在运行状态访问。,列表框的常用属性 （2）, Column属性。当列表框的选择项数超过列表框所能容纳的范围时，将设置列表框的垂直滚动条或水平滚动条。属性值n是正整数，可以有两种情况：0（默认值）表示项目以一列显示，项目多时自动添加垂直滚动条；n=1表示项目以n列显示，但滚动条出现时是水平的。该属性只能在设计状态设置。
12、 Selected属性。用于返回或设置列表框中列表项的选择状态。只能在运行中设置或引用。Selected属性是一个逻辑数组，表示对应的项在程序运行期间是否被选中。例如，Selected(0)的值为True表示第一项被选中，为False表示未被选中。 Sorted属性。决定列表框中项目在程序运行期间是否按字母顺序排列显示。Sorted属性只能在设计状态设置。如果Sorted为True，则项目按字母顺序排列显示；如果Sorted为False，则项目按加入的先后顺序排列显示。 Text属性。默认属性，只能在运行状态中设置或引用。Text属性为字符串，保存了列表框中当前被选中条目的文字。List(Li
13、stIndex)等于Text。,列表框的常用属性 （3）, MultiSelect属性。决定列表框是否支持多选。该属性有以下三种状态。 0None（默认值）：禁止多项选择，只能选择一个条目。 1Simple：简单多项选择，用鼠标单击或按空格键表示选定或取消选定一个选择项。 2Extended：扩展多项选择，按住Ctrl键同时用鼠标单击或按空格键，表示选定或取消选定一个选择项；按住Shift键同时单击鼠标，或者按住Shift键并且移动光标键，就可以从前一个选定的项扩展选择到当前选择项，即选定多个连续项。 SelCount属性。表明列表框中当前被选中的条目的总数。如果没有任何条目被选中，则该属性值
14、为0。该属性在程序运行时只读，设计时不可用。 Style属性。决定列表框样式，其取值0（默认值）表示只显示列表项文本；其取值1表示列表项文本前带复选框。,列表框常用事件和方法 （1）, AddItem方法。向列表框当中添加新条目。其形式： List1.AddItem 字符串表达式 ,Index 说明：使用该方法在窗体的Load事件过程中对列表框添加初始条目。字符串表达式是将要加入列表框的项目。Index决定新增项目在列表框中的位置。如果Index省略，则新增项目将添加在最后。对于第一个项目，Index为0。Index不能比现有条目数大，否则会出现错误。 例如，在列表框的第二项位置插入一新列表项
15、，内容为“C语言程序设计”，格式如下： List1.AddItem “C语言程序设计“,1,列表框常用事件和方法 （2）, RemoveItem方法。从列表框中删除一个项目。其形式： List1.RemoveItem index 说明：Index是被删除项目在列表框或组合框中的位置。对于第一个元素，Index为0。 例如，删除列表框的第二项的格式如下： List1. RemoveItem 1 Clear方法。清除列表框当中所有现有条目。其形式：List1.Clear 说明：对象可以是列表框、组合框或剪贴板，即Clear方法适用于列表框、组合框和剪贴板。 ListItem方法。用于为用户列表框增
16、加项目。,例7.4 设计窗体，实现学生选课,Private Sub Command3_Click() For i=List2.ListCount-1 To 0 Step -1 If List2.Selected(i)=True Then List1.AddItem List2.List(i) List2.RemoveItem i End If Next i End Sub,Private Sub Command1_Click() For i=List1.ListCount-1 To 0 Step -1 If List1.Selected(i)=True Then List2.AddItem List1.List(i) List1.RemoveItem i End If Next i End Sub Private Sub Command4_Click() For i=0 To List2.ListCount-1 List1.AddItem List2.Li
