Membuat Kotak Pesan (Message Box)

Membuat Kotak Pesan

Pada program Windows, biasanya akan menampilkan kotak pesan (Massage Box) yang berfungsi untuk memberikan informasi atau peringatan tentang keadaan yang sedang terjadi pada program.

Pembuatan kotak pesan pada program Visual Basic 6.0, dapat digunakan sebuah prsosedur internal, yaitu MsgBox. Prosedur ini memiliki format penulisan seperti berikut :

MsgBox (Prompt,[Buttons As VbMsgBoxStyle=vbOKOnly],[Title], [FileHelp],[Context]

Keterangan :

Prompt  merupakan teks yang akan ditampilkan pada kotak pesan. Panjang pesan maksimal yang bisa ditampilkan adalah 1024 karakter dan masih tergantung pula pada jenis dan ukuran huruf yang digunakan.

Buttons As VbMsqBoxStyle, nilai yang di masukkan pada bagian parameter ini akan menentukan jenis tombol dan icon yang akan ditampilkan pada kotak pesan. Bagian bersifat Operasional yang berarti bisa dimasukan ataupun tidak. Jika tidak dimasukan, maka program akan menganggap bahwa kotak pesan yang dibuat hanya menggunakan tombol OK saja. Tetapi jika ingin membuat maka dapat memilih jeinis tombol pesan berikut ini :

1. vbOKOnly, menampilkan tombol OK pada kotak pesan
2. vbOKCencel, menampilkan tombol OK dan Cencel pada kotak pesan
3. vbAbortRetryIgnore, menampilkan tombol Abort, Retry dan Ignore pada kotak pesan
4. vbYesNoCencel, menampilkan tombol Yes,No dan Cencel pada kotak pesan.
5. vbYesNo, menampilkan tombol Yes dan No pada kotak pesan
6. vbAbortRetryCencel, menampilkan tombol Abort, Retry dan Cencel pada kotak pesan
7. vbDefaultButton2, menjadikan tombol kedua sebagian default
8. vbDefaultButton3, menjadikan tombol ketiga sebagai default
9. vbCritical, menampilkan icon X
10. vbQuestion, menampilkanicon ?
11. vbExclamation, menampilkan icon l
12. vbInformation, menampilkan icon i

Contoh Program Kotak Pesan

Sebagai contoh buatlah project baru dengan bentuk form seperti pada gambar di bawah ini.

Untuk membuat program diatas dapat dilakukan dengan mengikuti prosedur sebagai berikut :

Membuat Tampilan Form

Untuk membuat tampilan form lakukan cara berikut ini :

1. Aktifkan program Visual Basic 6.0
2. Klik icon TextBox pada tool Box
3. Klik kiri dan tahan mouse pada form, tarik hingga membentuk kotak persegi
4. Selanjutnya klik icon CommandButton.
5. Klik kiri dan tahan mouse pada form, tarik hingga membentuk kotak persegi
6. Ganti Caption "Command1" pada Window Properties dengan teks "Cari"

Membuat Event Object dan Message Box

Langkah-langkah pembuatan event object dan massage box (kotak pesan) adalah :

1.  Klik dua kali pada tombol Cari
2. Ketik kode program berikut ini.
   
   If Text1.Text = "aditia" Then
   MsgBox "Ketemu Datanya", vbInformation + vbOKOnly, "Hore ...!!"
   Else
   MsgBox "Data Tidak Ditemukan", vbQuestion + vbRetryCancel, "Hasil Pencarian"
   End If
   
   
3. Klik Start atau F5 pada toolbar, untuk melihat hasil dari pembuatan program
4. Ketik teks "editia" pada kotak input, klik tombol cari, maka di layar akan tampil kotak pesan seperti dibawah ini.
   
5. Hapus teks pada kotak input, klik tombol Cari, maka di layar akan tampil kotak pesan dibawah ini
   
6. Hasil dari program akan menampilkan dua kotak pesan yang tampil jika kriteria pada teks memenuhi syarat pada fungsi If...End If pada program yaitu
• Jika pada kotak input dituliskan "aditia", maka ditampilkan kotak pesan "Hore ...!!"
• Jika tidak ada teks yang diketikan pada kotak input, maka ditampilkan kotak pesan "Hasil Pencarian"
7. Simpan Form dengan nama KotakPesan, dan Project dengan namaLatKotakPesan