Atribut MsgBox pada Visual Basic

Atribut MsgBox pada Visual Basic

Atribut MsgBox pada Visual Basic

Bagi yang sudah belajar vb, sudah tidak asing lagi tentang Messsage Box. Ya, msgbox sering digunakan sebagai penanganan error atau memberikan informasi, pesan, pertanyaan atau peringatan kepada pengguna program. Pesan atau Message box mempunyai beberapa atribut diantaranya Tittle, Icon, Prompt dan Button. Perhatikan gambar berikut

Misalnya kita buat sebuah tombol untuk keluar seperti gambar diatas. Tambahkan CommandButton pada form beri nama CmdExit, kemudian pada event On Click isi kode berikut:

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

Sumber : https://filehippo.co.id/