Question

vb中计时器控件简单问题

如果设timer的interval属性为500的话，激活timer后要过0.5秒后才开始执行，有没有办法让它在激活之后马上执行？

Answer 1

private
sub
form_load()
'窗体加载事件
timer1.interval=100
'设置计时器计数区间为100毫秒，就是0.1秒
end
sub
private
sub
timer1_timer()
'计时到时间
label1.caption=":"&
time
'修改label1的内容为
:+time
if
label1.left<form1.width
then
'只要label1的x轴位置没超出窗口宽度，就把位置加50像素，否则设置位置为200像素
label1.left=label1.left+50
else
label1.left=200
end
if
end
sub
问题2：计时器如何转换为文字效果？
这个要手动实现，加一个label控件或者text控件，加一个全局变量，然后在timer时间里面进行计算变量，然后显示在label或者text控件里。

Answer 2

好像不行，不过你可以把你计时器中的执行代码放在form_load事件中。比如你计时器执行的代码是 msgbox “计时器”，那你把这条语句放在
private sub form_load()
end sub
中即可。

Answer 3

你看下是不是这个效果，
注意：在属性那里设timer的interval属性为0，一定要哦！
希望可以帮到你！

Private Sub Form_Load()
Text1.Text = ""
Timer1.Interval = 1
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Text1.Text = Now
Timer1.Interval = 500
End Sub

Answer 4

Form_load
加载一遍代码，再Call timer

Answer 5

Private Sub Command1_Click()
'执行一遍
Timer1.enable = True
End Sub