fengxue007 发表于 2008-6-16 17:55:00

VBA中怎样才能按下“Esc”键就退出程序？

本帖最后由 作者 于 2008-6-16 17:58:50 编辑 <br /><br /> <p>VBA怎么办才能在程序运行时按下“Esc”键就退出程序？请大侠帮忙！谢谢</p>

robbin840311 发表于 2008-6-18 09:06:00

<p><strong>LZ请使用以下代码：</strong></p><p>Private Const VK_ESCAPE = &amp;H1B&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 代表Esc键<br/>Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer</p><p>' 功能：判断用户是否按下某一个键<br/>Private Function CheckKey(lngKey As Long) As Boolean<br/>&nbsp; If GetAsyncKeyState(lngKey) Then<br/>&nbsp;&nbsp;&nbsp; CheckKey = True<br/>&nbsp; Else<br/>&nbsp;&nbsp;&nbsp; CheckKey = False<br/>&nbsp; End If<br/>End Function</p><p>想要在过程中的那个位置按"ESC"退出程序，在相应位置加入如下代码：</p><p>If CheckKey(VK_ESCAPE) = True Then<br/>&nbsp; End&nbsp; '退出程序<br/>End If</p>

tl319 发表于 2008-6-18 13:08:00

学习了<img alt="" src="http://www.mjtd.com/bbs/Skins/default/topicface/face1.gif"/>

fengxue007 发表于 2008-6-18 13:59:00

谢谢！已解决
页: [1]
查看完整版本: VBA中怎样才能按下“Esc”键就退出程序？