查人人中国名人网太原市公安局迎泽分局:关于VB Timer的问题
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/29 15:59:28
原程序如下::
Dim Time As Single
Private Sub Command1_Click()
Time = 1
Timer1.Interval = 10000
End Sub
Private Sub Form_Load()
Time = 0
End Sub
Private Sub Timer1_Timer()
If Time = 0 Then
Label1.Caption = "本软体由武宇乾制作 "
Time = 1: Timer1.Interval = 10000
ElseIf Time = 1 Then
Label1.Caption = "你在干什么?我快睡着了!"
Time = 2
ElseIf Time = 2 Then
Time = 3: Label1.Caption = ""
Timer1.Interval = 500
ElseIf Time = 3 Then
Time = 4: Label1.Caption "Zzz"
ElseIf Time = 4 Then
Time = 5: Label1.Caption "Zzz Zzz"
ElseIf Time = 5 Then
Time = 2: Label1.Caption = "Zzz Zzz Zzz"
End If
End Sub
用Timer1控制时间,用变量Time决定显示Label1的内容
初附直Time=0
另设一个Command1使一切复原.
本以为天衣无缝,谁知道程序运行完前三秒就出错,谁能教我哪里错了,应该怎么改,我市VB新手!!
错误在Private Sub Timer1_Timer() 一句
初始值是3000
显示:"编译错误:属性的使用无效"
那么应该怎么初始化???
enabled为true
Timer1.Interval 为3000
先前不加IF语句时可以正常运行
即:Private Sub Timer1_Timer()
Label1.Caption = "本软体由武宇乾制作 "
End Sub
可以正常运行!然后设置了Time变量,进行 Label1.Caption 的显示选择,结果出现问题
呵呵，我晕了，你刚学VB吧？
不是我说你，这个错误犯得有点...
Private Sub Timer1_Timer()
If Time = 0 Then
Label1.Caption = "本软体由武宇乾制作 "
Time = 1: Timer1.Interval = 10000
ElseIf Time = 1 Then
Label1.Caption = "你在干什么?我快睡着了!"
Time = 2
ElseIf Time = 2 Then
Time = 3: Label1.Caption = ""
Timer1.Interval = 500
ElseIf Time = 3 Then
Time = 4: Label1.Caption "Zzz"
ElseIf Time = 4 Then
Time = 5: Label1.Caption "Zzz Zzz"
ElseIf Time = 5 Then
Time = 2: Label1.Caption = "Zzz Zzz Zzz"
End If
End Sub
改为
Private Sub Timer1_Timer()
If Time = 0 Then
Label1.Caption = "本软体由武宇乾制作 "
Time = 1: Timer1.Interval = 10000
ElseIf Time = 1 Then
Label1.Caption = "你在干什么?我快睡着了!"
Time = 2
ElseIf Time = 2 Then
Time = 3: Label1.Caption = ""
Timer1.Interval = 500
ElseIf Time = 3 Then
Time = 4: Label1.Caption = "Zzz"
ElseIf Time = 4 Then
Time = 5: Label1.Caption = "Zzz Zzz"
ElseIf Time = 5 Then
Time = 2: Label1.Caption = "Zzz Zzz Zzz"
End If
End Sub
OK啦我测试过了
Time = 4: Label1.Caption "Zzz"
Time = 5: Label1.Caption "Zzz Zzz"
上两句中Label1.Caption 后却=号,所以报错.
无限阶梯 是我看不清还是怎么,你下面的代码合他的有区别嘛?