Vb.Net: Bekerja Dengan Messagebox

Messagebox merupakan salah satu fasilitas untuk aplikasi "berkomunikasi" dengan user. Dan selaku coder kita akan sering memakai kemudahan yang satu ini.

Penggunaan yang paling sederhana adalah untuk menampilkan teks pesan. Ada 2 cara untuk menampilkannya:
MessageBox.Show("isi pesan")       MsgBox("isi pesan")
.         

Format yang kanan mungkin lebih familiar buat yang sudah biasa dengan VB6. Ada beda nya yah? Ya pada title text atau caption. Ini mampu customize koq, cara nya:
MessageBox.Show("isi pesan", "Judul Pesan")
MsgBox("isi pesan", , "Judul Pesan")

Secara default tombol yang hendak ditampilkan adalah button OK. Tetapi lengkapnya kita mempunyai 6 opsi yaitu:
1. MessageBoxButtons.AbortRetryIgnore

 2. MessageBoxButtons.OK

 3. MessageBoxButtons.OKCancel

 4. MessageBoxButtons.RetryCancel

 5. MessageBoxButtons.YesNo

 6. MessageBoxButtons.YesNoCancel

Contoh penulisan code:
MessageBox.Show("isi pesan", "Judul Pesan", MessageBoxButtons.OKCancel)
MsgBox("isi pesan", MessageBoxButtons.OKCancel, "Judul Pesan")

Message box juga mempunyai 9 opsi icon, meskipun beberapa diantara nya menciptakan icon yang serupa.
1. MessageBoxIcon.Asterisk
2. MessageBoxIcon.Error
3. MessageBoxIcon.Exclamation
4. MessageBoxIcon.Hand
5. MessageBoxIcon.Information
6. MessageBoxIcon.None
7. MessageBoxIcon.Question
8. MessageBoxIcon.Stop
9. MessageBoxIcon.Warning

Contoh penulisan code:
MessageBox.Show("isi pesan", "Judul Pesan", MessageBoxButtons.OK, _
                MessageBoxIcon.Information)
MsgBox("isi pesan", MessageBoxButtons.OK + MessageBoxIcon.Information, _
       "Judul Pesan")

Untuk messagebox yang mempunyai lebih dari satu button, kita bisa menentukan aksi yang berlawanan tergantung button mana yang diklik user. Untuk lebih jelasnya mari kita lihat contoh berikut.
UI:

Code:
Public Class Form1

  Private Sub Form1_Load(ByVal sender As System.Object, _
              ByVal e As System.EventArgs) Handles MyBase.Load
      Button1.Text = "Choose..."
  End Sub

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

      Dim x As Object = MessageBox.Show("isi pesan", "Judul Pesan", _
                         MessageBoxButtons.YesNoCancel, _
                         MessageBoxIcon.Question)

      If x = Windows.Forms.DialogResult.Yes Then
          TextBox1.Text = "Yes"
      ElseIf x = Windows.Forms.DialogResult.No Then
          TextBox1.Text = "No"
      Else
          TextBox1.Text = "Cancel"
      End If
  End Sub  

End Class

Runtime:

Terakhir bila button messagebox lebih dari 1 dan ingin salah satu tombol menjadi default (tinggal tekan enter). Untuk lebih jelasnya kita lihat pada pola code dan hasil berikut:
MessageBox.Show("isi pesan", "Judul Pesan", MessageBoxButtons.YesNoCancel, _
                MessageBoxIcon.Question, MessageBoxDefaultButton.Button1)

MessageBox.Show("isi pesan", "Judul Pesan", MessageBoxButtons.YesNoCancel, _
                MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)

MessageBox.Show("isi pesan", "Judul Pesan", MessageBoxButtons.YesNoCancel, _
                MessageBoxIcon.Question, MessageBoxDefaultButton.Button3)

Click here if you like this article.



Sumber http://rani-irsan.blogspot.com