do loop 怎么利用按键退出啊！

hatechange · 发表于 2007-1-18 14:17:00

do
set text=thisdrawing.modelspace.addtext(1,1,1)
if 按esc键 then
exit do
end if
loop
大虾救命啊!!!!!!!!!!!!!!!!!!!!!!

egua · 发表于 2007-1-18 14:31:00

貌似不可以~

wyj7485 · 发表于 2007-1-18 15:57:00

用API就可以


Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const VK_ESCAPE = &H1B
If GetAsyncKeyState(VK_ESCAPE) Then
Exit do
End If

hatechange · 发表于 2007-1-22 17:18:00

大虾，小弟愚笨，还是有些不明。能否进一步赐教。

wyj7485 · 发表于 2007-1-22 17:45:00

'API声明
Private Declare Function GetAsyncKeyState Lib "user32"
(ByVal vKey As Long)
As Integer
Private Const VK_ESCAPE = &H1B'按下ESC键
'放到要退出语句处
If GetAsyncKeyState(VK_ESCAPE)
Then'判断是否按下ESC键
Exit
do
End
If
’代替语句
if 按esc键 then
exit do
end if

do loop 怎么利用按键退出啊！

发表回复

精选推荐