Membuat MessageBox VB 06
BSI Tugas Kuliah Tutorial
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?? 😁