Menampilkan kotak pesan “MessageBox” dengan VB.NET 2010

Contoh sederhana menampilkan kotak pesan dengan menggunakan perintah MsgBox dengan Visual Basic.NET 2010. Selain itu saya tambahkan penerapan opsi Ikon dan Tombol kejadian beserta contoh penerapannya.

 

 

Bentuk Umum

   1: MessageBox.Show("Halo, Dunia!")

I. Menambahkan Ikon kejadian

1. Asterisk/Information

   1: MessageBox.Show("Halo, Dunia!", "Contoh Pesan", MessageBoxButtons.OKCancel, MessageBoxIcon.Asterisk)

   1: MessageBox.Show("Halo, Dunia!", "Contoh Pesan", MessageBoxButtons.OKCancel, MessageBoxIcon.Information)

2. Error/Hand/Stop

   1: MessageBox.Show("Halo, Dunia!", "Contoh Pesan", MessageBoxButtons.OKCancel, MessageBoxIcon.Error)

   1: MessageBox.Show("Halo, Dunia!", "Contoh Pesan", MessageBoxButtons.OKCancel, MessageBoxIcon.Hand)

   1: MessageBox.Show("Halo, Dunia!", "Contoh Pesan", MessageBoxButtons.OKCancel, MessageBoxIcon.Stop)

3. Exclamation/Warning

   1: MessageBox.Show("Halo, Dunia!", "Contoh Pesan", MessageBoxButtons.OKCancel, MessageBoxIcon.Exclamation)

   1: MessageBox.Show("Halo, Dunia!", "Contoh Pesan", MessageBoxButtons.OKCancel, MessageBoxIcon.Warning)

4. Question

   1: MessageBox.Show("Halo, Dunia!", "Contoh Pesan", MessageBoxButtons.OKCancel, MessageBoxIcon.Question)

5. None

   1: MessageBox.Show("Halo, Dunia!", "Contoh Pesan", MessageBoxButtons.OKCancel, MessageBoxIcon.None)

II. Menambahkan Tombol Kejadian:

1. Tombol Abort, Retry dan Ignore

   1: MessageBox.Show("Halo, Dunia!", "Contoh Pesan", MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Question)

2. Tombol OK

   1: MessageBox.Show("Halo, Dunia!", "Contoh Pesan", MessageBoxButtons.OK, MessageBoxIcon.Question)

3. Tombol OK dan Cancel

   1: MessageBox.Show("Halo, Dunia!", "Contoh Pesan", MessageBoxButtons.OKCancel, MessageBoxIcon.Question)

4. Tombol Retry dan Cancel

   1: MessageBox.Show("Halo, Dunia!", "Contoh Pesan", MessageBoxButtons.RetryCancel, MessageBoxIcon.Question)

