玄関へお回り下さい。
自動で閉じるメッセージボックスの表示・他３方法              (SNo.052)

１．MsgBox 関数での表示
２．MessageBox クラスでの表示
３．WScript.Shell を使っての自動で閉じるMsgBox
使用コントロール Button1 〜　Button3 
その他条件 WindowsXP(Vista)　Visual Basic 2005(VB2008)
　
１．MsgBox 関数での表示
　
Private Sub Button1_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button1.Click
'MsgBox 関数を使用した方法（VB6.0 と同様です）
    Microsoft.VisualBasic.MsgBox("メッセージボックスを表示します")
End Sub
　
２．MessageBox クラスでの表示
　
Private Sub Button2_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button2.Click
'MessageBox.Show メソッド を使用した方法 
    MessageBox.Show("メッセージボックスを表示します")

    ''VB6.0とほぼ同様の操作で使用できるかと思います
    '詳しくは、MessageBox.Show メソッドのヘルプを見て下さい。
    Dim result As DialogResult
    result = MessageBox.Show(Me, "メッセージボックスを表示します", "タイトル", _
                    MessageBoxButtons.YesNo, MessageBoxIcon.Question, _
                    MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
End Sub
　
その他、色々な設定は MessageBox.Show メソッド をヘルプで見て下さい。
ms-help://MS.VSCC.2003/MS.MSDNQTR.2003FEB.1041
/cpref/html/frlrfsystemwindowsformsmessageboxclassshowtopic.htm
３．WScript.Shell を使っての自動で閉じるMsgBox
　
Private Sub Button3_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button3.Click
'WScript.Shellを使っての自動的に閉じるメッセージボックス
    Dim result As DialogResult
    result = CreateObject("WScript.Shell").Popup _
            ("このメッセージボックスは３秒後自動的に閉じます。", 3, _
                        "自動的に閉じる", MessageBoxButtons.YesNo)
    Debug.WriteLine(Result)
End Sub
　






2004/05/11
2005/10/19


VBレスキュー(花ちゃん)
VB.NET2003　　VB2005