Fungsi MsgBox
Menampilkan kotak dialog yang memiliki pesan dan menghasilkan sebuah nilai.
Sintaksis:
MsgBox (Teks As String [,Jenis As Integer [,JudulDialog As String]])
Nilai hasil:
Integer
Parameter:
Teks: Ekspresi string yang ditampilkan sebagai pesan di daalm kotak dialig. Pemutus baris bisa disisipkan dengan Chr$(13).
JudulDialog: Ekspresi string yang ditampilkan dalam baris judul dialog. Apabila diabaikan, maka nama yang ditampilkan adalah nama aplikasi terkait.
Tipe: Ekspresi integer apa pun yang menentukan tipe dialog dan menentukan jumlah dan tipe tombol atau ikon yang ditampilkan.Tipemerupakan kombinasi pola bit (elemen dialog yang didefinisikan dengan menambahkan nilai masing-masing):
Nilai
Menampilkan tombol Gagalkan, Ulangi, dan Abaikan. |
Nilai integer |
Definisi |
MB_OK |
0 |
Hanya menampilkan tombol OKE. |
MB_OKCANCEL |
1 |
Menampilkan tombol OK dan Batal. |
MB_ABORTRETRYCANCEL |
2 |
Menampilkan tombol Gagalkan, Ulangi, dan Abaikan. |
MB_YESNOCANCEL |
3 |
Menampilkan tombol Ya, Tidak, dan Batal. |
MB_YESNO |
4 |
Menampilkan tombol Ya dan Tidak. |
MB_RETRYCANCEL |
5 |
Menampilkan tombol Ulangi dan Batal. |
MB_ICONSTOP |
16 |
Tambahkan ikon Berhenti pada dialog. |
MB_ICONQUESTION |
32 |
Tambahkan ikon Pertanyaan pada dialog. |
MB_ICONEXCLAMATION |
48 |
Tambahkan ikon Tanda Seru ke dialog. |
MB_ICONINFORMATION |
64 |
Tambahkan ikon Informasi pada dialog. |
|
128 |
Tombol pertama pada dialog sebagai tombol utama. |
MB_DEFBUTTON2 |
256 |
Tombol kedua pada dialog sebagai tombol utama. |
MB_DEFBUTTON3 |
512 |
Tambahkan ikon Tanda Seru ke dialog. |
Nilai hasil:
Menampilkan tombol Gagalkan, Ulangi, dan Abaikan. |
Nilai integer |
Definisi |
IDOK |
1 |
OK |
IDCANCEL |
2 |
Batal |
IDABORT |
3 |
Batal |
IDRETRY |
4 |
Coba Lagi |
IDIGNORE |
5 |
Abaikan |
IDYES |
6 |
Ya |
IDNO |
7 |
Tidak |
Contoh:
Sub ExampleMsgBox
Dim sVar As Integer
sVar = MsgBox("Las Vegas")
sVar = MsgBox("Las Vegas",1)
sVar = MsgBox( "Las Vegas",256 + 16 + 2,"judul Dialog")
sVar = MsgBox ("Las Vegas", MB_DEFBUTTON2 + MB_ICONSTOP + MB_ABORTRETRYCANCEL, "Judul dialog")
End Sub