Program not ending

[Joacim Andersson]

In your example you set frm to nothing but you don't set Form2 to nothing. Both of those object pointers or references exist, setting one to nothing but not the other is about the same thing as you don't put any to nothing.

[Joacim Andersson]

Anyhow... Try moving the line that closes the winsock to before you start unloading each form.

[Mc Brain]

Anyhow... Try moving the line that closes the winsock to before you start unloading each form.

Wow!! How didn't I realize of that before. Anyway, I did move the line (which is safer), but still not closing.

[Mc Brain]

In your example you set frm to nothing but you don't set Form2 to nothing. Both of those object pointers or references exist, setting one to nothing but not the other is about the same thing as you don't put any to nothing.

Isn't that what Unload Form2 is for?

[Joacim Andersson]

Isn't that what Unload Form2 is for?

Unload Form2 will unload the visual parts of the form. It will not unload the code itself. Why would you set the reference to Nothing if it was OK to just unload it (which it is in most cases).

[Mc Brain]

Unload Form2 will unload the visual parts of the form. It will not unload the code itself. Why would you set the reference to Nothing if it was OK to just unload it (which it is in most cases).

I don't know. I also don't know why we're discussing about an example or about something that is not needed instead of what should be changed or added in the real code.

[Joacim Andersson]

I also don't know why we're discussing about an example or about something that is not needed

Well, as I mentioned in my origional apply:

On a side note... I see this code all the time

The key word here is On a side note.... Nothing to do with your question at all so let's not get ourself stuck on that issue.

I do understand that posting your project would be a lot to ask for but I it would be very helpful to be able to see this behaviour with my own (bug seeking ) eyes.

[Mc Brain]

I do understand that posting your project would be a lot to ask for but I it would be very helpful to be able to see this behaviour with my own (bug seeking ) eyes.

Yes, it does. It's a 90% working net-game... and would not like anyone on this planet be able to download the whole code.

Whenever I finishs it, I will consider releasing its code... but it does not outlook so good right now.


Edit: What the h... was "net-working game"? Were you high??? I'm not fan with "working net-game" either, but I guess it explains better

[Mc Brain]

I think "End" was the problem. I remove the "just in case" End... and the process removed itself from memory as if everything was correctly deleted.

Private Sub Finalizar()
    If mkcDebug Then DebugPrint "frmTablero   Finalizar"
 
    Dim frm As Form
    
    Set Juego = Nothing
    Set MessagesToServer = Nothing
    Set Canto = Nothing
    Set Dichos = Nothing
'    Set Quejas = Nothing
    Set fTablero = Nothing
    Set StBy = Nothing
    Set MessageIDHistory = Nothing
 
    Set ImgLst = Nothing
    Set tFallo = Nothing
 
    Set OtroJuego = Nothing
    
    If udpPeer.State Then udpPeer.Close
    
    For Each frm In Forms
        Unload frm
        Set frm = Nothing
    Next
    
    'End  'Just In Case
    
    If mkcDebug Then DebugPrint "frmTablero   Finalizar - Out"
End Sub

[temp_12000]

Are you using multithread? I guess sme threads are not quiting.

[Mc Brain]

Are you using multithread? I guess sme threads are not quiting.

It's finishing correctly now.