Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
Private Sub Form_Load()
ProgressBar1.Min = 0
ProgressBar1.Max = 200
Timer1.Interval = 30
ProgressBar1.Value = 0
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value = 200 Then
Timer1.Enabled = False
Unload Me
End If
End Sub
Private Sub Timer1_Timer()
Static intSekunden As Integer
intSekunden = intSekunden+1
if intSekunden = 5 Then Unload Me
End Sub
30 Millisekunden * 200 = 6000 Millisekunden = 6 Sekunden. Das Ganze dauert so ziemlich exakt 6 Sekunden (es sei denn der Prozessor ist gerade sehr ausgelastet, dann wird der Timer ungenau).SPN_X hat gesagt.:Das Ganze dauert so ca. 5 sec
Grimreaper hat gesagt.:@Shakie
Nicht ganz zuende gedacht, oder? Warum sparst du nicht noch den integer und stellst den timer gleich auf 5 sekunden?