Memberi Pesan Konfirmasi pada Tombol Keluar di Visual Basic

TM-Blog kali ini akan berbagi trik Visual Basic yaitu Memberi Pesan Konfirmasi pada Tombol Keluar di Visual Basic


Lama ni gak update tentang trik Visual Basic yah dikarenakan kurangnya pengetahuan tentang Visual Basic
berikut cara menampilkan masagebox pada tombol keluar

1.Buka Aplikasi Visual Basic Anda
2.Buatlah Command Button dan beri nama 'CmdExit' dan captionya terserah
3.lalu klik dua kali pada command button
4.Masukan Kode berikut

Private Sub CmdExit_click()
If msgbox ("Mau keluar niih?,vbQuestion+vbYesNo,"Quit")=vbYes Then End
End If
End Sub

5.Tekan F5 untuk mencobanya


NP :  Text script yang berwarna biru bisa sobat ganti sesuka sobat :D

Semoga sukses :)

Sekian dari TM-Blog
Jika Manfaat komen dan follow ya

30 Responses to "Memberi Pesan Konfirmasi pada Tombol Keluar di Visual Basic"

  1. wah mantep nih sob ,, saya coba dulu ya :D

    BalasHapus
  2. hah....jadi gampang banget nih caranya,,kirain ribet

    thanks pencerahannya gan

    BalasHapus
  3. artikelnya sangat bermanfaat gan

    BalasHapus
  4. Dewa Visual Basic Ajarin dong Kaka.. :D

    BalasHapus
    Balasan
    1. Ahh biasa aja kok :D
      emang itu pelajaran anak RPL ^o^

      Hapus
  5. waah ilmu baru gan makasih ya :D

    BalasHapus
  6. yah jadi ingast awal awal belajar vb. mumet bro. tapi kalo cuman untuk copas gini seh ane bisa. he he. makasih tipsnya gan.

    BalasHapus
    Balasan
    1. Iya :)
      ini saya awal-awal belajar VB :D

      Hapus
  7. thx gan tutornya.. :)

    come back..

    BalasHapus
  8. blognya sudah saya follow , jika berkenan follow balik yah
    achmadrizali.blogspot.com

    BalasHapus
  9. Mantap Jos....!!! Banget !! :imhere:

    BalasHapus
  10. Keren nih artikel nya, tapi kalo nambahin Pesan di Tombol Submit gimana? tolong pencerahannya

    http://cyberphone666.blogspot.com

    BalasHapus
  11. Makasih gan!!
    Berkunjung juga ke http://ixii-gen.blogspot.com

    BalasHapus
  12. Gan, cara ngerubah Yes/No menjadi Ya/Tidak, gmna ya Gan..? Thanks

    BalasHapus
  13. Maaf bang sebelumnya,,

    Koreksi aj Itu untuk MsgBox buat keluar,, Ngk bisa Work!!
    yang 1000% WORK:

    nie >>>
    S = MsgBox(" Mau Keluar Ya :) ,, Benarkan!!!", vbQuestion + vbYesNo, "INFORMASI")
    If S = vbYes Then
    End
    End If


    Kritik GREGET

    BalasHapus
    Balasan
    1. oke kak ;) tapi di saya masih work aja tuh hehe

      Hapus
    2. kurang dikit ja si

      If MsgBox("Mau keluar niih?", vbQuestion + vbYesNo, "Quit") = vbYes Then
      End
      End If

      thx mas sangat membantu n enak tampilan blognya

      Hapus
  14. kalau di APK bisa gk gan. yg sudah ada confirmasi kya gtoe. di non aktifkan apakah bisa gan

    BalasHapus
  15. Terima Kasih Untuk Informasi yang di berikan ^0^
    untuk skrip yang di berikan masih belum work di vb 2010 gan ^_^
    mungkin ini bisa membantu di vb 2010 yah atau mungkin yang lainnya bersumber dari blog anda gan ^_^
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If MsgBox("Apakah anda mau keluar ?", vbQuestion + vbYesNo, "Quit") = vbYes Then
    End
    End If
    Semoga bisa membantu ^_^ thanks ya gan ^_^
    Interface nya keren bang ^0^
    mudah dan dapat di cerna ^_^

    BalasHapus

Google+ Followers