5. Tombol Yes dan No

   1: MessageBox.Show("Halo, Dunia!", "Contoh Pesan", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

6. Tombol Yes, No dan Cancel

   1: MessageBox.Show("Halo, Dunia!", "Contoh Pesan", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)

II.I. Contoh Penerapan Tombol Kejadian:

1. Dua Pilihan Tombol

Cara Pertama:

   1: Dim Pilih = MessageBox.Show("Halo, Dunia!", "Contoh Pesan", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

   2:         If Pilih = Windows.Forms.DialogResult.Yes Then

   3:             MessageBox.Show("Anda memilih tombol " + Chr(34) + "Yes" + Chr(34), "Contoh Pilihan", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

   4:         ElseIf Pilih = Windows.Forms.DialogResult.No Then

   5:             MessageBox.Show("Anda memilih tombol " + Chr(34) + "No" + Chr(34), "Contoh Pilihan", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

   6:         End If

Cara Kedua:

   1: If MessageBox.Show("Halo, Dunia!", "Contoh Pesan", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then

   2:             MessageBox.Show("Anda memilih tombol " + Chr(34) + "Yes" + Chr(34), "Contoh Pilihan", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

   3:         Else

   4:             MessageBox.Show("Anda memilih tombol " + Chr(34) + "No" + Chr(34), "Contoh Pilihan", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

   5:         End If

Cara Ketiga:

   1: Select Case MessageBox.Show("Halo, Dunia!", "Contoh Pesan", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

   2:             Case Windows.Forms.DialogResult.Yes

   3:                 MessageBox.Show("Anda memilih tombol " + Chr(34) + "Yes" + Chr(34), "Contoh Pilihan", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

   4:             Case Windows.Forms.DialogResult.No

   5:                 MessageBox.Show("Anda memilih tombol " + Chr(34) + "No" + Chr(34), "Contoh Pilihan", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

   6:         End Select

2. Tiga Pilihan Tombol

Cara Pertama:

   1: Dim Pilih = MessageBox.Show("Halo, Dunia!", "Contoh Pesan", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)

   2:         If Pilih = Windows.Forms.DialogResult.Yes Then

   3:             MessageBox.Show("Anda memilih tombol " + Chr(34) + "Yes" + Chr(34), "Contoh Pilihan", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

   4:         ElseIf Pilih = Windows.Forms.DialogResult.No Then

   5:             MessageBox.Show("Anda memilih tombol " + Chr(34) + "No" + Chr(34), "Contoh Pilihan", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

   6:         ElseIf Pilih = Windows.Forms.DialogResult.Cancel Then

   7:             MessageBox.Show("Anda memilih tombol " + Chr(34) + "Cancel" + Chr(34), "Contoh Pilihan", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

   8:         End If

Cara Kedua:

   1: Select Case MessageBox.Show("Halo, Dunia!", "Contoh Pesan", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)

   2:             Case Windows.Forms.DialogResult.Yes

   3:                 MessageBox.Show("Anda memilih tombol " + Chr(34) + "Yes" + Chr(34), "Contoh Pilihan", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

   4:             Case Windows.Forms.DialogResult.No

   5:                 MessageBox.Show("Anda memilih tombol " + Chr(34) + "No" + Chr(34), "Contoh Pilihan", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

   6:             Case Windows.Forms.DialogResult.Cancel

   7:                 MessageBox.Show("Anda memilih tombol " + Chr(34) + "Cancel" + Chr(34), "Contoh Pilihan", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

   8:         End Select

III. Menambahkan Pernyataan/Pertanyaan Lebih Dari Satu Baris

   1: Dim Pilih = MessageBox.Show("Halo, Dunia!" + Chr(13) + Chr(10) + "Apa kabar mu hari ini?", "Contoh Pesan", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)

   2:         If Pilih = Windows.Forms.DialogResult.Yes Then

   3:             MessageBox.Show("Anda memilih tombol " + Chr(34) + "Yes" + Chr(34), "Contoh Pilihan", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

   4:         ElseIf Pilih = Windows.Forms.DialogResult.No Then

   5:             MessageBox.Show("Anda memilih tombol " + Chr(34) + "No" + Chr(34), "Contoh Pilihan", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

   6:         ElseIf Pilih = Windows.Forms.DialogResult.Cancel Then

   7:             MessageBox.Show("Anda memilih tombol " + Chr(34) + "Cancel" + Chr(34), "Contoh Pilihan", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

   8:         End If

IV. Alternatif Pilihan Tombol Ketika Kotak Pesan Terbuka

   1: Dim Pilih = MessageBox.Show("Halo, Dunia!" + Chr(13) + Chr(10) + "Apa kabar mu hari ini?", "Contoh Pesan", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question, MessageBoxDefaultButton.Button3)

   2:         If Pilih = Windows.Forms.DialogResult.Yes Then

   3:             MessageBox.Show("Anda memilih tombol " + Chr(34) + "Yes" + Chr(34), "Contoh Pilihan", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

   4:         ElseIf Pilih = Windows.Forms.DialogResult.No Then

   5:             MessageBox.Show("Anda memilih tombol " + Chr(34) + "No" + Chr(34), "Contoh Pilihan", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

   6:         ElseIf Pilih = Windows.Forms.DialogResult.Cancel Then

   7:             MessageBox.Show("Anda memilih tombol " + Chr(34) + "Cancel" + Chr(34), "Contoh Pilihan", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

   8:         End If