Membuat MessageBox VB 06

Ketika berhadapan dengan komputer, kawan-kawan tentunya sudah tidak asing lagi dengan yang namanya MessageBox (MsgBox). seperti di bawah ini.


Sebenarnya untuk membuat MsgBox tidak terlalu rumit, Misalnya untuk MsgBox di atas kita bisa membuat source code nya seperti ini.

Private Sub CmdExit_Click()
If MsgBox("Anda yakin mau keluar?", vbQuestion + vbYesNo, "Konfirmasi") = vbYes Then
    End
End If
End Sub

Kita bisa merubah icon atau button untuk msgbox. Berikut detail setiap atribut yang ada pada msgbox:

Icon

Constant	Value	Picture
vbCritical	16
vbQuestion	32
vbExclamation	48
vbInformation	64

Buttons

Constant	Value	Description
vbOkOnly	0	Menampilkan tombol OK
vbOkCancel	1	Menampilkan tombol OK dan Cancel
vbAbortRetryIgnore	2	Menampilkan tombol Abort, Retry dan Ignore
vbYesNoCancel	3	Menampilkan tombol Yes, No dan Cancel
vbYesNo	4	Menampilkan tombol Yes dan No
vbRetryCancel	5	Menampilkan tombol Retry dan Cancel

Return Values

Constant	Value	Description
vbOk	1	Tombol OK
vbCancel	2	Tombol Cancel
vbAbort	3	Tombol Abort
vbRetry	4	Tombol Retry
vbIgnore	5	Tombol Ignore
vbYes	6	Tombol Yes
vbNo	7	Tombol No

Pada contoh diatas kita mengunakan Constant untuk setiap atribut, seperti vbQuestion, vbYesNo dan vbYes. Atribut itu bisa kita ganti dengan value seperti yang tertera pada tabel diatas, sehingga kodenya menjadi:

Private Sub CmdExit_Click()
If MsgBox("Anda yakin mau keluar?", 32 + 4, "Konfirmasi") = 6 Then
    End
End If
End Sub

Mudah bukan?? :=)