「VB.NET」メッセージボックス(MessageBox)を表示する

2021年10月1日

書式
MessageBox.Show(メッセージ, タイトル, ボタンの種類, アイコンの種類)
ボタンの種類: 「OK」、「OKCancel」、「YesNo」、「YesNoCancel」、「AbortRetryIgnore」

使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Information 情報表示 OKCancel「OK」ボタン 「キャンセル」ボタン
Dim result As DialogResult = MessageBox.Show("ユーザーを登録しますか?", "ユーザー登録確認", MessageBoxButtons.OKCancel, MessageBoxIcon.Information)
'「OK]ボタンを選択
If result = DialogResult.OK Then
MessageBox.Show("OKボタンが押下されました")
Else
MessageBox.Show("Cancelボタンが押下されました")
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'Information 情報表示 OKCancel「OK」ボタン 「キャンセル」ボタン Dim result As DialogResult = MessageBox.Show("ユーザーを登録しますか?", "ユーザー登録確認", MessageBoxButtons.OKCancel, MessageBoxIcon.Information) '「OK]ボタンを選択 If result = DialogResult.OK Then MessageBox.Show("OKボタンが押下されました") Else MessageBox.Show("Cancelボタンが押下されました") End If End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

      'Information 情報表示 OKCancel「OK」ボタン 「キャンセル」ボタン
      Dim result As DialogResult = MessageBox.Show("ユーザーを登録しますか?", "ユーザー登録確認", MessageBoxButtons.OKCancel, MessageBoxIcon.Information)

      '「OK]ボタンを選択
      If result = DialogResult.OK Then
          MessageBox.Show("OKボタンが押下されました")
      Else
          MessageBox.Show("Cancelボタンが押下されました")
      End If
  End Sub

 

VB.net

Posted by arkgame