Belajar Visual Basic Dasar Bagian 5

Belajar Visual Basic Dasar Bagian 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.

 Nih hasilnya Syntax yang kita buat td :D:D