Sekilas Tentang Message Box Vb.Net

Kita pasti sudah tidak asing lagi dengan yang dijuluki message box atau dalam bahasa romawi disebut kotak pesan. Yah media UI ini sering digunakan untuk berkomunikasi antara program dan user, bahkan tidak sedikit programer yang menggunakannya untuk mengguji sebuah baris kode query serta menangkap pesan kesalahan misalnya. Selain itu, message box juga acap kali digunakan sebagai media informasi sekaligus konfirmasi misalnya pada event hapus data, simpan data, tutup form, dan sebagainya .

Ada beberapa cara atau metode untuk memanggil message box ini, beberapa diantarnya adalah :

1.      Cara sederhana

Cara ini sering digunakan untuk menghemat waktu penulisan koding, contoh pemanggilannya sbb;

MsgBox("Pesan Message Box")

2.      Cara kedua

Cara ini hampir sama dengan cara yang pertama, perpedaanya terletak pada penulisan koding yang lebih panjang.

MessageBox.Show("Perasasti Ilmu")

3.      Cara ketiga

Pada cara yang ketiga ini terdapat deklarasi judul, tombol yang disediakan serta icon notifikasi untuk message box  yang dipanggil.

                        MessageBox.Show("Perubahan data untuk transaksi Berhasil.", "Berhasil Mengubah Data", MessageBoxButtons.OK, MessageBoxIcon.Information)

4.      Cara keempat

Pada cara ini(sebenarnya bukan cara tetapi pemanfaatan) message box akan digunakan sebagai media komunikasi dua arah antara program dan user, kita ambil contoh sebuah pesan konfirmasi pada message box dengan tombol yes dan no serta perintah yang akan dikerjakan. Berikut contoh dari implementasi tersebut:

If MessageBox.Show("Simpan perubahan data?", "Konfirmasi Perubahan Data", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = Windows.Forms.DialogResult.Yes Then

Call Simpan()

Else

Call standby()

Exit Sub

End If

Implementasi untuk menangkap kesalahan pada koneksi database;

Public Sub Sambung()

        Try

            str = "Driver={MySQL ODBC 5.3 Unicode Driver};server=localhost;uid=root;database=db_masjid;port=3306" ' ODBC HERE

            conn = New OdbcConnection(str)

            If conn.State = ConnectionState.Closed Then

                conn.Open()

            End If

        Catch pesansambung As Exception

            MessageBox.Show("Maaf  terjadi gangguan koneksi. Selengkapnya :  " + pesansambung.Message, "Gagal Menyambung Ke Database", MessageBoxButtons.OK, MessageBoxIcon.Asterisk).ToString()

        End Try

    End Sub