Menampilkan kotak pesan “MessageBox” dengan VB.NET 2010

Dalam berinteraksi dengan pengguna, sebagai programmer atau pembuat aplikasi yang interaktif seringkali kita harus menampilkan suatu pesan/kotak dialog  kepada pengguna. Baik itu berupa peringatan, pemberitahuan maupun pertanyaan.. Message box adalah kotak dialog kecil yang menampilkan sebuah pesan pada pengguna aplikasi. Agar nantinya pengguna dapat menggunakan program aplikasi secara maksimal.

Nahh pada kesempatan kali ini kita akan membahas bagaimana cara mbampilkan message box pada visual basic .Net.
kita mulai dari contoh yang pertama.
rancang sebuah form dengan satu tombol button. Seperti terlihat pada gambar dibawah ini.

Kemudian beralih kebagian pengetikan program, Lalu ketikkan rogram berikut :

Public Class Form1
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show("Apakah Anda yakin untuk keluar aplikasi??")
    End Sub
End Class

Maka ketika dijalankan hasilnya akan seperti berikut ini :

Agar tampilan Message Box yang kita buat terlihat menarik kita perlu menambahkan Judul pada pesan, tambahkan kode program seperti berikut.

Public Class Form1
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show("Apakah Anda yakin untuk keluar aplikasi??", "Keluar")
    End Sub
End Class

Maka hasilnya akan seperti gambar dibawah ini :

Judulnya udah, nah sekarang gimana ya supaya tombol pada Message Box nya gak cuma tombol OK aja, gimana cara menambah Tombol pada Message Boxnya, anda hanya perlu menambahkan kode program dibawah ini.

Public Class Form1
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show("Apakah Anda yakin untuk keluar aplikasi??", "Keluar", MessageBoxButtons.YesNo)
    End Sub
End Class

Nahh, kita jalankan programnya maka hasilnya akan seperti dibawah ini :

Hmmmm, kayaknya ada yang kurang. yaa.. anda juga bisa menambahkan sebuah simbol/icon pada Message box seperti simbol peringatan, kesalahan, pertanyaan dan lainnya seperti gambar berikut :

 Bagaimana caranya? anda hanya perlu menambahkan code program berikut ini :

Public Class Form1
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show("Apakah Anda yakin untuk keluar aplikasi??", "Keluar", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)
    End Sub
End Class

Jika kita jalankan, maka hasilnya akan menjadi seperti gambar berikut :

Jika anda ingin mengubah icon/symbol yang akan ditampilkan pada Message box, anda hanya perlu mengubah code program yang terakhir kita tambahkan sebelumnya.

Semua udah beres nih, ehh, tapi tombolnya kok gak berfungsi ya?? Tenang dulu. Kita belum selesai dengan kode programnya. Agar tombol yang sudah kita tamnahkan pada Message box tadi bisa berfungsi dengan baik. Silahkan tambahkan kode program berikut ini.

Public Class Form1
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim pesan As String
        pesan = MessageBox.Show("Apakah Anda yakin untuk keluar aplikasi??", "Keluar", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)
        If pesan = DialogResult.Yes Then
            End
        End If
    End Sub
End Class

Nahh... Itu dia cara untuk menampilkan Message box pada Visual basic .Net 2010, semoga bermanfaat.