Fungsi IF di Message Box

Seperti yang saya katakan di tutorial sebelumnya mengenai Message box (MB), di tutorial kali ini kita akan melanjutkannya, yaitu mengenai tipe - tipe MB, untuk tipe MB sendiri ada 20 tipe, 4 di antaranya sudah saya bahas, dan untuk sisanya (16) tidak akan saya bahas, yang akan saya bahas hanyalah tipe yang umum di gunakan dalam sebuah program saja, yaitu :

Untuk yang pertama akan saya bahas :
1. Help Button / vbMsgBoxHelpButton
Tipe MB yang pertama ini, sering di gunakan untuk memberi arahan / bantuan ketika user mengalami kesulitan dalam mengoperasikan sebuah program, tipe ini akan menampilkan 2 tombol yaitu Help dan OK, berikut contoh penulisannya : MsgBox, "PESAN", vbMsgBoxHelpButton, "Judul Pesan"
MsgBox "HELP TYPE", vbMsgBoxHelpButton, "Blues Pedia"

2. Question / vbQuestion
Sama Halnya dengan Tipe Help Button, tipe ini sering di gunakan untuk memberi arahan / bantuan, format penulisanya pun, hampir sama, kita hanya perlu mengganti tipe MBnya di script, seperti ini :
MsgBox "HELP TYPE", vbQuestion, "Blues Pedia"

Tapi dalam hal tampilan, tentunya sangat berbeda dengan tipe satu, di mana tipe question memiliki gambar lingkaran biru dengan tanda tanya berwarna putih, dan tombolnya pun hanya satu, yaitu OK saja.
Sebelum ke tipe MB selanjutnya, perhatikan kalimat berikut ini :
Berbeda dengan tipe MB Sebelumnya, tipe MB kali ini kita akan gabungkan dengan fungsi IF,
3. Retry Cancel / vbRetryCancel
Untuk tipe ke tiga ini, biasanya di gunakan ketika user sudah melakukan sesuatu, seperti menghitung sebuah volume sebuah bangunan, untuk format penulisanya yaitu :

If MsgBox("Pesan", vbRetryCancel, "Judul Pesan") = vbRetry Then
(hal yang akan terjadi  jika user memilih Tombol "Retry")
Elseif vbCancel then
(Hal yang akan terjadi jika user memilih Tombol "Cancel")
End If

contohnya seperti ini :
If MsgBox("Retry Cancel TYPE", vbRetryCancel, "Blues Pedia") = vbRetry Then
MsgBox "Retry"
ElseIf vbCancel Then
MsgBox "Cancel"
End If

Untuk contoh lainya / contoh penerapanya dalam sebuah program, silahkan lihat di sini :


Dan tipe terakhir dalam tutorial ini adalah ;
4. Abort Retry Ignore  / vbAbortRetryIgnore
Sama seperti tipe ketiga, hanya saja tipe ini mmiliki 3 tombol button yaitu : Abort Retry dan Ignore, untuk penggunaanya biasa di gunakan pada form input data, di mana ketika user selesai menyimpan data, maka akan muncul pesan "Ingin Menambahkan Data Lagi ?", dan akan di hadapkan pada 3 tombol yang akan menentukan langkah selanjutnya, 
- misalnya Tombol Abort untuk Tidak Melanjutkan input data dan kembali ke form sebelumnya,
- Tombol Retry untuk menambahkan data lagi, 
- dan Tombol Ignore untuk mengabaikan pesan dan melanjutkan ke form selanjutnya,
Untuk format penulisanya seperti ini :

If MsgBox("Pesan", vbAbortRetryIgnore, "Judul Pesan") = vbAbort Then
(hal yang akan terjadi  jika user memilih Tombol "Abort")

Elseif vbRetry then
(Hal yang akan terjadi jika user memilih Tombol "Retry")

Elseif vbIgnore then
(Hal yang akan terjadi jika user memilih Tombol "Ignore")
End If

Contohnya seperti ini :

Private Sub Command1_Click()
If MsgBox("Abort Retry Ignore TYPE", vbAbortRetryIgnore, "Blues Pedia") = vbAbort Then
MsgBox "Abort"

ElseIf vbRetry Then
MsgBox "Retry"

ElseIf vbIgnore Then
MsgBox "Ignore"

End If

End Sub

Sekian tutorial kali ini semoga bermanfaat


Bantu kembangkan Blues Pedia yuk, caranya share artikel ini :

G+

0 Response to "Fungsi IF di Message Box"

Post a Comment