Hej!

Jag har ett hel-sjukt problem!

Läs följande kod:

<code>
Private Sub cmdStopPolling_Click()
bolListen = False
base1.PortOpen = False
base2.PortOpen = False
subValidateMain
End Sub


Private Sub Form_Unload(Cancel As Integer)
If (bolListen = False) Then
If (MsgBox("Do you really want to quit?", vbYesNo Or vbDefaultButton2 Or vbQuestion, "Quit?") = vbYes) Then
subSetLight 0, 0, 0, 0
Unload frmAddPlayer
Unload frmConsole
Unload frmSplash
Unload frmInfo
Unload Me
End
Else
Cancel = 1
End If
Else
MsgBox "You can't close this program without pressing the 'Stop Listen' button first", vbInformation, "Failure"
Cancel = 1
End If
End Sub
</code>

Den fungerar inte...

Om bolListen = True så kommer en msgbox upp och så, perfekt. (Används för att programmet inte ska gå att avsluta utan att man stänger av en evighets loop)

Om bolListen = False så kommer BSOD dvs. Den blå skärmen upp. Ett undantagsfel. Förklara det för mig! Jag har inte en aning! Om jag sätter en breakpoint på raden:
Private Sub Form_Unload(Cancel As Integer)
så kommer ändå skärmen upp, men den stannar ifall bolListen = True


???

Hjälp! Det tar sådan tid att testköra programmet om jag måste starta om Windows för varje nytt test...

Mvh/
Oskar Johansson

Hej.

Helt fel är nog inte att läsa denna tråd:

[Vilka forms &#228;r laddade? L&#214;ST]

Vet inte om det är lösningen på ditt problem men kanske...

//fredda


EDIT:
Unload Me i Form_Unload verkar lite farlig...

Skulle Skipa Unload me och End:
<code>
Private Sub cmdStopPolling_Click()
bolListen = False
base1.PortOpen = False
base2.PortOpen = False
subValidateMain
End Sub


Private Sub Form_Unload(Cancel As Integer)
If bolListen = False Then
Select Case MsgBox("Do you really want to quit?", vbYesNo Or vbDefaultButton2 Or vbQuestion, "Quit?")
Case vbYes
subSetLight 0, 0, 0, 0
Unload frmAddPlayer
Unload frmConsole
Unload frmSplash
Unload frmInfo
Case Else
Cancel = True
End Select
Else
MsgBox "You can't close this program without pressing the 'Stop Listen' button first", vbInformation, "Failure"
Cancel = True
End If
End Sub
</code>

Fungerade inte, fortfarande problem.

Datorn hänger sig som bara den.

Du vet, den blåa skärmen...

Har du provat att ta bort koden i unload eventet? Vad gör subSetLight?

Denna kod hör till ett eget skrivet program till ett eget kopplat Laserdome. subSetLight sätter lysdioderna på baserna.

Vill helst inte ta bort unload eventet pga att jag har flera fönster, samt att Det ska helst komma upp en fråga

Jag löste det själv. Det var ett par MSComm kontroller som ställde till det. Förut var dom ritade på formuläret, nu är dom dynamiskt laddade. Inga problem längr!

Mvh/
Oskar Johanss

Tack för att ni försökte! (Jag kom på en hel del andra bra idéer under tiden...)

Tycker att det ser lite fel ut med OR

MsgBox("Do you really want to quit?", vbYesNo Or vbDefaultButton2 Or vbQuestion,

Borde vara:
MsgBox("Do you really want to quit?", vbYesNo + vbDefaultButton2 + vbQuestion)

Hälsningar
/Pelle

Pelle, är ju bättre att slå samman flagorna binärt med or än med plus. Tror till och med microsoft rekomenderar det. Så det är absoulit inget fel med det.

;O)

OR kan inte ersättas av plus:

Helt olika funktioner har dom.

OR används:

1001
1100
===
1101

+ används

123
434
==
557


Undersök det binärt med calc.exe i avancerat läge...

>OR kan inte ersättas av plus:
>Helt olika funktioner har dom.

Generellt är det så, men i detta fallet när man slår ihop flaggor fungerar det med både + och or. En fördel med OR när man pysslar med flaggor är att om du skulle råka få med samma flagga flera gånger blir det jättefel med +, men det fungerar utmärkt med OR.

/Johan

Aha...

Bra att veta...