vb timer空间相关问题。汗……

你这个代码没错。

这个问题很简单~~~
Private Sub Form_Load()
timer1.Interval=60000
timer1.enabled=false
End Sub
Private Sub Text1_Change()
If IsNumeric(Text2.Text) = False Then
MsgBox "请输入数字"
End If
End Sub
Private Sub Text2_Change()
If IsNumeric(Text2.Text) = True Then
  If Text2.Text > 60 Or Text2.Text < 0 Then
    MsgBox "错误数据"
  Else
 End If
 Else
MsgBox "错误数据"
End If
End Sub
Private Sub Timer1_Timer()
Text2.Text = Text2.Text - 1
Label3.Caption = Text1.Text & ":" & Text2.Text
If Text2.Text = 0 Then
 If Text1.Text = 0 Then
  MsgBox "时间到"
  Timer1.Enabled = False
  
 Else: Text2.Text = 60
       Text1.Text = Text1.Text - 1
End If
End If
 
End Sub

回复：2楼
代码本身是没错的啦，但是我不想再label中出现系统时间，而是通过text1和text2中的数来决定label1。caption？
实现不了

time就是系统时间的代码……

label3.Caption=& text1.text & text2.text'这段代码不知道是否正确的
然后建立2个全局变量a ,b
a=text1.text'
b=text2.text
'然后，开始计时的时候时钟时间开始
if b<=0 then
a=a-1
text1.text=a
b=60
text2.text=b
label3.Caption=& text1.text & text2.text'
else
b=b-1
text2.text=b
label3.Caption=& text1.text & text2.text'
end if


再补充一句，这个跟我之前做的一个简易计时器很像，楼主要不要看看？看一下你就应该懂怎么做倒计时了。

label3.Caption=+ text1.text + ":" + text2.text
楼主也可以试试这个来显示……对&和+我都不是很会。

Dim hour, minute
Private Sub Form_Load()
hour = "**"
minute = "**"
End Sub
Private Sub Command1_Click()
    hour = Format(Text1.Text, "00")
    minute = Format(Text2.Text, "00")
End Sub
Private Sub Timer1_Timer()
    Label3.Caption = Text1 & ":" & Text2
    If Mid$(Time$, 1, 5) = hour + ":" + minute Then
    hour = "**"
    minute = "**"
    MsgBox$ ("时间到")
    End If
End Sub
Sub command2_click()
End
End Sub

谢谢大家，辛苦了……我vb还属菜鸟级，继续摸索中