vb中timer的使用

2024年11月23日 08:01

有1个网友回答

网友（1）：

能派扮接受变量:

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

Private Sub Timer1_Timer()
n=Int(Rnd * 1000)
Timer2.Interval = n
'或备培是直接 Timer2.Interval = Int(Rnd * 1000)
End Sub

Private Sub Timer2_Timer()
'正常仿羡唯的timer需要实现的功能
End Sub