Mengganti posisi tombol default fungsi MsgBox

Posted by Kamarudin • less than 1 minute read • Comments

Lihat kode berikut :

Private Sub cmdKeluar_Click()
   If MsgBox("Apakah Anda ingin keluar ???", vbExclamation + vbYesNo, "Konfirmasi") = vbYes Then End
End Sub

dan lihat hasilnya

dan bagaimana jika ingin hasilnya seperti ini :

gampang tinggal rubah kodenya menjadi seperti ini

Private Sub cmdKeluar_Click()
   If MsgBox("Apakah Anda ingin keluar ???", vbExclamation + vbYesNo + vbDefaultButton2, "Konfirmasi") = vbYes Then End
End Sub

Selamat mencoba :blush:

Comments