プログラム ：基本的なメッセージボックスの使い方（MessageBox.Show）

VB2008でMessageBox.Showを使いメッセージボックスを表示させる使用例サンプルです。

プログラムへ


メッセージボックスを表示させるには、MessageBox.Showを使います。

■実行画面
メッセージボックスの使用方法

・例1の画面
OKボタンのメッセージボックス

・例2の画面
押されたボタンの結果がフォームのタイトルに表示されます。
はい・いいえボタンのメッセージボックス

・例3の画面
メッセージは「vbNewLine」を使い改行し表示しています。
押されたボタンの結果がフォームのタイトルに表示されます。


■実行コード

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim smsg As String

smsg = "メッセージです。"

MessageBox.Show(smsg, "MsgBox使用方法", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim smsg As String
Dim ans As MsgBoxResult

smsg = "よろしいですか？"

ans = MessageBox.Show(smsg, "MsgBox使用方法", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
If ans = MsgBoxResult.Yes Then
Me.Text = "Yes"
ElseIf ans = MsgBoxResult.No Then
Me.Text = "No"
Else
Me.Text = "Cancel"
End If

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim smsg As String
Dim ans As MsgBoxResult

smsg = "このメッセージボックスを" & vbNewLine & "よろしいですか？"

ans = MessageBox.Show(smsg, "MsgBox使用方法", MessageBoxButtons.OKCancel, MessageBoxIcon.Information)
If ans = MsgBoxResult.Ok Then
Me.Text = "OK"
Else
Me.Text = "Cancel"
End If

End Sub
End Class

Visual Basic 2008 Express Edition実践入門