其他常用控件

408 阅读2分钟

一、滚动条(HScrollBar/VScrollBar)

1.介绍

滚动条不仅能出现在文本类控件(文本框、列表框、组合框)的边缘以滚动文本内容。而且它还是一种相当不错的“模糊”输入与定位控件,当不需要精确设置数值,只要一个大概的范围,使用滚动条来进行输入是非常方便的。

滚动条分为水平滚动条(HScrollBar)与垂直滚动条(VScrollBar)两种,除了走向不同外,其使用、设置均相同。每个滚动条都由3部分构成:2个滚动按钮与1个滚动块。

2.使用

(1)滚动条属性设置

属性名称描述
Min滚动块位于滚动条顶端或左端
Max滚动块位于滚动条底端或右端
LargeChange在滚动条上空白处单击时,滚动条数值的增减量,默认为1
SmallChange在滚动条两端的滚动箭头时,滚动条数值的增减量,默认为1
Value滚动条的当前值

(2)滚动条使用 Scroll事件:当使用鼠标直接拖动滑块时将触发Scroll事件。 Change事件:当滚动条上的滚动块位置发生改变后触发事件。

小练习

创建一个标签和一个滚动条,通过滚动条来设置字号的大小。

  • 最小值为10
  • 最大值为60 image.png

二、定时器(Timer)

1.介绍

定时器是一种特殊的控件,它能右规律的以一定的时间间隔激发定时器事件。 主要有两个功能:一是定时完成某项任务;二是进行某种后台处理。定时器在运行是并不可见,因而其在窗体上位置并不重要,通常只需要在工具箱中双击即完成创建。

2.使用

(1)时间间隔(Interval)

属性反映引发两次Timer事件的时间间隔,以毫秒为单位,取值范围为0~64767ms之间。

(2)是否工作(Enabled)

当Enabled为true时表示定时器开始工作(默认状态),为False时表示定时器停止工作。

(3)Timer事件

每次时间都会触发Timer事件。

Dim n As Integer
n = 10
Private Sub timer1_Timer()
   n = n -1 '每次时间间隔都会减一
End Sub

小练习

做一个60秒的倒计时,包含3个按钮,分别为:

  1. 【启动】:点击后从当前时间开始倒计时。
  2. 【暂停】:点击后暂停倒计时。
  3. 【重置】:点击后数字恢复到60秒,并且暂停倒计时。

image.png