Question

【VB】为什么我用按钮使timer1的enabled=true以后timer事件不会触发呢？

timer1在form_load的时候enable为false
我用gettickcount函数可以得到准确的结果，但是timer就是不工作。。。求解

Answer 1

Dim tim '没有定义成全局变量
Private Sub Timer1_Timer()
tim = tim + 1
End Sub

Private Sub Command1_Click()
Text1.Text = ""
Timer1.Enabled = True
Do
DoEvents
LngTmp = LngTmp + 1
If LngTmp = 5000 Then Exit Do
Loop
MsgBox "time=" + Str(tim) + "ms", , "Time"
tim = 0
End Sub

追问

不需要全局变量，模块级变量就行了
我已经知道原因了，只是msgbox的性质而已，和其他代码没有关系

追答

Do
DoEvents
LngTmp = LngTmp + 1
If LngTmp = 5000 Then Exit Do
Loop

Answer 2

这样就好了：
Dim tim
Private Sub Timer1_Timer()
tim = tim + 1
End Sub

Private Sub Command1_Click()
Text1.Text = ""
Timer1.Enabled = True
For i = 1 To 10000
Next i
'中间还有一段冒泡排序，代码太长了不让贴。。。
MsgBox "time=" + Str(tim) + "ms", , "Time"
tim = 0
End Sub

追问

和原代码差别在哪。。。？

追答

主要是定义了一个模块级变量：Dim tim
中间加的代码是为了延迟时间：
For i = 1 To 10000
Next i
你不用加的。也就是说，你需要在你代码的最前面加上：Dim tim

追问

我本来就有这个模块级变量。。。

追答

用我的代码可以了吧！

追问

您想太多了。。。完全没差别。。。

Answer 3

MsgBox "time=" + Str(tim) + "ms", , "Time"
应为

MsgBox "time=" + cStr(tim) + "ms", , "Time"

数值转换成文本，或者干脆就是 & tim & "ms"

追问

我想应该也不是这个问题，timer事件完全没有被触发，同样的输出方式对另一个数据就可以正常的输出，在timer事件里写了其他的命令也没有被触发

追答

tim = tim + 1
debug.print tim

试一下，确认触发没

追问

我自己试过很多次啦。。。确实没有触发啊。。。

追答

timer1.enable=true
tim = tim + 1
debug.print tim

追问

timer1.enabled=true
这一句确实执行了，print timer1.enabled也可以打印出true

刚刚发现timer总是在msgbox关闭之后才工作。。。而不是完全不工作。。。这又是为什么？

追答

因为弹出msgbox后，程序就暂停了，所以你要关闭，然后程序才会向下走

追问

好像是这么回事。。。但是在msgbox弹出之前程序不应该仍然在运行么？

追答

弹出之前是应该在运行，会不会是别的原因？这一小段肯定没问题

追问

Private Sub Command1_Click()
Text1.Text = ""
Timer1.Enabled = True
For i = 1 To m - 1
For j = i To m
If a(j) < a(i) Then
t = a(i): a(i) = a(j): a(j) = t
End If
Next j
Next i
For i = 1 To m
Text1.Text = Text1.Text + Str(a(i))
Next i
Timer1.Enabled = False
MsgBox "time=" + Str(tim) + "ms", , "Time"
tim = 0
End Sub

按钮的事件如上，在Enabled=True到False运行时间超过200

追答

冒泡效率本身就不高。这段没啥问题吧，200这个取决于你的interval。
For i = 1 To m
Text1.Text = Text1.Text + Str(a(i))
Next i

改成 text1.text=join(a," ") 行不

追问

不行，而且join函数用时间更长。。。

Answer 4

没有设置Interval 属性
返回或设置对 Timer 控件的计时事件各调用间的毫秒数。

语法

object.Interval [= milliseconds]

Interval 属性语法有以下组成部分：

部分 描述
object 对象表达式，其值是“应用于”列表中的一个对象。
milliseconds 数值表达式，指定毫秒数，“设置值”中有详细说明，。

设置值

milliseconds 的设置值为：

设置值 描述
0 （缺省值）使 Timer 控件无效。
1 to 65,535 设置的时间间隔（以毫秒计），在 Timer 控件 Enabled 属性设置为 True 时开始有效，例如，10，000 毫秒等于 10 秒。最大值为 65，535 毫秒，等于 1 分钟多一些。

说明

可以在设计时或在运行时设置 Timer 控件的 Interval 属性。使用 Interval 属性时，请记住：

Timer 控件的 Enabled 属性决定该控件是否对时间的推移做响应。将Enabled 设置为 False 会关闭 Timer 控件，设置为 True 则打开它。当 Timer 控件置为有效时，倒计时总是从其 Interval 属性的设置值开始。

创建 Timer 事件程序用以告诉 Visual Basic 在每次 Interval 到时该做什么。

追问

。。。不是这个原因。。。
我贴一下代码给你看看。。。谢谢了
Private Sub Timer1_Timer()
tim = tim + 1
End Sub

Private Sub Command1_Click()
Text1.Text = ""
Timer1.Enabled = True
‘中间还有一段冒泡排序，代码太长了不让贴。。。
MsgBox "time=" + Str(tim) + "ms", , "Time"
tim = 0
End Sub

追答

你的思路有问题，计时时间远远大于Command1_Click的执行时间，所以你的代码tim 总是0，属于你设计的问题

追问

也不是这个问题，因为我的排序数组设置得很大，实际时间肯定会超过1ms

追答

如何肯定？

追问

我用gettickcount可以得到结果啊。。。在250~600ms之间