读书人

mousemove事件跟timer事件

发布时间: 2012-12-26 14:39:28 作者: rapoo

mousemove事件和timer事件
比如把timer的interval设置为500,意思就是让他的执行频率高一点,那么当鼠标移动时,到底是执行mousemove事件呢还是timer事件?或者说是2者同事执行?
[解决办法]
同时执行吧?
[解决办法]

引用:
同时执行吧?

可以吗?
[解决办法]
似乎不能。
Option Explicit

Private Sub Form_Load()
Timer1.Interval = 100
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Caption = X & " " & Y
End Sub

Private Sub Timer1_Timer()
Dim i As Long
Form1.Caption = Time
For i = 0 To 10000000
If i = 10000000 Then Print Date
If i = 0 Then Cls
Next
End Sub

测试下就知道了
[解决办法]
运行的时候鼠标在窗体上移动,可看到执行timer代码时,move代码是不执行的

[解决办法]
VB编写的程序默认是单线程

读书人网 >VB

热点推荐