第三章 用户界面设计

第3章用户界面设计本章要点：常用标准控件的使用。(1)复选框。(2)选项按钮。(3)列表框。(4)组合框。(5)滚动条。(6)定时器控件。(7)图片框。(8)图像框。VisualBasic6.0程序设计3.1.1【项目目标】本项目实例主要任务是设计完成档案管理界面3.1项目档案管理之信息录入VisualBasic6.0程序设计3.1项目档案管理之信息录入3.1.2【项目分析】本项目实例主要运用了VB6.0常用控件中的标签、文本框、框架、单选按钮、复选按钮、组合框、列表框、滚动条和定时器控件。VisualBasic6.0程序设计3.1项目档案管理之信息录入1.程序界面设计3.1.3【项目实现】2.相关对象属性设置3.编写对象事件过程代码VisualBasic6.0程序设计3.1项目档案管理之信息录入3.1.4【相关知识】1.复选框（CheckBox）作用：让用户进行“真/假”、“是/否”的选项设置，表示这些选项是否被选中常用属性：Caption属性：设置控件上显示的文字Value属性：设置复选框控件的状态值状态0未选中1选中2被禁止VisualBasic6.0程序设计3.1项目档案管理之信息录入Alignment属性：设置对齐方式。格式：对象.Alignment[=值]（0：标题在控件的右边；1：标题在控件的左边）Style属性：设置复选框的显示方式。注意：•Style是只读属性。•属性值为1时，可使用Picture等属性VisualBasic6.0程序设计3.1项目档案管理之信息录入2.常用事件:Click例：设计一个程序，用户界面设计由一个标签框、一个文本框、四个复选框组成。程序开始运行后，用户在文本框中输入一段文字，然后按需要单击各项复选框，用以改变文本的字体、字型、颜色以及大小PrivateSubCheck1_Click()IfCheck1.Value=1ThenText1.FontName=隶书ElseText1.FontName=宋体EndIfEndSubPrivateSubCheck2_Click()IfCheck2.Value=1ThenText1.FontItalic=TrueElseText1.FontItalic=FalseEndIfEndSubPrivateSubCheck3_Click()IfCheck3.Value=1ThenText1.FontSize=32ElseText1.FontSize=16EndIfEndSubPrivateSubCheck4_Click()IfCheck4.Value=1ThenText1.ForeColor=vbRedElseText1.ForeColor=vbBlackEndIfEndSubVisualBasic6.0程序设计3.1项目档案管理之信息录入作用:选项按钮被用来显示选项，通常以选项按钮组的形式出现，用户可从中选择一个选项。常用属性:(同复选框)(案例15)Value属性：True：选中False（缺省值）没有选中。常用事件（同复选框）:Click2.选项按钮(OptionButton)VisualBasic6.0程序设计3.1项目档案管理之信息录入例：修改上例：用户界面设计由1个文本框、3个单选框组成。程序运行后，用户在文本框中输入一段文字，然后按需要单击各单选框，用以改变文本的颜色为红色或绿色或蓝色。PrivateSuboption1_Click()Text1.ForeColor=vbRedEndSubPrivateSuboption2_Click()Text1.ForeColor=vbGreenEndSubPrivateSuboption3_Click()Text1.ForeColor=vbBlueEndSubVisualBasic6.0程序设计3.1项目档案管理之信息录入VisualBasic6.0程序设计3.1项目档案管理之信息录入3.框架（Frame）1.作用：为控件提供可标识的分组，常用于单选按钮的分组.2.分组方法：（1）先建框架，后在其内建控件。（2）框架内的控件在建立时，不能双击，只能单击。（否则载体不是框架而是窗体，其内的控件（比如单选钮）将不随框架而移动）设计时，把其内的所有控件作为一个整体来移动；运行时，用户可以在每个选项组中选定一个单选钮。（另：图片框（PictureBox）也有此功能。）VisualBasic6.0程序设计3.1项目档案管理之信息录入3.属性：Caption：定义框架的可见文字BorderStyle：（缺省为1--有边框，0--无边框）4.常用事件：Click,DblclickVisualBasic6.0程序设计PrivateSubCommand1_Click()IfOption1ThenText1.FontName=隶书ElseText1.FontName=幼圆EndIfIfOption3ThenText1.FontSize=16ElseText1.FontSize=24EndIfEndSub3.1项目档案管理之信息录入VisualBasic6.0程序设计3.1项目档案管理之信息录入4.列表框(ListBox)1.作用可从列表框中的一系列选项中选择一个或多个选项，如果选项的数量超过可显示的数目，会自动增加滚动条。2.常用属性：List:返回/设置在列表中包含的项目内容。访问值的格式：s$=列表框.List（下标）修改访问值的格式：列表框.List（下标）=s$List1.List(3)=“ABCDEFG”注意：下标从0开始计数。如：List(3)为第4项内容在属性窗口中输入时，按Ctrl+回车换行。VisualBasic6.0程序设计3.1项目档案管理之信息录入Colums：0——单列显示。垂直滚动1-N—多列显示。水平滚动Style：设置列表框的风格0--标准1--复选框的风格VisualBasic6.0程序设计3.1项目档案管理之信息录入ListCount:列表项的总个数。最后一项内容的序列号为ListCount-1ListIndex:设置运行时选中的列表项的下标（0--ListCount-1）。如果未选定项目，则ListIndex属性值是-1。Text:对应用户在运行时选定的列表项目的值。（字符串类型）Sorted:设置列表项是否自动排序。（按字母顺序）（True时，自动排序）VisualBasic6.0程序设计3.1项目档案管理之信息录入3.常用方法：(2)Clear方法：用于清除ListBox的内容。如：List1.clear语法：控件名.AddItem项目[，索引值]控件名.RemoveItem索引值（1）AddItem和RemoveItem方法用于添加或删除ListBox控件中的项目。4.常用事件：Click、DblClickVisualBasic6.0程序设计3.1项目档案管理之信息录入例：设计一个程序，查询从北京飞往各城市的航班时间。其功能是：在程序运行后，用户从列表框中选择一个城市名，就在标签框中显示出航班的起飞时间VisualBasic6.0程序设计3.1项目档案管理之信息录入例：用AddItem方法向列表框中插入项目PrivateSubForm_Load()List1.AddItem上海List1.AddItem大连List1.AddItem广州EndSubVisualBasic6.0程序设计3.1项目档案管理之信息录入当单击List1中某一地名(如“上海”）时，List1的Text属性就获得一个值--“上海”,同时ListIndex属性获得一个值--0其它地名同样。PrivateSubList1_Click()SelectCaseList1.ListIndexCase0Label1.Caption=北京——+List1.Text+星期五15：00起飞Case1Label1.Caption=北京——+List1.Text+星期四09：00起飞Case2Label1.Caption=北京——+List1.Text+星期一11：30起飞Case3Label1.Caption=北京——+List1.Text+星期三11：30起飞EndSelectEndSubVisualBasic6.0程序设计3.1项目档案管理之信息录入5.组合框（ComboBox）1.作用：将文本框和列表框的功能组合起来使用的控件O和2的区别：前者：允许在编辑区输入文本，后者不允许。2.属性：Style：012Text：用户所选择项目的文本或直接输入的文本其他属性及用法与列表框相同VisualBasic6.0程序设计3.1项目档案管理之信息录入3.事件：Style=0，Click、Dropdown、Change事件。AddItem、Clear、RemoveItem，用法同列表框。Style=1，Click、DblClick、Change事件。Style=2，Click、Dropdown事件。Dropdown事件：在单击向下的箭头时触发该事件。4.方法：VisualBasic6.0程序设计练习：例：窗体启动后在List1中添加两个课程名，选择其中一个课程名称，可在Label中显示有关内容。VisualBasic6.0程序设计3.1项目档案管理之信息录入6.水平滚动条（HscrollBar）和垂直滚动条（VscrollBar）1、属性(1)Min(顶部或最左位置)和Max(底部或最右位置)定义了滚动条控件的范围(-32768--32767)(2)LargeChang和SmallChang控制滚动条的移动量(3)Value设置滚动块在运行时的位置量2、事件Chang事件、Scroll事件VisualBasic6.0程序设计3.1项目档案管理之信息录入属性设计:对象属性设置水平滚动条(H1)min0水平滚动条(H2)max255水平滚动条(H3)smallchang8largechang32文本框(text1)text空PrivateSubHScroll1_Change()Text1.BackColor=RGB(H1.Value,H2.Value,H3.Value)EndSubPrivateSubHScroll2_Change()Text1.BackColor=RGB(H1.Value,H2.Value,H3.Value)EndSubPrivateSubHScroll3_Change()Text1.BackColor=RGB(H1.Value,H2.Value,H3.Value)EndSub例：设计一个调色板用户可以通过三个滚动条来调整文本框的底色VisualBasic6.0程序设计3.1项目档案管理之信息录入7.定时器控件属性:Enable属性:是否可用Interval属性:定时器事件之间的时间间隔（毫秒数）取值范围:0--64767,最长间隔为64.8秒事件：Timer事件经过了interval所设置的时间间隔后,将会触发timer事件.计时器控件（Timer）：按一定的时间间隔执行操作可制作动画效果VisualBasic6.0程序设计3.1项目档案管理之信息录入分析:(1)在窗体上装入一个图片（picture控件）(2)图片在窗体上的位置不断改变即Left,Top例：以窗体为背景，显示汽车行驶的动画PrivateSubTimer1_Timer()Picture1.Left=Picture1.Left+10EndSubVisualBasic6.0程序设计3.1项目档案管理之信息录入例：显示滚动字幕PrivateSubTimer1_Timer()Label1.Left=Label1.Left+100IfLabel1.Left=Form1.WidthThenLabel1.Left=-Label1.WidthEndIfEndSubVisualBasic6.0程序设计3.1项目档案管理之信息录入8.图片框（PictureBox）图片框（PictureBox）是用来在窗体上显示图像，或作为容器放置其他控件的控件。图