5
Contributors
24
Replies
26
Views
6 Years
Discussion Span
Last Post by codeorder
Featured Replies
  • 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 … Read More

0

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

Edited by Ezzaral: Fixed code tag.

0

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
0
If i > 10 Then
            Nextform.Show()
            Timer1.Stop()
            Me.Close '// Close current Form.
        End If

Edited by codeorder: n/a

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

Doesnt work it closes all forms

0
'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()
1

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

Votes + Comments
just because you seem to deserve more rep. points for all the help provided on this forum. :)
0

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

0
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
0

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.

0

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

0

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
0

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
This question has already been answered. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.