ルーチンを強制的に抜けるには？ (ID:89914)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

よくある処理なのですが、私はこんな風にやってます。
ボタン２つとテキストボックス一つをフォームに貼り付けて。
ボタンのEnableも適当に切り替える必要が有るので、
コードが読みにくくなっていますが。。。。

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
    If Command1.Caption = "開始" Then
        Text1.Text = "0"
        Command1.Caption = "終了"
        Command2.Enabled = True
        Command2.Caption = "中断"
        Do
           '//メインの処理
            Text1 = CStr(Val(Text1) + 1) '何かの処理
           '//メインの処理終了
            Do
                Sleep (1)
                DoEvents
            Loop While Command2.Caption = "続行"
            DoEvents
            Sleep (1)
        Loop While Command1.Caption = "終了"
    Else
        Command1.Caption = "開始"
        Command2.Caption = "中断"
        Command2.Enabled = False
    End If
End Sub
Private Sub Command2_Click()
    '中断の処理
    If Command2.Caption = "中断" Then
        Command2.Caption = "続行"
    Else
        Command2.Caption = "中断"
    End If
End Sub
Private Sub Form_Load()
    Command1.Caption = "開始"
    Command2.Caption = "中断"
    Command2.Enabled = False
End Sub

←解決時は質問者本人がここをチェックしてください。

戻る