[RESOLVED] form wont unload?

[Lazer]

hi guys, well what it is my form wont proply unload when useing winsock.
when i open the form and close it straight away, it unload fine but when i connect to my server useing winsock, i unload the form but i have to press Ctrl,Alt,Delete and end the task? does anyone know how to prevent me haveing to do this everytime? thanks

[XRsTX]

hi guys, well what it is my form wont proply unload when useing winsock.
when i open the form and close it straight away, it unload fine but when i connect to my server useing winsock, i unload the form but i have to press Ctrl,Alt,Delete and end the task? does anyone know how to prevent me haveing to do this everytime? thanks

Private Sub Form_Unload(Cancel As Integer)
   If Winsock1.State <> sckClosed Then Winsock1.Close 'close if any connection is trying to be made
    Unload Me 'unload the form
     End 'terminate the program
End Sub

[bushmobile]

Private Sub Form_Unload(Cancel As Integer)
   If Winsock1.State <> sckClosed Then Winsock1.Close 'close if any connection is trying to be made
    Unload Me 'unload the form
     End 'terminate the program
End Sub

The form is already unloading so there is no need to call Unload Me again.

And never use End. Forget it exists. All objects / connections / etc. should be unloaded / destroyed / closed / etc. in your Form_Unload event.

[Lazer]

Private Sub form_unload(Cancel As Integer)
   If connection.State <> sckClosed Then connection.Close
End Sub

it still shows in the windows task manager. i realy cant understnad why its doing this

[westconn1]

make sure no other code is execute in the sub you call unload me, this can keep the program running, if in doubt use

Unload Me 
Exit Sub

[ganeshmoorthy]

when you run it in step by step by pressing F8, what happens...

[Simply Me]

when you run it in step by step by pressing F8, what happens...

I agree

[rory]

Either ..

'// UNLOAD FORM
Private Sub Form_Unload(Cancel As Integer)
    '// END TIMER IF YOU HAVE
    ' Timer1.Interval = 0
    ' Timer1.Enabled = False
    '// CLOSE ANY OPEN CONN
    Winsock1.Close
    '// UNLOAD ALL FORMS
    Do Until Forms.Count = 1
        Unload Forms(Forms.Count - 1)
    Loop
End Sub

Or ... something like this .. depends what forms and controls you have ..

Private Sub form_unload(Cancel As Integer)
    Dim ctl As Control
    For Each ctl In Me.Controls
        If TypeOf ctl Is Timer Then      ' stop timers
            ctl.Interval = 0
            ctl.Enabled = False
        End If
        If TypeOf ctl Is Winsock Then  ' close winsocks
            ctl.Close
        End If
    Next
 
    ' unload all forms 
    Do Until Forms.Count = 1
        Unload Forms(Forms.Count - 1)
    Loop
 
End Sub

[Lazer]

works a treat, thanks guys