VB : Membuat Pesan Windows

Bentuk umum

msgbox “textpesan”, Parameter, “judul pesan”

Daftar Tombol(parameter) yang digunakan

Parameter Nilai tombol icon
VbOkOnly 0 ok
VbOkCancel 1 ok & cancel
VbAboutRetryIgnore 2 About Retry Ignore
VbYesNocancel 3 Yes No Cancel
VbYesNo 4 yes no
VbCritikal 16 Icon Critikal x
VbQuestion 32 Icon Pertanyaan
VbExlamation 48 icon tanda Seru
VBInformation 64 icon Information

contoh
msgbox “Apakah Anda ingin Menyimpan data anda”,4,”simpan pesan?”

Parameter khusus nilai
Ok 1
cancel 2
abort 3
retry 4
yes 6
no 7

Contoh Program Pendeteksi apakah seseorang Impoten atau tidak!!

Private Sub Command1_Click()
Label2.Caption = “Program ini dirancang Khusus untuk mengecek apakah anda Impoten atau tidak”
Label1.Caption = “Jangan Percaya dengan yang saya katakan, karena percaya dengan saya berarti anda Musrik percayalah sama yang diatas”
End Sub

If pesan = 7 Then
MsgBox “ah anda memang impoten”, vbCritical, “anda Impoten”
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
pesan = MsgBox(“Apakah anda punya akuarium dirumah”, vbYesNo, “Pertanyaan pertama”)
If pesan = 6 Then
pesan2 = MsgBox(“logisnya kalo anda punya akuarium anda punya ikan kan”, vbYesNo, “pesan kedua”)
If pesan2 = 7 Then
MsgBox “Anda Mulaih Berbohonh, punya akuarium ga punya ikan”, vbExclamation, “anda ternyata pendusta”
End If
If pesan2 = 6 Then
End If
pesan3 = MsgBox(“logisnya kalo anda punya akuarium dan ikan, berarti anda penyayang binatang kan”, vbYesNo, “pertanyaan Kedua”)
End If
If pesan3 = 7 Then
MsgBox “anda memang selamanya menjadikan diri anda pendusta”, vbInformation, “anda seorang pendusta”
End If
If pesan3 = 6 Then
pesan4 = MsgBox(“Logisnya lagi kalo anda penyayang binatang, pasti donk anda sayang sekali sama anak”, vbYesNo, “pertanyaan ketiga”)
End If
If pesan4 = 7 Then
MsgBox “keterlaluan anda berbohong lagi”, vbInformation, “anda tetap pendusta”
End If
If pesan4 = 6 Then
pesan5 = MsgBox(“wah kalau anda punya anak berarti logisnya anda punya istri kan”, vbYesNo, “pertanyaan kelima”)
End If
If pesan5 = 7 Then
MsgBox “wah kalo bapak punya anak tapi tidak punya istri lah ntu anaknya siapa”, vbCritical, “anda kurang ngajar”
End If
If pesan5 = 6 Then
pesan6 = MsgBox(“selamat anda tidak Impoten”, vbInformation, “Congratulation”)
End If

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s