第八章常用控件.pptVIP

第 8 章 常用控件 * 第 1 节 框架 第 2 节 计时器 第 3 节 选择性控件 第 4 节 列表框和组合框 第 5 节 滚动条 第 6 节 常用ActiveX控件 一、使用框架的意义：作为对象的容器，实现对象分组和美化窗体。 第 1 节 框架控件（frame） 二、建立框架 先建立框架，再在框架内建立对象，框架内的对象和框架相当与一个整体；如果先建立其它对象，后建立框架，必须通过剪切→选框架→粘贴才能绑定为整体。 三、举例：学生信息录入界面的设计如下 计时器的意义：计时通过Timer()事件自动完成某功能。 第 2 节 计时器控件(timer) 【例8-1】设计谚语展示板程序。 Interval Enable 属性 设置计时周期，单位为毫秒。 逻辑型值为True时开始计时，否则停止计时 说明 【例8-2】制作一个电子台历，包括当前年、月、日、星期和时间。 Private Sub Timer1_Timer() Static n% n = n + 1 Label1.Caption = yy(n) End Sub 界面设计:一个框架、四个标签、一个计时器 属性设计:字体和对齐方式 编码:在Timer()事件中给四个标签的标题赋值 一、单选按钮（optionbutton） 主要属性:caption, alignment, value, sytle (p201表8-5) 事件(click) 控件数组 第 3 节 选择性控件（单选按钮和复选框） 【例5-14】设计一个简易计算器。 分析：建立 3 个框架，文本框数组，两个标签，单选按钮数组；分别进行属性设置；编写单选按钮的单击事件过程。 Private Sub Option1_Click(Index As Integer) Label1 = Option1(Index).Caption Select Case Index Case 0: Label2 = Val(Text1(0)) + Val(Text1(1)) Case 1: Label2 = Val(Text1(0)) - Val(Text1(1)) Case 2: Label2 = Val(Text1(0)) * Val(Text1(1)) Case 3: If Val(Text1(1))0 Then Label2=Text1(0)/Text1(1) Else Label2=除零错误! End Select End Sub Private Sub Text1_Change(Index As Integer) Option1(0).Value = False Option1(1).Value = False Option1(2).Value = False Option1(3).Value = False End Sub 二、复选框 （checkbox） 主要属性: caption, alignment, value, sytle value的值:unchecked, checked, unavailable 【例8-4】设计一个简单的个人爱好调查程序。 Private Sub Command1_Click() Dim name$, sex$, hobbit$,i% name = 姓名： Text1 sex = 性别： IIf(Option1(0).Value, 男, 女) hobbit = 爱好： For i = 0 To 3 If Check1(i).Value=1 Then hobbit=hobbit Check1(i).Caption Next i Label4 = name vbCrLf sex vbCrLf hobbit End Sub 一、列表框（ListBox） 显示多个选项，供用户选其一或多项；选项较多时有滚动条。 主要属性： list：存放项目的字符数组，最小下标为0。 listindex：被选项目的序号，未选为-1。 listcount：项目个数，最大序号为listcount-1。 Selected：逻辑数组，记各项目是否被选。 Text：所选项目的文本。 Multiselect：值None；Simple；Extended。 Style：值0常规形式；1复选形式。 Sorted：项目是否按字符排序。 红色的属性只能在程序中设置或引用。 第 4 节 列表框和组合框 方法: AddItem: 对象名. AddItem Item[,index] RemoveItem:对象名. removeItem index Clear:对象名.clear 主要事件: Click()和DblClick() 【例8-5】设计一个程序对列表框中项目进行添加和删除。 Pri