VB定时器问题.

来源：百度知道 编辑：UC知道 时间：2024/06/19 15:31:34
我想变量I的数值没秒加1
就是每秒执行一次:i=i+1
用定时器怎么实现??
Private Sub Timer1_Timer()
i = i + 1
End Sub

我也是这样写的.
可惜加了1后以后就不会加了

拖两个控件:timer和textbox
Timer1.interval=1000
textbox设置成不可见
初值为0

Private Sub Timer1_Timer()
dim i as integer
i=val(text1.text)
i=i+1
text1.text=i
End Sub
以后要调用到i的话就直接用val(text1.text)
你那个加到1后不加了是因为没有保存更改后的值

Public i As Integer
Private Sub Timer1_Timer()
i = i + 1
End Sub