《Visual Basic程序设计与实训教程》第7章：常用控件.pptVIP

第7章 常用标准控件 7.1 定时器型 7.2 单选按钮和复选框 7.3 框 架 7.4 列表框和组合框 7.5 滚动条 7.6 焦点和Tab顺序 7.1 定时器 7.1.1定时器的属性和事件 1.常用属性 (1) Interval属性 返回或设置定时器控件计时的时间间隔(单位：毫秒) 。其有效范围为0～65535。默认值为0，此时定时器无效。 (2) Enabled属性 定时器是否被激活，它有True或False 两种属性值。当其设为True时，定时器被激活。 2.常用事件 定时器控件最常用的事件就是Timer事件。 每经过一个由Interval属性的时间间隔，便会产生一个Timer事件。 在命令按钮【开始】事件过程Command1_Click()中添加如下代码： Private Sub Command1_Click() Timer1.Enabled = True End Sub 在命令按钮【停止】事件过程Command1_Click()中添加如下代码： Private Sub Command2_Click() Timer1.Enabled = False End Sub 在时钟控件的触发事件过程中添加如下代码： Private Sub Timer1_Timer() Label1.Caption = Time End Sub 【例7.2】建立一个文字移动的动画程序。程序运行结果如图7-3所示。 分析：文字移动可以利用标签的move属性。如果每隔一段时间就让标签移动一次就能产生动画的效果，用时钟控件的timer事件正好可以实现每隔一段时间执行一次事件过程。用移动量的正负可以实现左右移动。把标签移动的代码写在timer事件过程中就可以实现文字移动的动画效果。 编写程序代码 Dim cx As Integer 定义一个移动增量 Private Sub Command1_Click() Timer1.Enabled = True End Sub ?Private Sub Command2_Click() Timer1.Enabled = False End Sub ?Private Sub Form_Load() Timer1.Enabled = False cx = 50 End Sub Private Sub Timer1_Timer() Label1.Move Label1.Left + cx 标签移动 If Label1.Left + Label1.Width ScaleWidth Then cx = -50 移到右边时开始向左移动 If Label1.Left = 0 Then cx = 50 移到左边时开始向右移动 End Sub 7.2.1单选按钮 单选按钮控件（OptionBotton）通常成组出现，主要用于处理“多选一”的问题。 1.常用属性 (1) Value属性 用于设置单选按钮状态。True表示选定；False表示未选定。 (2) Caption属性 显示出现在单选按钮旁边的文本。 (3) Alignment属性 用于设置单选按钮旁边的文本在圆圈的左边或者右边。其值为0或1。值为0时表示控件钮在左边，标题显示在右边；值为1时，反之。 (4) Style属性 用于设置单选按钮外观。其值为0或1。值为0时为标准样式；值为1时外观类似于命令按钮。 2.常用事件 单选按钮控件（OptionBotton）常用事件是Click事件。 【例7.3】设计一个程序，界面由一个文本框和两个单选按钮组成，用户单击不同的按钮，文本框中显示相应的结果。程序界面设计如图7-4所示。 【例】设计如下图所示的界面；当单击某个单选钮，在标签中显示相应的字体。运行结果如图所示。 7.2.2复选框 复选框（CheckBox）也称检查框，主要功能是从用户处获取“是”或“否”的信息。可以处理“多选多”的问题，与单选按钮一起统称为选项按钮。 复选框控件和单选按钮控件功能相似，但是二者存在的主要差别在于： 单选按钮控件在使用过程中通常由两个以上的单选按钮组成选项组，而这些单选按钮在同一时刻只能选一个；相反，用复选框控件则可以选择多个数量的控件。 1.常用属性 (1) Value属性 用于设置复选框状态。 复选框Value属性值有3种情况。0-VbunChecked表示未选中（默认值），此时按钮小方框空白；1- VbChecked 表示选中，此时按钮小方框有一小对勾；3- VbGrayed表示不确定或不一致，此时按钮为灰色。 (2) Caption属性 用于设置复选框文本标题。 (3) Alignment属性 类似单选按钮该属性。 (4) Enabled属性 可通过设置Enabled的属性