I want to make a Form that imitates a load and waits a few seconds to...

[DisasterPiece]

load another form and i want a progress bar to work with it.

[kingsonprisonic]

You can use Timer control for this...

[DisasterPiece]

Yes but I dont know how to make it load the form after the loadbar is completed here is my code so far

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(+1000)
    End Sub

    Private Sub Title_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Timer1.Enabled = True Then Login.Show()
    End Sub
End Class

[kingsonprisonic]

Use this

'First declare i as integer=0

 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        i += 1
        If i > 10 Then 'Here i use 10 seconds to load the new form
            Nextform.Show()
            Timer1.Stop()
        End If
    End Sub

[kingsonprisonic]

Set timer interval as 1000 from the property window.

[DisasterPiece]

Set timer interval as 1000 from the property window.

'i' is not declared. (sorry im new)

[kingsonprisonic]

Public Class ABC
'After class name declare i
    Dim i As Integer = 0

[DisasterPiece]

How do i make the title page close after?

[codeorder]

If i > 10 Then
            Nextform.Show()
            Timer1.Stop()
            Me.Close '// Close current Form.
        End If

[DisasterPiece]

If i > 10 Then
            Nextform.Show()
            Timer1.Stop()
            Me.Close '// Close current Form.
        End If

Doesnt work it closes all forms

[codeorder]

http://www.daniweb.com/software-development/vbnet/threads/303592/1307666#post1307666:)

[DisasterPiece]

http://www.daniweb.com/software-development/vbnet/threads/303592/1307666#post1307666:)

I know it still closes both forms.

[codeorder]

Post your "imitating" Form's code.

[DisasterPiece]

'Makes the Progress bar work.
        ProgressBar1.Increment(+200)

        'Loads the Login Form.
        Dim i As Integer = 2000
        If i > 2000 Then


        End If
        Login.Show()
        Me.Close()

[lolafuertes]

Maybe the magic can be to create a new module with a Sub Main and use this sub for starting the project in the project properties page.

This sub can do the following:

* Instantiate a new titleForm.
* Show the titleform.
* Do the progress bar movement for the titleForm
* instantiate the logonForm
* Close the titleForm
* Show in dialog mode the logonForm.

Hope this helps

[DisasterPiece]

I need help.

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Sub Main()

      
        'Makes the Progress bar work.
        ProgressBar1.Increment(+1000)

        'Loads the Login Form.
        Dim i As Integer = 1000
        i += 1
        If i > 1 Then
            Login.Show()
            Timer1.Stop()
        End If
        Login.Show()
        Me.Close()

    End Sub
End Class

sub main is not working

[codeorder]

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With ProgressBar1
            .Maximum = 100
        End With
        With Timer1
            .Interval = 500 '// 1/2 sec. delay.
            Me.Show() '// display Form before starting Timer.
            .Start() '// start Timer.
        End With
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Static iCount As Integer = 0
        If Not iCount = 10 Then
            iCount += 1
            ProgressBar1.Value += 10
        Else
            frmLogin.Show()
            Me.Close() '// stops the Timer as well.
        End If
    End Sub
End Class

[DisasterPiece]

Nothing.

[codeorder]

Try my previous code in a new project.
Leave Form1's .Name as is and add a new form named "frmLogin".
Don't forget about the app.s properties of "When last form closes".

Let me know how that goes, and if still Nothing, I am still done with this thread. Good luck.

[DisasterPiece]

Ah I forgot the When last form closes option! Thanks. Plus the code you gave me is better then the first!

[codeorder]

I'm still done with this thread.:D
Glad I could help.:)

[kingsonprisonic]

Actually if you close parent form. Then all form will close.

So simply hide the form.

If i > 10 Then
            Nextform.Show()
            Timer1.Stop()
            Me.Hide '// Hide current Form.
        End If

[kingsonprisonic]

Hey don't close that form simply hide it. Becoz when parent form get closed all child form will also close.

So try this..

If i > 10 Then
            Nextform.Show()
            Timer1.Stop()
            Me.Hide'// Hide current Form.
        End If

[bluehangook629]

post your code for further help. let us see what you have.

[codeorder]

This thread is solved, stop replying until further questions by o.p.. Thanks.