メッセージボックス表示による処理中断を回避するには？ (ID:79893)

名前

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

本文 参考 MsgBox関数とMessageBox(API)の動作の違い Option Explicit Private Declare Function MessageBox Lib "user32" _ Alias "MessageBoxA" _ (ByVal hwnd As Long, _ ByVal lpText As String, _ ByVal lpCaption As String, _ ByVal wType As Long) As Long Private Sub Command1_Click() 'API Dim lngDummy As Long Text1.Text = 0 Timer1.Interval = 300 Timer1.Enabled = True lngDummy = MessageBox(Me.hwnd, "おはよ", "あいさつ", 0&) End Sub Private Sub Command2_Click() 'MsgBox Dim lngDummy As Long Text1.Text = 0 Timer1.Interval = 300 Timer1.Enabled = True lngDummy = MsgBox("おはよ", vbOKOnly, "あいさつ") End Sub Private Sub Command3_Click() 'タイマ停止 Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Text1.Text = Text1.Text + 1 Text1.Refresh End Sub