If (btna.Text = "START") Then
btna.Text = "STOP"
Timer1.Enabled = True
Else : btna.Text = "START"
Timer1.Enabled = False
End If
End Sub
我按左button時﹐佢唔會走,當txt.text>0.1時,會走。但到txt.text<0.1時會stop。
要加d咩也???
更新1:
要點改ar... please help me
更新2:
If Me.CheckBox1.Checked Then i = i - 1 Else i = i + 1 End If If i = -1 Then i = 7 End If If i > 7 Then i = 0 End If PictureBox1.Image = ImageList1.Images(i)