Coding4ever’s Blog

Just coding… coding… and coding… because coding should be fun :)

Mengganti Posisi Tombol Default Fungsi MsgBox

| Comments

Lihat kode berikut :

1
2
3
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

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

Selamat mencoba :)

visual basic

Tentang Penulis

Software developer yang fokus mengembangkan aplikasi di atas platform .NET (Desktop, ASP.NET MVC, Web Service) dan Android. Senang mempelajari teknologi baru terutama di bidang OOP, Design Pattern, ORM, Database dan Continuous Integration & Deployment.
Saat ini bekerja sebagai staf IT di salah satu PTS di Yogyakarta sebagai senior software developer. Di waktu luang insya Alloh akan terus berbagi pengalaman di blog ini :)

« First Step Daftar Fungsi Rahasia dan Penggunaannya »

Comments