laoliu09 发表于 2005-1-10 17:08:00

怎样判断我按了ESC键？？？

怎样判断我按了ESC键？？？

mccad 发表于 2005-1-10 21:46:00

'判断某一键盘键自上次调用该函数以来是否被按过的API函数<BR>Declare        Function        GetAsyncKeyState        Lib        "user32"        (ByVal        vKey        As        Long)        As        Integer



Private        Const        VK_ESCAPE        =        &amp;H1B


ESC        =        GetAsyncKeyState(VK_ESCAPE)<BR>If        ESC        &lt;&gt;        0        Then<BR>                       Debug.Print "已经按了ECS键"<BR>End If

wyj7485 发表于 2005-1-11 15:38:00

窗体上有很多控件，加载窗体后按ESC键卸载窗体


If        ESC        &lt;&gt;        0        Then<BR>                       unload me


End If


又该放到哪里呢？

zhu1 发表于 2005-1-11 16:46:00

Declare        Function        GetAsyncKeyState        Lib        "user32"        (ByVal        vKey        As        Long)        As        Integer






Private        Const        VK_ESCAPE        =        &amp;H1B


ESC        =        GetAsyncKeyState(VK_ESCAPE)<BR>If        ESC        &lt;&gt;        0        Then<BR>                               unload me


End If


<BR>
页: [1]
查看完整版本: 怎样判断我按了ESC键？？？