wah udah lama nie ngga ngoding vb6 lagi..biasa urusan kuliah setumpuk...
looh ko curhat sih..hehe. Langsung za ane mao bagi coding komfirmasi jika ingin keluar program..cekdizout..
di atas adalah gambar program anda, terserah mao program apa za deh..
nah jika anda ingin keluar dari program anda, mengklik tanda x di pojok kanan maka seperti gambar di bawah yang muncul...
nih coding nya...
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim Jawab As Integer
Jawab = MsgBox("Anda yakin akan keluar dari program?", vbQuestion + vbYesNo, "Konfirmasi Keluar")
If Jawab = vbNo Then Cancel = 1
End Sub
looh ko curhat sih..hehe. Langsung za ane mao bagi coding komfirmasi jika ingin keluar program..cekdizout..
di atas adalah gambar program anda, terserah mao program apa za deh..
nah jika anda ingin keluar dari program anda, mengklik tanda x di pojok kanan maka seperti gambar di bawah yang muncul...
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim Jawab As Integer
Jawab = MsgBox("Anda yakin akan keluar dari program?", vbQuestion + vbYesNo, "Konfirmasi Keluar")
If Jawab = vbNo Then Cancel = 1
End Sub
Post a Comment