Msgboxで応答があるのを待っている時間について (ID:125410)

名前

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

本文 お世話になります。いろいろなご意見、大変勉強になります。 他人の作ったPGMを修正＆機能追加しているため、どこの設定を見れば、シングルスレッドになっているのかそうでないのか分かりません。なので、その可能性は否定できないかも知れません。よろしければどこを見ればそれがわかるか教えていただけませんか？確認してみます。 ＞・メッセージ表示を、メッセージボックスではなく普通のフォームで行っている ＞・処理B・Cの10秒後・15秒後の起動トリガにタイマーを使っている についてですが、MSGBOXを使っています。普通のFormは使っていません。あと、起動トリガについて、タイマーは使っていません。処理は、以下のような感じです。お気づきの点がありましたら、ご指摘いただけないでしょうか？よろしくお願いします。 ■スタートを押したとき--------------------------------------------------------------- Private Sub cmdStart1_Click() w_StartTime = Time() w_PausePeriod = 0 flg_Pause1 = False With MSFlexGrid1 '←処理ABC．．．が記述されているSeqファイルを画面上に表示したグリッド For i = 1 To .Rows - 1 Do Until DateDiff("s", w_StartTime, Time()) >= CInt(.TextMatrix(i, 6)) + w_PausePeriod '↑ スタートしたときからその時点の時間の差が、次の処理の実行開始時間（０換算）を越えたとき If flg_Pause1 = True Then '一時停止ボタン押下時 Do Until flg_Pause1 = False '一時停止ボタンが有効な間、0.5秒の間隔でSleepさせる。 Sleep (500) '0.5 second DoEvents w_PausePeriod = w_PausePeriod + 0.5 Loop End If Sleep (500) ' 次の処理（処理Aの次は処理B）の開始時間が来るまで、0.5秒の間隔で、Sleepさせる。 DoEvents Loop Call cmdCall(.TextMatrix(i, 1), 1000 * DateDiff("s", TimeValue(.TextMatrix(i, 2)), TimeValue(.TextMatrix(i, 3)))) '↑処理の名前と、実行時間をほかの関数に渡すCall処理 Next i End With End Sub ■一時停止を押したとき--------------------------------------------------------------- Private Sub cmdPause1_Click() ret = MsgBox("一時停止しますか?", vbYesNo, "Confirm") If ret = vbNo Then DoEvents Exit Sub End If flg_Pause1 = True DoEvents End Sub