こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

無限ループ中にある任意のキーを押すと抜けるコードを作りたいのですが・・・(VB6です)

無限ループを動作中にあるキー(例えば[Ctrl]+[c])を押すと、そのプログラムを抜けて終了するコードを作りたいのですが、どなたかご教授いただけませんでしょうか?

投稿日時 - 2005-03-25 18:35:50

QNo.1290873

困ってます

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(1)

Private blnEscape As Boolean

Private Sub Command1_Click()

  blnEscape = False

  Do While Not blnEscape
    Me.Label1.Caption = Format(Now, "ss")
    DoEvents
  Loop

  MsgBox "ESCAPE"
  
End Sub

Private Sub Command2_Click()

  blnEscape = True
  
End Sub

投稿日時 - 2005-03-25 18:44:02

お礼

ありがとうございました。
当方でも調べた結果、以下のようにすれば実現できそうです。

If GetAsyncKeyState(vbKeySpace) <> 0 Then
 End
End If

投稿日時 - 2005-03-25 19:06:34

あなたにオススメの質問