[RESOLVED] Splash screen

[vbtom]

I have a splash screen and i am wanting a moving timer on it so when i play the program it will display "Program is loading" and then " . . . . . . ."
THis is something i have never tried before and hope you could help!!!

many thanks for helping

[TheBigB]

Private Sub Form_Load()

   Timer1.Enabled = True
   Timer1.Interval = 1000  '//This will regulate the speed of events
   Timer1.Tag = "-1"

End Sub

Private Sub Timer1_Timer()

   Dim i As Integer

   Timer1.Tag = Val(Timer1.Tag) + 1

   If Timer1.Tag = "0" Then
       Label1.Caption = "Program is loading"
       Exit Sub
   End If

   i = Val(Timer1.Tag)
   If i < 8 Then
      Label1.Caption = Label1.Caption & "."
   Else
      MAINFORM.Show
      Unload Me
   End If

End Sub

[sessi4ml]

This is my final class project...VB6-1.
Uses timer with fonts becoming bigger.
Mult form, Global statments, and lots of comments

[vbtom]

Thanks sessi4ml it works like a beuty on my main screen the timer and exit button well thought out. On the other hand TheBigB, it doesnt work, it displays in a label Program loading but not the .... and it doesnt hide my splash and unload mainmenu.

Hope you can help!!???
Thanks

[TheBigB]

Oh you're right, I see
Changed it; should work now

[vbtom]

Could You Please Inlighten Me Into What They New Code Is Perhaps Lol!!!
Many Thanks

[TheBigB]

Timer1.Tag = Val(Timer1.Tag) + 1

forgot to increase the number

[vbtom]

i cant fathem out where its to go into the code, could you give me the whole code please as i need it asap.
many thanks for all your help!!!!

[vbtom]

Does the code look like this now-

Private Sub Form_Load()

Timer1.Enabled = True
Timer1.Interval = 1000 '//This will regulate the speed of events
Timer1.Tag = Val(Timer1.Tag) + 1

End Sub

Private Sub Timer1_Timer()

Dim i As Integer

Timer1.Tag = Val(Timer1.Tag) + 1

If Timer1.Tag = "0" Then
Label1.Caption = "Program is loading"
Exit Sub
End If

i = Val(Timer1.Tag)
If i < 8 Then
Label1.Caption = Label1.Caption & "."
Else
MAINFORM.Show
Unload Me
End If

End Sub

[TheBigB]

Private Sub Form_Load()

    Timer1.Enabled = True
    Timer1.Interval = 1000 '//This will regulate the speed of events
    Timer1.Tag = -1

End Sub

Private Sub Timer1_Timer()
    
    Dim i As Integer
    
    Timer1.Tag = Val(Timer1.Tag) + 1
    
    If Timer1.Tag = "0" Then
        Label1.Caption = "Program is loading"
        Exit Sub
    End If
    
    i = Val(Timer1.Tag)
    If i < 8 Then
        Label1.Caption = Label1.Caption & "."
    Else
        Timer1.Enabled = False
        MAINFORM.Show
        Unload Me
    End If

End Sub

[vbtom]

Right i have managed to sort the forms out but the program is now saying "......" and not program is loading and then ...... ?!?!?!??!
Dont surpose anyone could help.
My code is below-

Private Sub Timer1_Timer()

Dim i As Integer

Timer1.Tag = Val(Timer1.Tag) + 1

If Timer1.Tag = "0" Then
Label2.Caption = "Program is loading"
Exit Sub
End If

i = Val(Timer1.Tag)
If i < 8 Then
Label2.Caption = Label2.Caption & "."
Else
frmMainmenu.Show
Unload Me
End If


End Sub

[vbtom]

I have just sorted it out!!!!ITS SIMPLY AMAZING!!!! THEBIGB is a complete LEGEND and a credit to the site. MANY THANKS GUYS!!!!!!!

[TheBigB]

have you put
Timer1.Tag = -1
in the form's load sub?

[vbtom]

yeah i have it in the form load sector.
Many thanks for all your help!!!!!

[msayed2004]

Try my own heck

Not exactly what you want but it is a cool idea