[VB 6] Scaricare Programma

[raffaeu]

Ciao ho un programma che una volta terminato riceve il comando Unload Me, ma mi si chiude solamente il form e non l' intero programma.

Inoltre nel Unload e Query Unload di questo form ho messo:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If (AS400Rs.State = adStateOpen) Then
        AS400Rs.Close
    End If
    If (AS400Cn.State = adStateOpen) Then
        AS400Cn.Close
    End If
    Unload Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
    If (AS400Rs.State = adStateOpen) Then
        AS400Rs.Close
    End If
    If (AS400Cn.State = adStateOpen) Then
        AS400Cn.Close
    End If
    Unload Me
End Sub

Se metto Kill me non succede niente.
Come mai?

[xegallo]

perchè è sbagliatissimo mettere un unload me nella routine di unload così diventa ricorsiva
al posto di unload me metti set nomeform = nothing nell' evento unload

[raffaeu]

Ah non lo sapevo xe, come sono ignorante!!

[raffaeu]

Niente ho fatto cosi'

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error GoTo Err_QueryUnload
    If (AS400Rs.State = adStateOpen) Then
        AS400Rs.Close
    End If
    If (AS400Cn.State = adStateOpen) Then
        AS400Cn.Close
    End If
Exit_QueryUnload:
    Exit Sub
Err_QueryUnload:
    WriteLog ("QUERYUNLOAD" & err.Number & "   " & err.Description)
    Resume Next
End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error GoTo Err_Form_Unload
    If (AS400Rs.State = adStateOpen) Then
        AS400Rs.Close
    End If
    If (AS400Cn.State = adStateOpen) Then
        AS400Cn.Close
    End If
    Set AS400Rs = Nothing
    Set AS400Cn = Nothing
    Set frmAvvio = Nothing
Exit_Form_Unload:
    Exit Sub
Err_Form_Unload:
    WriteLog ("FORMUNLOAD" & err.Number & "   " & err.Description)
    Resume Next
End Sub

Ma non me lo scarica ...

[raffaeu]

Risolto !!

Avevo un obj che poi non settavo = Nothing e quindi rimaneva caricato e il programma non riusciva a scaricarlo ...

[raffaeu]

No adesso non mi si scarica di nuovo? COsa puo' essere?

[xegallo]

a che serve un resume next come ultima istruzione?
writelog fa riferimento a qualche oggetto?
ma

Exit_QueryUnload:
    Exit Sub

a che serve fare una label?

[raffaeu]

Guarda adesso ho fatto csi'

Private Sub Form_Unload(Cancel As Integer)
On Error GoTo Err_Form_Unload
    If (AS400Rs.State = adStateOpen) Then
        AS400Rs.Close
    End If
    If (AS400Cn.State = adStateOpen) Then
        AS400Cn.Close
    End If
    Set AS400Rs = Nothing
    Set AS400Cn = Nothing
    Set frmAvvio = Nothing
Exit_Form_Unload:
    Exit Sub
Err_Form_Unload:
    WriteLog ("FORMUNLOAD" & err.Number & "   " & err.Description)
    Resume Next
End Sub

mentre writeLog usa oggetti che pero' si svuotano a fine procedura ...
Ho eliminato queryUnload

[xegallo]

Private Sub Form_Unload(Cancel As Integer)
On Error GoTo Err_Form_Unload
    If (AS400Rs.State = adStateOpen) Then
        AS400Rs.Close
    End If
    If (AS400Cn.State = adStateOpen) Then
        AS400Cn.Close
    End If
    Set AS400Rs = Nothing
    Set AS400Cn = Nothing
    Set frmAvvio = Nothing

    Exit Sub
Err_Form_Unload:
    call WriteLog ("FORMUNLOAD" & err.Number & "   " & err.Description)
End Sub

prova così

[raffaeu]

no ho tolto proprio la label ma nada ...