第6章 内部控件.pptVIP

第六章 常用内部控件 V i s u a l B A S I C 程序设计 * 第6章 常用控件 本章要点: ? 选项按钮、复选框 ? 列表框、组合框 ? 计时器、滚动条、框架 组合框：组合了文本框和列表框的特性而形成的一种控件。 组合框有3种式样：下拉式组合框、简单组合框、下拉式列表框。其中两种下拉风格的组合框，只有单击下拉箭头时才会显示全部列表，这样就节省了窗体的空间，从而使得无法容纳列表框的地方可以很容易地容纳组合框。 注意：下拉式组合框与下拉式列表框的区别在于后者不能输入列表中没有的选项。 6.5 组合框(ComboBox) * 1. 作用: 提供列表(可折叠)、文本输入 2. 属性 List—列表内容(Ctrl+Enter换行) Style—外形 0—下拉组合框(折叠) 1—简单组合框(不折叠) 2—下拉列表框(不能修改Text属性) Text—文本框内容 ListIndex—运行期用，当前选定项目的索引 索引从0开始 ListCount—列表部分项目的个数 Sorted—元素是否自动按顺序排序 组合框 * 3. 事件 组合框的事件与Style属性有关。 Style为0时: 响应Click、Change、DropDown事件 Style为1时: 响应Click、DblClick、Change事件 Style为2时: 响应Click、DropDown事件 4. 方法 AddItem: 向组合框中添加新的项目 对象名.AddItem 项目[,索引] RemoveItem: 从组合框中移除项目 对象名.RemoveItem 索引 Clear: 清除组合框中的所有项目 对象名.Clear * 【例6-5】在窗体上放4个组合框，用于选择微机配置，包括选择机型、CPU主频、硬盘、内存。运行时，在选择了各项内容之后，单击“确定”按钮显示所选择的机器配置。 Style=1 Style=2 Style=2 Style=0 * Private Sub Form_Load() Combo1.Text = Combo1.List(0) Combo2.Text = Combo2.List(0) Combo3.Text = Combo3.List(0) Combo4.Text = Combo4.List(0) End Sub Private Sub Command1_Click() Picture1.Cls Picture1.Print 您选择的配置是: Picture1.Print 机型:; Combo1.Text Picture1.Print CPU:; Combo2.Text Picture1.Print 硬盘:; Combo3.Text Picture1.Print 内存:; Combo4.Text End Sub * 6.6 定时器(Timer) 1. 作用:周期性地执行某功能、运行时不可见 2. 属性 Enabled: 将Enabled设置为False时将停止定时器 的计时操作 Interval: 计时事件执行的时间间隔(毫秒) 3. 事件 Timer事件: 每当计时时间到时产生Timer事件 注: 一个计时器的最大计时时间为65535毫秒 , 等于 1 分钟多一些。如果最大计时时间大于该值，可以使用多个计时器。如果每秒产生一个Timer事件Interval应设为1000。 * * 【例6-6】在窗体上放置一个红色圆。 单击“增大”按钮每隔1秒直径自动增大200Twips； 单击“缩小”按钮每隔1秒直径自动缩小200Twips； 单击“停止”按钮停止增大或缩小。 Timer1属性: Enabled—False Interval—1000 Command1 Timer1 Shape1 Command2 Command3 * Dim Flag As Integer Private Sub Command1_Click() Timer1.Enabled = True Flag = 1 End Sub Private Sub Command2_Click() Timer1.Enabled = True F