Skip to content

WaynesTimer 类

非可视定时器控件。封装内部 CustomControlTimer 并暴露其 Interval / Enabled 作为设计器可见属性——在设计时将 WaynesTimer 拖放到 WaynesForm 上,设置间隔,处理 Timer 事件即可按重复计划运行代码。

在设计时,控件在其矩形中居中绘制一个 🕑 时钟图标,背景为浅灰色,缩放以适应控件。在运行时控件不可见——其可见的 WidthHeight 在初始化时被限制为 32×32,但控件本身不绘制任何内容。

vb
Private Sub Form_Load()
    Timer1.Interval = 1000
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    lblClock.Caption = Format$(Now(), "hh:nn:ss")
End Sub

属性

Anchors

调整大小时控件的哪些边附着到其容器。Anchors。继承。(运行时无视觉效果,因为控件不绘制任何内容。)

Dock

控件在其容器内的停靠方式。DockMode 的成员。继承。

Enabled

定时器当前是否正在运行。设置为 True 启动;设置为 False 停止。Boolean

语法:object.Enabled [ = value ]

Height

控件的高度(像素)。PixelCount。继承。初始化时强制为 32。

Interval

连续 Timer 事件之间的毫秒数。Long。值为 0 表示定时器永不触发。

语法:object.Interval [ = value ]

在定时器启用时更改 Interval 会在下一次计时生效。

Left

控件左边缘距其容器的水平偏移量(像素)。PixelCount。继承。

Name

控件在其父窗体上的唯一设计时名称。String。继承。

Top

控件上边缘距其容器的垂直偏移量(像素)。PixelCount。继承。

Visible

控件当前是否显示。Boolean。继承。(运行时无视觉效果。)

Width

控件的宽度(像素)。PixelCount。继承。初始化时强制为 32。

事件

Timer

EnabledTrue 时每隔 Interval 毫秒触发。

语法:object_Timer( )

twinBASIC及其LOGO版权为作者"韦恩"所有