tiger0101 发表于 2006-8-14 22:36:00

getinteger()如何实现按Esc键退出

<P>使用getinteger函数后</P>
<P>我想实现按Esc键取消，请问该怎么做</P>
<P>谢谢</P>

wyj7485 发表于 2006-8-15 08:15:00

<P>Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer</P>
<P>&nbsp;Private Const VK_ESCAPE = &amp;H1B</P>
<P><BR>&nbsp;</P>
<P>If GetAsyncKeyState(VK_ESCAPE) Then<BR>...........<BR>End If</P>

tiger0101 发表于 2006-8-15 19:11:00

<P>3ku</P>
<P>我现在暂时用的是on error resume next</P>
<P>&nbsp;</P>
<P>if err.number=??? then</P>
<P>&nbsp;</P>
页: [1]
查看完整版本: getinteger()如何实现按Esc键退出