afsluit bevestiging

[dennisfranky]

hey,

ik heb een vraag je ik heb het volgende hoe zorg ik dat hij niet afsluit als ik op annuleren druk??


groeten, dennis


Private Sub Form_Unload(Cancel As Integer)

MsgBox "druk op ok om te stoppen", 1, "afsluiten"
If intresponse = 1 Then

End If
End Sub

 

[old Hippy]

Hi probeer dit

 Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim msg As String
        Dim title As String
        Dim style As MsgBoxStyle
        Dim response As MsgBoxResult
        msg = "Do you want to continue?"   ' Define message.
        style = MsgBoxStyle.DefaultButton2 Or _
           MsgBoxStyle.Information Or MsgBoxStyle.YesNoCancel
        title = "MyForm"   ' Define title.
        ' Display message.
        response = MsgBox(msg, style, title)
        If response = MsgBoxResult.Yes Then   ' User chose Yes.
            ' Perform some action.
        Else
            ' Perform some other action.
        End If
    End Sub

 

[dennisfranky]

heb nu dit maar wat moet ik invullen

Private Sub Form_Unload(Cancel As Integer)
 
MsgBox "druk op ok om te stoppen", vbOKCancel, "afsluiten"

    If response = vbCancel Then '?????
    Else: Unload Me

    End If
 
End Sub

 

[old Hippy]

Gewoon de code in formclosing zetten als je dan af sluit vraagt ie ja of enn of cancel.

 

[dennisfranky]

dat vraagt hij ook maar als je nee of cancel doet sluit hij wel gewoon af

 

[old Hippy]

dan weet ik het ook niet ik werk hier al heel lang mee en in al mijn progjes werkt het goed
ik werk met vb 2008

 

[The Mighty Atom]

Wat een hoop code voor iets simpels als dit. Probeer het zo:

    Private Sub frmProfileManager_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        If MessageBox.Show("Klik op OK om af te sluiten", "Afsluiten", MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = DialogResult.OK Then
            e.Cancel = False
        Else
            e.Cancel = True
        End If

    End Sub

 

[ReneDirks]

Ik ga er maar even vanuit dat je VB6 hebt en niet .net, daarom zullen die andere oplossing ook niet werken.
Ik ben maar even van je oorspronkelijk code uitgegaan, de regel die je zoek staat er bij

Private Sub Form_Unload(Cancel As Integer)

MsgBox "druk op ok om te stoppen", 1, "afsluiten"
If intresponse = 1 Then
[B]Cancel=1[/B]
End If
End Sub