Fungsi If Di Message Box

Seperti yang aku 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 aku bahas, dan untuk sisanya (16) tidak akan aku bahas, yang akan aku bahas hanyalah tipe yang umum di gunakan dalam sebuah kegiatan saja, yaitu :

Untuk yang pertama akan aku bahas :

1. Help Button / vbMsgBoxHelpButton

Tipe MB yang pertama ini, sering di gunakan untuk memberi aba-aba / pinjaman saat user mengalami kesulitan dalam mengoperasikan sebuah program, tipe ini akan menampilkan 2 tombol yaitu Help dan OK, berikut teladan penulisannya : MsgBox, "PESAN", vbMsgBoxHelpButton, "Judul Pesan"

MsgBox "HELP TYPE", vbMsgBoxHelpButton, "Routeros Mikrotik"

2. Question / vbQuestion

Sama Halnya dengan Tipe Help Button, tipe ini sering di gunakan untuk memberi aba-aba / bantuan, format penulisanya pun, hampir sama, kita hanya perlu mengganti tipe MBnya di script, menyerupai ini :

MsgBox "HELP TYPE", vbQuestion, "Routeros Mikrotik"

Tapi dalam hal tampilan, tentunya sangat berbeda dengan tipe satu, di mana tipe question mempunyai gambar bulat 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 saat user sudah melaksanakan sesuatu, menyerupai menghitung sebuah volume sebuah bangunan, untuk format penulisanya yaitu :

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

contohnya menyerupai ini :
If MsgBox("Retry Cancel TYPE", vbRetryCancel, "Routeros Mikrotik") = vbRetry Then
MsgBox "Retry"
ElseIf vbCancel Then
MsgBox "Cancel"
End If

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

Dan tipe terakhir dalam tutorial ini ialah ;

4. Abort Retry Ignore  / vbAbortRetryIgnore

Sama menyerupai 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 saat user selesai menyimpan data, maka akan muncul pesan "Ingin Menambahkan Data Lagi ?", dan akan di hadapkan pada 3 tombol yang akan menentukan langkah selanjutnya, 

- contohnya 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 menyerupai ini :

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

Elseif vbRetry then
(Hal yang akan terjadi kalau user menentukan Tombol "Retry")

Elseif vbIgnore then
(Hal yang akan terjadi kalau user menentukan Tombol "Ignore")
End If

Contohnya menyerupai ini :

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

ElseIf vbRetry Then
MsgBox "Retry"

ElseIf vbIgnore Then
MsgBox "Ignore"

End If

End Sub

Sekian tutorial kali ini biar bermanfaat