hi,
ich habe folgendes Problem:
wenn ich mein Proggi beende (mit dem X am oberen rechten Eck, NICHT mit dem „End“-Befehl), öffnet sich die Form immer wieder, welche durch die vorhergehende geöffnet wurde.
Wie kann ich das Problem beheben?? hier ist mal der Quelltext:
Dim x% 'für die Schleife beim Timer1
Dim i% 'für die Schleife bei beiden Timern
Dim y% 'für die Schleife beim Timer tmrLoad
Private Sub Form_Load()
y = 1 'dafür, dass der Scrollbalken aufhört
End Sub
Private Sub Timer1_Timer()
x = 1
For i = 1 To 100
x = x + 1
If x = 2 Then
lblHeadline = „Banden-“
lblHeaddi = „Krieg“
tmrLoad.Enabled = True
lblLoad.Visible = True
shpOver.Visible = True
End If
Next i
End Sub
Private Sub tmrLoad_Timer() 'hier ist der Source für den Balken
For i = 1 To 100
shpOver.Width = shpOver.Width + y 'shpOver ist die Shape, die `über das lblLoad gelegt wird, damit der Effekt erscheint
If shpOver.Width = 500 Then tmrLoad.Interval = 1200
If shpOver.Width = 550 Then tmrLoad.Interval = 300
If shpOver.Width = 2000 Then tmrLoad.Interval = 100
If shpOver.Width = 3500 Then tmrLoad.Interval = 700
If shpOver.Width = 5000 Then tmrLoad.Interval = 200
If shpOver.Width = 6000 Then tmrLoad.Interval = 1000
If shpOver.Width = 6050 Then tmrLoad.Interval = 100
If shpOver.Width = lblLoad.Width Then
y = 0
frmMenu.Show 'frmMenu wird gezeigt
Unload Me 'diese Form MÜSSTE geschlossen werden´, wird aber `glaub ich nicht
End If
Next i
End Sub
Vielen Dank für die Hilfe im Voraus!!!