首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

mousemove事件跟timer事件

2012-12-26 
mousemove事件和timer事件比如把timer的interval设置为500,意思就是让他的执行频率高一点,那么当鼠标移动

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编写的程序默认是单线程

热点排行