Timer1.Interval = 1000
怎么让 1000 这个数字等于text1.text中的值
假如text1.text 中的值为2000
那么Timer1.Interval = (text1.text中的值)
我试过如下代码都不好使
Timer1.Interval = text1.text 不管用
Timer1.Interval = 1+text1.text 不管用
声明一个变量
Dim aa As Integer
text1.text=aa
Timer1.Interval = aa 也不管用
Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = Val(Text1.Text)
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Label1.Caption - 1
End Sub
我测试可以呀
Timer1.Interval = text1.text 这个语句来设置时钟是可以的，
主要还是看你这个语句是写在什么地方
这个语句不能写在Timer1_Timer这个事件里面
Timer1.Interval 是一个整形值,text1.text是一个字符串，自然不能直接赋值
Timer1.Interval = Val(text1.text)
用VALUE(text1.text)代替text1.text
因为text1.text是文本的,而Timer1.Interval是数值的
是Timer1.Interval = int(text1.text)
text1.text是文本，不是值
Dim aa As Integer
text1.text=aa
Timer1.Interval = aa 也不管用
应该是：
Dim aa As Integer
aa=text1.text
Timer1.Interval = aa 也不管用