[Solved] Nubi minta tolong PLz( system exit)

[vmwmxholic]

Private Sub Form_Unload(Cancel As Integer)
MsgBox "Anda yakin keluar", vbQuestion + vbYesNo, "Question ?"
If (vbNo = True) Then
Call Form_Load
End If
End Sub

Para DC yg kami hormati, mohon bantuanya, anae pingin buat aplikasi ane jk form-nya diklik tanada "x" (close) keluar msgbox Anda yakin keluar? klau yes mk pro keluar klau no jd ndak keluar

Plz kaka tolong donk

(11-24-2010 01:42 PM)vmwmxholic Wrote:  Private Sub Form_Unload(Cancel As Integer)
MsgBox "Anda yakin keluar", vbQuestion + vbYesNo, "Question ?"
If (vbNo = True) Then
Call Form_Load
End If
End Sub

Para DC yg kami hormati, mohon bantuanya, anae pingin buat aplikasi ane jk form-nya diklik tanada "x" (close) keluar msgbox Anda yakin keluar? klau yes mk pro keluar klau no jd ndak keluar

Plz kaka tolong donk

semoga membantu

Quote:Private Sub Form_Unload(Cancel As Integer)
If MsgBox("Apa anda mau keluar & Apa petimati ganteng..wkkwkwk?", vbYesNo) = vbNo Then
Cancel = True
End If
End Sub

[./blacknotes]

(11-24-2010 02:07 PM)supermenganteng Wrote:  semoga membantu

Quote:Private Sub Form_Unload(Cancel As Integer)
If MsgBox("Apa anda mau keluar & Apa petimati ganteng..wkkwkwk?", vbYesNo) = vbNo Then
Cancel = True
End If
End Sub

script surim... breakpc

wkwkwkwk

(11-24-2010 02:52 PM)./blacknotes Wrote:  

(11-24-2010 02:07 PM)supermenganteng Wrote:  semoga membantu

Quote:Private Sub Form_Unload(Cancel As Integer)
If MsgBox("Apa anda mau keluar & Apa petimati ganteng..wkkwkwk?", vbYesNo) = vbNo Then
Cancel = True
End If
End Sub

script surim... breakpc

wkwkwkwk

wkkwkkww.... kalau yang udah jadi ne download scrift yang udah di compile ke exe
http://upload.ugm.ac.id/343Project1.exe

[vmwmxholic]

(11-24-2010 03:13 PM)supermenganteng Wrote:  

(11-24-2010 02:52 PM)./blacknotes Wrote:  

(11-24-2010 02:07 PM)supermenganteng Wrote:  semoga membantu

Quote:Private Sub Form_Unload(Cancel As Integer)
If MsgBox("Apa anda mau keluar & Apa petimati ganteng..wkkwkwk?", vbYesNo) = vbNo Then
Cancel = True
End If
End Sub

script surim... breakpc

wkwkwkwk

wkkwkkww.... kalau yang udah jadi ne download scrift yang udah di compile ke exe
http://upload.ugm.ac.id/343Project1.exe

tanx kakkak program jalan

[Mr.AT (91)]

Quote:Private Sub Form_Unload(Cancel As Integer)
X = MsgBox "Apakah Anda yakin Akan keluar", vbokcancel "PERHATIAN"
if = unload me
End Sub

klo gak salah si gtohh kk .. maaf coz VB ane lagi corupt jadi gak bisa 100% maksimal ...

[black.bottle]

cancel = 1

[DC_Julianz]

ini mah udh solved sama om petay kan oke ane edit