Loop処理内のコマンドキー操作について (ID:101997)

名前

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

本文 一例。 Option Explicit Private bAction As Boolean Private Sub Form_Load() bAction = True End Sub Private Sub cmdContinue_Click() bAction = True End Sub Private Sub cmdPause_Click() bAction = False End Sub Private Sub cmdTest_Click() for 〜 If Not DoEvents2(Me.Name) Then '処理中にユーザーがフォームを終了したらコントール等のアクセス禁止。 Exit Sub End If If bAction Then ' 処理 ' Else ' '一時停止中に無駄なＣＰＵパワー使用しないためにメッセージボックス出す方がいいか。 ' MsgBox "一時停止中。" & vbNewLine & "解除するよ。" ' bAction = True End If Next End Sub Private Function DoEvents2(FrmName As String) As Boolean Dim frm As Form Dim bRet As Boolean DoEvents For Each frm In Forms bRet = (frm.Name = FrmName) If bRet Then Exit For End If Next DoEvents2 = bRet End Function