Question

请问VB中TIMER 怎么执行TIMER事件之后 返回TIMER之前的原形 ？

Answer 1

窗体上放两个Shape和两个Timer控件：

Private Sub Command1_Click()
Timer1.Interval = 1000
Timer1.Enabled = True
Timer1_Timer
End Sub

Private Sub Timer1_Timer()
Static n As Integer
Me.Caption = Now
n = n + 1
If n <= 3 Then
  Shape2.FillColor = &H8000000F
  Timer2.Interval = 200
  Timer2.Enabled = True
Else
  n = 0
  Shape2.FillColor = vbRed
  Timer1.Enabled = False
End If
End Sub

Private Sub Timer2_Timer()
Shape2.FillColor = vbGreen
Timer2.Enabled = False
End Sub

 

Answer 2

你把 Timer 之前的状态保存下来，执行完 Timer 之后再恢复

追问

其实应该不要用到保存吧
这是要求 你能不能帮我做一下？

1．（10分）窗体中纵向排列一黑一绿的两个圆形Shape控件用以模拟信号灯，以及一个命令按钮。
2．为按钮Command1的单击事件编写过程代码，功能为：
⑴（10分）在窗体标题中显示系统时间；
⑵（5分）“绿灯”闪烁三次，每次1秒，然后变黑色；
⑷（5分）“红灯”长明。

追答

代码给我

Answer 3

timer应该用起来比较方便啊

追问

你好
这是代码
1．（10分）窗体中纵向排列一黑一绿的两个圆形Shape控件用以模拟信号灯，以及一个命令按钮。
2．为按钮Command1的单击事件编写过程代码，功能为：
⑴（10分）在窗体标题中显示系统时间；
⑵（5分）“绿灯”闪烁三次，每次1秒，然后变黑色；
⑷（5分）“红灯”长明。

你能不能帮我看一下怎么做？第二问第二个我做不出来