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

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

do<br/>set text=thisdrawing.modelspace.addtext(1,1,1)<br/>if&nbsp; 按esc键 then<br/>exit do<br/>end if<br/>loop<br/>大虾救命啊!!!!!!!!!!!!!!!!!!!!!!

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

<p><font color="#0000ff">'API声明</font></p><p><font color="#0000ff">Private</font> Declare <font color="#0000ff">Function</font> GetAsyncKeyState Lib <font color="#880000">"user32"</font>
                <font color="#ff0000">(</font>ByVal vKey <font color="#0000ff">As</font> Long<font color="#ff0000">)</font>
                <font color="#0000ff">As</font> Integer<br/><font color="#0000ff">Private</font> Const VK_ESCAPE <font color="#0000ff">=</font> &amp;H1B'按下ESC键</p><p>'放到要退出语句处</p><p><font color="#0000ff">If</font> GetAsyncKeyState<font color="#ff0000">(</font>VK_ESCAPE<font color="#ff0000">)</font>
                <font color="#0000ff">Then'判断是否按下ESC键</font><br/><font color="#0000ff">Exit</font>
                <font color="#0000ff">do</font><br/><font color="#0000ff">End</font>
                <font color="#0000ff">If</font><br/>’代替语句</p><p>if&nbsp; 按esc键 then<br/>exit do<br/>end if<br/></p>
页: [1]
查看完整版本: do loop 怎么利用按键退出啊！