Home > Visual Basic > Mengganti posisi tombol default fungsi MsgBox

Mengganti posisi tombol default fungsi MsgBox

December 28, 2009

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🙂

Categories: Visual Basic
%d bloggers like this: