Dasar 5. Message Box (kotak Pesan)

1. Buat sebuah form baru.
2. Masukan objek objek berikut ini :

NAME	CAPTION	TOOL
CMDKELUAR1	KELUAR 1	COMMAND BUTTON
CMDKELUAR2	KELUAR 2	COMMAND BUTTON

 3. Listing Programnya adalah :

Private Sub CMDKELUAR1_Click()
Unload Me
MsgBox "SELAMAT TINGGAL", vbOKOnly, "TEKAN OKE SAJA"
End Sub

Private Sub CMDKELUAR2_Click()
X = MsgBox("MAU KELUAR ?", vbQuestion + vbYesNo, "TEKAN OKE ATAU CANCEL")
If X = vbYes Then
Unload Me
End If
End Sub
    

4. Penjelasan Listing Programnya :
- UNLOAD ME adalah kode untuk keluar dari form yang sedang aktif.
- MSGBOX adalah Message Box atau kotak untuk menampilkan sebuah pesan.
- Kalimat setelah MSGBOX adalah isi dari pesan sedangkan kalimat setelah tombol oke atau oke/cancel adalah keterangan tambahan.
 
- Untuk tombol KELUAR 1 :
MsgBox "SELAMAT TINGGAL", vbOKOnly, "TEKAN OKE SAJA"
vbOKOnly digunakan untuk memunculkan tombol OK saja.

- Untuk tombol KELUAR 2 :
MsgBox "MAU KELUAR ? ", vbQuestion + vbYesNo, "TEKAN OKE ATAU CANCEL "
vbQuestion + vbYesNo digunakan untuk memunculkan pertanyaan sekaligus tombol YES dan NO.
X = MsgBox artinya x adalah kotak pesan.

If X = vbYes Then
Unload Me
End If
arti dari kalimat diatas adalah :
Jika pada x (kotak pesan) dipilih tombol yes, maka akan keluar dari form.
peringatan : setelah IF harus diakhiri dengan END IF.

Selesai Juga Dech Tutorialnya....
Terimakasih Atas Kunjungannya....
Semoga Ilmu Yang Sedikit Ini Bermanfaat....
Jangan Lupa Like Post Ini Ya.... Terimakasih....

Print this page

Posted in: Visual Basic 6.0