作者tenrehte (就这样保持下去)
看板Visual_Basic
标题[VB6 ] timer的问题
时间Mon Feb 27 21:58:32 2006
Dim X As Integer
Dim flag As Integer
______________________________________________________________
请问我timer1的变数是用flag
可是执行完timer1之後
timer2却不会动(变数是x)
有人知道该怎麽让timer2接在timer1下面动作吗？
以下是我的内容
Private Sub Form_Load()
X = 0
flag = 0
End Sub
Private Sub Text1_Change()
End Sub
Private Sub Timer1_Timer()
If flag = 0 Then Shape1.Top = Shape1.Top + 50
If flag = 1 Then Shape1.Top = Shape1.Top - 50
If (Shape1.Top + Shape1.Width >= Line1.Y1) Then flag = 1
If (Shape1.Top + Shape1.Width >= Line1.Y1) Then Beep 700, 100
If (Shape1.Top <= Line2.Y1) Then flag = 0
If (Shape1.Top <= Line2.Y1) Then Beep 700, 100
End Sub
Private Sub Timer2_Timer()
If X = 0 Then Shape2.Top = Shape2.Top + 50
If X = 1 Then Shape2.Top = Shape2.Top - 50
If (Shape2.Top + Shape2.Width >= Line1.Y1) Then X = 1
If (Shape2.Top + Shape2.Width >= Line1.Y1) Then Beep 700, 100
If (Shape2.Top <= Line3.Y1) Then X = 0
If (Shape2.Top <= Line3.Y1) Then Beep 700, 100
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.129.40.134
1F：→ abgne:timer2有设interval吗? 02/28 09:47