我刚学VB，请教各位高手一个问题

Question

在timer1的timer事件中写下你闪烁的代码，然后把timer1的Interval属性设置为某个以毫秒为单位的数值，在timer事件中的代码就会每隔你设置的毫秒数执行一次。

Answer 1

代码如下:
Private Sub StartCmd_Click()
  On Error GoTo errhandler
  If StartCmd.Tag = 0 Then
    Timer1.Interval = Text1.Text  '自己输入的闪烁间隔
    Timer1.Enabled = True         '时钟开始
    StartCmd.Caption = "停止"
    StartCmd.Tag = 1
  Else
    StartCmd.Tag = 0
    Timer1.Enabled = False
    StartCmd.Caption = "开始"
  End If
errhandler:
  Exit Sub
End SubPrivate Sub ChangeColor()
  If BackGround.Tag = 0 Then
    Green.Visible = False
    Red.Visible = True
    BackGround.Tag = 1
  Else
    BackGround.Tag = 0
    Green.Visible = True
    Red.Visible = False
  End If
End SubPrivate Sub Timer1_Timer()
  Call ChangeColor
End Sub还有不明白告我EMAIL,我给你发过去.

Answer 2

代码如下:
Private Sub StartCmd_Click()
  On Error GoTo errhandler
  If StartCmd.Tag = 0 Then
    Timer1.Interval = Text1.Text  '自己输入的闪烁间隔
    Timer1.Enabled = True        '时钟开始
    StartCmd.Caption = "停止"
    StartCmd.Tag = 1
  Else
    StartCmd.Tag = 0
    Timer1.Enabled = False
    StartCmd.Caption = "开始"
  End If
errhandler:
  Exit Sub
End SubPrivate Sub ChangeColor()
  If BackGround.Tag = 0 Then
    Green.Visible = False
    Red.Visible = True
    BackGround.Tag = 1
  Else
    BackGround.Tag = 0
    Green.Visible = True
    Red.Visible = False
  End If
End SubPrivate Sub Timer1_Timer()
  Call ChangeColor
End Sub还有不明白告我EMAIL,我给你发过去.
 
  

Answer 3

可以用三个Timer控件分别控制。

Answer 4

1个Timer控件控制。
你把三个图

Answer 5

闪烁可用VISUAL属性，定时要用TIEMER控件，剩下的代码很简单，这里不在罗嗦。

Answer 6

用timer控件完全可以解决，像trueiceman大哥的代码就可以了，到时可别忘了给trueiceman大哥加分阿