1、,第3章 用户界面设计,本章要点： 常用标准控件的使用。 (1)复选框。(2)选项按钮。 (3)列表框。(4)组合框。 (5)滚动条。(6)定时器控件。 (7)图片框。(8)图像框。,3.1.1【项目目标】 本项目实例主要任务是设计完成档案管理界面,3.1 项目 档案管理之信息录入,3.1 项目 档案管理之信息录入,3.1.2【项目分析】本项目实例主要运用了VB6.0常用控件中的标签、文本框、框架、单选按钮、复选按钮、组合框、列表框、滚动条和定时器控件。,3.1 项目 档案管理之信息录入,1.程序界面设计,3.1.3【项目实现】,2.相关对象属性设置,3.编写对象事件过程代码,3.1 项目 档
2、案管理之信息录入,3.1.4【相关知识】 1.复选框（CheckBox）,作用：让用户进行“真/假”、“是/否”的选项设置，表示这些选项是否被选中,常用属性：Caption 属性：设置控件上显示的文字Value属性：设置复选框控件的状态,值 状态 0 未选中 1 选中 2 浅灰色,3.1 项目 档案管理之信息录入,Alignment 属性：设置对齐方式。 格式：对象.Alignment=值 （0：标题在控件的右边； 1：标题在控件的左边）,Style 属性：设置复选框的显示方式。,注意：Style属性值为1时，可使用Picture等属性,3.1 项目 档案管理之信息录入,2. 常用事件:Cli
3、ck,例：设计一个程序，用户界面设计由一个标签框、一个文本框、四个复选框组成。程序开始运行后，用户在文本框中输入一段文字，然后按需要单击各项复选框，用以改变文本的字体、字型、颜色以及大小,Private Sub Check1_Click() If Check1.Value = 1 ThenText1.FontName = “隶书“ ElseText1.FontName = “宋体“ End If End Sub,Private Sub Check2_Click() If Check2.Value = 1 ThenText1.FontItalic = True ElseText1.FontIta
4、lic = False End If End Sub,Private Sub Check3_Click() If Check3.Value = 1 ThenText1.FontSize = 32 ElseText1.FontSize = 16 End If End Sub,Private Sub Check4_Click() If Check4.Value = 1 ThenText1.ForeColor = vbRed ElseText1.ForeColor = vbBlack End If End Sub,3.1 项目 档案管理之信息录入,作用:选项按钮被用来显示选项，通常以选项按钮组的 形
5、式出现，用户可从中选择一个选项。,常用属性: (同复选框) (案例15),Value属性：True ：选中False（缺省值）没有选中。,常用事件 （同复选框） :Click,2.选项按钮(OptionButton),3.1 项目 档案管理之信息录入,例：修改上例：用户界面设计由1个文本框、3个单选框组成。程序运行后，用户在文本框中输入一段文字，然后按需要单击各单选框，用以改变文本的颜色为红色或绿色或蓝色。,Private Sub option1_Click() Text1.ForeColor = vbRed End SubPrivate Sub option2_Click() Text1.F
6、oreColor = vbGreen End SubPrivate Sub option3_Click() Text1.ForeColor = vbBlue End Sub,3.1 项目 档案管理之信息录入,3.1 项目 档案管理之信息录入,3.框架（Frame）,1.作用： 为控件提供可标识的分组，常用于单选按钮的分组.,2.分组方法： （1）先建框架，后在其内建控件。 （2）框架内的控件在建立时，不能双击，只能单击。,设计时， 把其内的所有控件作为一个整体来移动；运行时，用户可以在每个选项组中选定一个单选钮。 （另：图片框（PictureBox）也有此功能。）,3.1 项目 档案管理之信息
7、录入,3.属性： Caption：定义框架的可见文字 BorderStyle：（缺省为1-有边框，0-无边框）,4.常用事件： Click, Dblclick,Private Sub Command1_Click() If Option1 ThenText1.FontName = “隶书“ ElseText1.FontName = “幼圆“ End If If Option3 ThenText1.FontSize = 16 ElseText1.FontSize = 24 End If End Sub,3.1 项目 档案管理之信息录入,3.1 项目 档案管理之信息录入,4.列表框(ListBox
8、),1.作用 可从列表框中的一系列选项中选择一个或多个选项，如果选项的数量超过可显示的数目，会自动增加滚动条。,2.常用属性：,List: 返回/设置在列表中包含的项目内容。,访问值的格式：s$= 列表框.List（下标）,修改访问值的格式：列表框.List（下标）= s$,Private Sub Command1_Click()List1.List(3) = “aaaaaaaa“Print List1.List(2) End Sub,3.1 项目 档案管理之信息录入,Colums：,Style：设置列表框的风格,3.1 项目 档案管理之信息录入,ListCount:列表项的总个数。 最后一项
9、内容的序列号为ListCount-1,ListIndex:设置运行时选中的列表项的下标（0 - ListCount -1）。 如果未选定项目，则 ListIndex 属性值是 -1。,Text :对应用户在运行时选定的列表项目的值。 （字符串类型）,Sorted:设置列表项是否自动排序。（按字母顺序） （True时，自动排序）,Private Sub Command1_Click() Print List1.Text Print List1.ListCount Print List1.ListIndex End Sub,3.1 项目 档案管理之信息录入,3.常用方法：,(2) Clear方法：
10、用于清除ListBox的内容。如：List1.clear,语法：控件名.AddItem 项目，索引值控件名.RemoveItem 索引值,（1）AddItem 和 RemoveItem 方法用于添加或删除 ListBox 控件中的项目。,4.常用事件： Click、DblClick,Private Sub Command1_Click()List1.AddItem “计算机“, 3List1.RemoveItem 5 End Sub,3.1 项目 档案管理之信息录入,例：设计一个程序，查询从北京飞往各城市的航班时间。其功能是：在程序运行后，用户从列表框中选择一个城市名，就在标签框中显示出航班的
11、起飞时间,3.1 项目 档案管理之信息录入,例：,用AddItem方法向列表框中插入项目,Private Sub Form_Load() List1.AddItem “上海“ List1.AddItem “大连“ List1.AddItem “广州“ End Sub,3.1 项目 档案管理之信息录入,Private Sub List1_Click() Select Case List1.ListIndex Case 0 Label1.Caption = “北京“ + List1.Text + “星期五15：00 起飞“ Case 1 Label1.Caption = “北京“ + List1.
12、Text + “星期四09：00 起飞“ Case 2 Label1.Caption = “北京“ + List1.Text + “星期一11：30 起飞“ Case 3 Label1.Caption = “北京“ + List1.Text + “星期三11：30 起飞“ End Select End Sub,3.1 项目 档案管理之信息录入,5.组合框（ComboBox）,1.作用：将文本框和列表框的功能组合起来使用的控件,O 和 2 的区别： 前者：允许在编辑区输入文本，后者不允许。,2.属性：,Text：用户所选择项目的文本或直接输入的文本,其他属性及用法与列表框相同,Private S
13、ub Command1_Click() Print combo1.Text Print combo1.ListCount Print combo1.ListIndex Print combo1.list(3) End Sub,3.1 项目 档案管理之信息录入,3.常用事件：,Click、 DblClick事件。,AddItem、Clear、RemoveItem，用法同列表框。,Change事件，在Style=0、1时，当改变正文时发生,4.方法：,要求：设计一个程序，使用2个组合框查询家电产品类别和某类产品清单；并在标签框中显示某一品牌产品的具体信息.,(1)界面设计:,例 组合框（ListB
14、ox)举例：,分析：怎样使用户在选择 Combo1中某一大类产品名（如电视机）时，能在Combo2中显示该类产品清单呢？,当选择Combo1项时，Combo1的Text属性就获得一个值-“电视机”,其它产品名同样。在Combo1_Click事件中向Combo2 添加项。,程序代码如下:Private Sub Form_Load()Combo1.ClearCombo1.AddItem “电视机“Combo1.AddItem “洗衣机“End Sub,Private Sub Combo1_Click()Combo2.ClearSelect Case Combo1.TextCase “电视机“Com
15、bo2.AddItem “长虹彩电“Combo2.AddItem “海尔彩电“Case “洗衣机”Combo2.AddItem “小天鹅“Combo2.AddItem “小鸭“End Select End Sub,在Combo1中显示家电产品类别,单击Combo1中选项，在 Combo2中显示该类产品品牌清单.,Private Sub Combo2_Click() Dim ch$ Select Case Combo2.TextCase “长虹彩电“ch = “1500元“Case “海尔彩电“ch = “1700元“Case “小天鹅“ch = “1500元“Case “小鸭“ch = “23
16、00元“End SelectLabel2.Caption = _“类别:“ + Combo1.Text + “名称:“ + Combo2.Text + chEnd Sub,根据从Combo2中选择的某一牌子产品名，在Label2中显示它的具体信息。,练 习：,例：窗体启动后在List1中添加两个课程名，选择其中一个课程名称，可在Label中显示有关内容。,3.1 项目 档案管理之信息录入,6.水平滚动条（HscrollBar）和 垂直滚动条（VscrollBar）,1、属性 (1) Min (顶部或最左位置)和Max(底部或最右位置) 定义了滚动条控件的范围(-32768-32767) (2)
17、 LargeChang和SmallChang控制滚动条的移动量 (3) Value设置滚动块在运行时的位置量,2、事件Chang事件、Scroll事件,3.1 项目 档案管理之信息录入,属性设计: 对象 属性 设置 水平滚动条(H1) min 0 水平滚动条(H2) max 255 水平滚动条(H3) smallchang 8largechang 32 文本框(text1) text 空,Private Sub HScroll1_Change() Text1.BackColor = RGB(H1.Value, H2.Value, H3.Value) End SubPrivate Sub HSc
18、roll2_Change() Text1.BackColor = RGB(H1.Value, H2.Value, H3.Value) End SubPrivate Sub HScroll3_Change() Text1.BackColor = RGB(H1.Value, H2.Value, H3.Value) End Sub,例：设计一个调色板用户可以通过三个滚动条来调整文本框的底色,3.1 项目 档案管理之信息录入,7.定时器控件,属性:Enable属性 :是否可用Interval属性: 定时器事件之间的时间间隔（毫秒数）取值范围:0-64767 ,最长间隔为64.8秒 事件： Timer事
19、件 经过了interval所设置的时间间隔后,将会触 发timer事件.,计时器控件（Timer）：按一定的时间间隔执行操作可制作动画效果,3.1 项目 档案管理之信息录入,分析:(1)在窗体上装入一个图片（picture控件）(2)图片在窗体上的位置不断改变即Left,Top,例：以窗体为背景，显示汽车行驶的动画,Private Sub Timer1_Timer( )Picture1.Left = Picture1.Left + 10 End Sub,3.1 项目 档案管理之信息录入,例：显示滚动字幕,Private Sub Timer1_Timer()Label1.Left = Label
20、1.Left + 100If Label1.Left = Form1.Width ThenLabel1.Left = -Label1.WidthEnd If End Sub,3.1 项目 档案管理之信息录入,8.图片框（PictureBox）,图片框（PictureBox）是用来在窗体上显示图像，或作为容器放置其他控件的控件。 图片框控件可以显示以bmp,ico,wmf,emf和gif等为扩展名的图形文件。,(1) 常用属性 Picture属性。 Picture是装入或删除图形文件。,3.1 项目 档案管理之信息录入,装入图形：对象.Picture=LoadPicture(“图形文件”) 或在
21、属性窗口直接设置Picture属性。 删除图形：对象.Picture=LoadPicture(“ ”) 或在属性窗口直接删除Picture属性值. AutoSize属性。 AutoSize属性是控制图片框是否自动调整大小使之与显示的图片匹配，当AutoSize属性设置为True时，图片框可自动调整大小。 (2) 常用方法 可以使用Print方法或其他作图方法在图片框上输出文字或图形。,3.1 项目 档案管理之信息录入,9.图像框（Image） 用来在窗体上显示图像的控件。 它比图片框占用更少的内存，因为图像框不是容器类控件，所以图像框内不能保存其他控件。,(1) 常用属性 Picture属性。 Picture属性与图片框相同。,3.1 项目 档案管理之信息录入, Stretch属性。 Stretch属性用于确定图像框与所显示的图片是否自动调整大小使其相互匹配，当Stretch属性设置为True时，图形可自动调整尺寸，以适应图像框的大小；当Stretch属性值为False，图像框可自动改变大小，以适应所显示的图片。,(2) 常用方法 图像框可以响应的事件有Click和DblClick。,3.2知识进阶,3.2.1 界面所涉及到的元素一个漂亮的程序界面主要取决于色调和形状。,3.2.2 界面属性,3.2.3 统一管理VB控件的界面属性,
