Messagebox ialah salah satu fasilitas untuk aplikasi "berkomunikasi" dengan user. Dan selaku coder kita akan sering menggunakan fasilitas yang satu ini. Penggunaan yang paling sederhana yakni untuk memperlihatkan teks pesan. Ada 2 cara untuk menampilkannya: MessageBox.Show( "isi pesan" ) MsgBox( "isi pesan" ) . Format yang kanan mungkin lebih familiar buat yang terbiasa dengan VB6. Ada beda nya yah? Ya pada title text atau caption. Ini bisa customize koq, cara nya: MessageBox.Show( "isi pesan" , "Judul Pesan" ) MsgBox( "isi pesan" , , "Judul Pesan" ) Secara default tombol yang mau ditampilkan yakni button OK. Tetapi lengkapnya kita mempunyai 6 pilihan ialah: 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 pilihan icon, walaupun beberapa diantara nya menghasilkan 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 memilih agresi yang berbeda tergantung button mana yang diklik user. Untuk lebih jelasnya mari kita lihat acuan 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 kalau button messagebox lebih dari 1 dan ingin salah satu tombol menjadi default (tinggal tekan enter). Untuk lebih jelasnya kita lihat pada contoh 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