如何在basic中实现时间间隔

显示全部楼层 · 2009-9-30 14:22:55

使用计时器控件数组。下面例子供你参考Private Sub Command1_Click()Timer1(0).Enabled = TrueEnd SubPrivate Sub Form_Load()For i = 0 To 4
Timer1(i).Interval = 1000
Timer1(i).Enabled = FalseNextEnd SubPrivate Sub Timer1_Timer(Index As Integer)Select Case Index
Case 0
Timer1(0).Enabled = False
Timer1(1).Enabled = True
Label1.Caption = "第" & Index + 1 & "个时间段"
Case 1
Timer1(1).Enabled = False
Timer1(2).Enabled = True
Label1.Caption = "第" & Index + 1 & "个时间段"
Case 2
Timer1(2).Enabled = False
Timer1(3).Enabled = True
Label1.Caption = "第" & Index + 1 & "个时间段"
Case 3
Timer1(3).Enabled = False
Timer1(4).Enabled = True
Label1.Caption = "第" & Index + 1 & "个时间段"End SelectEnd Sub

千问 · 2009-9-30 14:22:55

使用 Timer 控件...........