关于DoEvents 函数使用心得

彭希仁

DoEvents 函数

      

转让控制权，以便让操作系统处理其它的事件。

语法

DoEvents( )
 

说明

DoEvents 函数会返回一个 Integer，以代表 Visual Basic 独立版本中打开的窗体数目，例如，Visual Basic，专业版，在其它的应用程序中，DoEvents 返回 0。

DoEvents 会将控制权传给操作系统。当操作系统处理完队列中的事件，并且在 SendKeys 队列中的所有键也都已送出之后，返回控制权。

DoEvents 对于简化诸如允许用户取消一个已启动的过程 — 例如搜寻一个文件 — 特别有用。对于长时间过程，放弃控制权最好使用定时器或通过委派任务给 ActiveX EXE 部件来完成。以后，任务还是完全独立于应用程序，多任务及时间片由操作系统来处理。

小心 确保以 DoEvents 放弃控制权的过程，在第一次 DoEvents 返回之前，不能再次被其他部分的代码调用；否则会产生不可预料的结果。此外，如果其它的应用程序可能会和本过程以不可预知的方式进行交互操作，那么也不要使用 DoEvents，因为此时不能放弃控制权。

应用1

如编写秒表

Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long
Const VK_NUMLOCK = &H90
Const VK_SCROLL = &H91
Const VK_CAPITAL = &H14
Dim zt, ks, t
Sub 开始()
    Dim keys(0 To 255) As Byte
    t = Timer
    ks = 1
    zt = 0
    For x = 1 To 250
        DoEvents
        GetKeyboardState keys(0)
        If keys(39) > 127 Then zt = 0
        If keys(37) > 127 Then zt = 1
        If keys(40) > 127 Then ks = 0
        If zt = 0 Then Cells(1, 2) = Timer - t
        If x = 250 Then x = 0
        If ks = 0 Then Exit Sub
    Next x
End Sub

Sub 暂停()
    If zt <> 0 Then
        zt = 0
        t = Timer - Cells(1, 2)
    Else
        zt = 1
    End If
End Sub

Sub 结束()
    ks = 0
End Sub

K4b4k20Y.rar (15.16 KB, 下载次数: 396)

2007-10-29 15:36 上传

点击文件名下载附件
关于DoEvents 函数使用心得

[此贴子已经被作者于2007-10-29 15:36:46编辑过]

彭希仁

GetKeyboardState

VB声明
Declare Function GetKeyboardState Lib "user32" Alias "GetKeyboardState" (pbKeyState As Byte) As Long
说明
取得键盘上每个虚拟键当前的状态
返回值
Long，非零表示成功，零表示失败。会设置GetLastError
参数表
参数 类型及说明
pbKeyState Long，总共含256个条目的字节数组中的第一个项目。每个字节都会附带载入与虚拟键对应的状态。如开关键打开，则位0设为1（开关键包括CapsLock， NumLock， ScrollLock）；如某个键当时按下，则位7为1；如已经抬起，则为0

注解
虚拟键码常数 VK_? 作为数组的索引使用。这个函数相应于取得按键状态于一瞬间的“快照”——键按下或松开以后，数组不会自动更新。在win32中注意用一个字节数组避免由于vb向Unicode的内部转换而导致错误

XUZHANCHENG

学习了，

minjiwei

QUOTE:

以下是引用彭希仁在2007-10-29 16:26:48的发言：

GetKeyboardState

VB声明
Declare Function GetKeyboardState Lib "user32" Alias "GetKeyboardState" (pbKeyState As Byte) As Long
说明
取得键盘上每个虚拟键当前的状态
返回值
Long，非零表示成功，零表示失败。会设置GetLastError
参数表
参数 类型及说明
pbKeyState Long，总共含256个条目的字节数组中的第一个项目。每个字节都会附带载入与虚拟键对应的状态。如开关键打开，则位0设为1（开关键包括CapsLock， NumLock， ScrollLock）；如某个键当时按下，则位7为1；如已经抬起，则为0

注解
虚拟键码常数 VK_? 作为数组的索引使用。这个函数相应于取得按键状态于一瞬间的“快照”——键按下或松开以后，数组不会自动更新。在win32中注意用一个字节数组避免由于vb向Unicode的内部转换而导致错误

还是不太明白，楼主能不能再给一个例子？

彭希仁

Dim keys(0 To 255) As Byte   '定义一个数组

DoEvents     '只有增加了此函数GetKeyboardState函数才能取得键盘上每个虚拟键当前的状态，否则就是程序运行之前的虚拟键的状态，即程序执行过程中，程序不能接收键盘的控制信息（中断除外）。 

GetKeyboardState keys(0)     '取得键盘上每个虚拟键当前的状态 

        If keys(39) > 127 Then zt = 0    　 'Keys(39)>127代表键盘上右方键按下去了。
        If keys(37) > 127 Then zt = 1　　　'Keys(37)>127代表键盘上左方键按下去了。　　
        If keys(40) > 127 Then ks = 0　　'Keys(40)>127代表键盘向下方键按下去了。

即键盘上每一个键都有对应的keys(N),为什么是>127呢，因为二进制的第七位等于1相当十进制128。

[此贴子已经被作者于2007-10-30 8:18:50编辑过]

minjiwei

研究中，谢谢

老申

向楼主学习！！！

萝卜菜

学习

ifhwfu

不错！！

ae068

收藏！慢慢领悟！
有你的奉献才有大家的进步