VB编程timer问题，哭求解答

来源：百度知道 编辑：UC知道 时间：2024/06/04 18:48:09
VB语言程序

Private Sub Check1_Click()
If Check1.Value = 1 Then
Timer1.Interval = Val(Text2)
Timer1.Enabled = ture
Text3.Text = Timer1.Interval
Else
Timer1.Enabled = False
End If
End Sub

Private Sub Timer2_Timer()
Text1.Text = Timer2.Interval
End Sub

代码如上，想达到的效果是，选上check1的时候，会把text2中的数值传递给text1。目的是测试下timer1是否起作用。但是怎么调都失败。
测试开始后TEXT2的数字能传到text3，但是无法传到TEXT1。可能是TIMER1没有生效吧。
请问各位前辈，timer插件用的时候需要什么声明么？如果不用，为什么我这个TIMER好像不能生效呢？

哭求一个解决方法啊。。。。定时离不开TIMER啊，这个过不去我编不了程序了。。。
刚看了几个前辈的回答，更正一个问题Private Sub Check1_Click()
If Check1.Value = 1 Then
Timer1.Interval = Val(Text2)
Timer1.Enabled = ture
Text3.Text = Timer1.Interval
Else
Timer1.Enabled = False
End If
End Sub

Private Sub Timer1_Timer()
Text1.Text = Timer1.Interval
End Sub
下面更正成Timer1也无效。。。。。郁闷。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Timer1.Enabled = ture 应该是True
然后注意了，你要在定时器的属性里设置一下Interval值，不要让它等于0
否则你在Text2中输入一个比较大的值是，需要等待一段时间Text1才会显示文本，还有Interval最大为65535，不可以超过这个，否则会报错！
这样应该没问题了，你试试！

你的Text1只在 Timer2_Timer() 中出现了，其他地方并不控制它。
那你点不点check1和Text1有什么关系呢？
程序没问题，结果也没有问题，有问题的是你没有控制Text1

Private Sub Check1_Click()
Timer1.Interval = Val(Text2.Text)
Timer1.Enabled = True
Text1.Text = Timer1.Interval
Text3.Text = Timer1.Interval
End Sub
就足够了，为什么要加上if语句？你只要单击它，那么它就定为1,根本不用判断。
此外，我就奇怪，Text2的值可以返回给Text3,为什么就不能返回给Text1？