Hallo,
ich habe grade ne Verzweiflung nach 90minuten bingen....
Ich habe ein Programm, allerdings soll der Nutzer von einem Begrüßungsbildschirm Begrüßt werden. Ich möchte damit die Progressbar sich abhängig vom Timer füllt. Allerdings läuft nur der timer.... Dann habe ich alles umgeändert. Jetzt wird die Bedingung zwar erfüllt, aber ich sehe es nicht. Es wird direkt das HauptFormular geöffnet.
Das ist der Code:
Private Sub Form_Load()
lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision
lblProductName.Caption = App.Title
Static i As Integer
ProgressBar1.Value = Val(ProgressBar1.Value) + 10
If ProgressBar1.Value < 100 Then
For i = 1 To 100 Step 5
Next
Timer1.Enabled = False
Unload Me
frmEingabe.Show
End If
End Sub
Private Sub Frame1_Click()
Unload Me
frmEingabe.Show
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Unload Me
frmEingabe.Show
End Sub
|