Question

vb求一个timer的代码

大致这个样子，
没一分钟，label1的数值增加1
而且当label1.caption=5时，label1.forecolor=vbred
很简单，但我运行总是有问题，谢谢了

Answer 1

Option Explicit
Private WithEvents Timer1 As Timer
Private WithEvents label1 As Label

Private Sub Form_Load()
Set Timer1 = Controls.Add("VB.Timer", "Timer1")
Set label1 = Controls.Add("VB.Label", "label1")

Timer1.Interval = 1000
Timer1.Enabled = True

With label1
.AutoSize = True
.FontSize = 12
.Caption = 0
.Move (Me.Width - .Width) / 2
.Visible = True
End With
End Sub

Private Sub Timer1_Timer()
With label1
.Caption = Val(.Caption) + 1
If .Caption >= 5 Then
.BackColor = vbRed
Timer1.Enabled = False
End If
End With
End Sub

Answer 2

private sub timer1_timer()label1.caption = label1.caption + 1 if label1.caption>= 5 thenlabel1.backcolor = vbredend ifend sub

Answer 3

你用t另外一个time控件美秒钟触发一下检查leble控件的属性不就可以了

Answer 4

timer1_timer() label1.caption =单位是毫秒