Click here to Skip to main content
16,020,305 members
Home / Discussions / Visual Basic
   

Visual Basic

 
GeneralRe: Virus Checking Pin
Christian Graus25-Feb-07 9:00
protectorChristian Graus25-Feb-07 9:00 
QuestionOffice Addin Pin
Muhammad Nauman Yousuf24-Feb-07 14:10
Muhammad Nauman Yousuf24-Feb-07 14:10 
Questionproprietary web Browser Pin
Crash_beta24-Feb-07 13:41
Crash_beta24-Feb-07 13:41 
AnswerRe: proprietary web Browser Pin
Christian Graus24-Feb-07 16:22
protectorChristian Graus24-Feb-07 16:22 
GeneralRe: proprietary web Browser Pin
Crash_beta24-Feb-07 16:31
Crash_beta24-Feb-07 16:31 
GeneralRe: proprietary web Browser Pin
Dave Kreskowiak24-Feb-07 17:05
mveDave Kreskowiak24-Feb-07 17:05 
GeneralRe: proprietary web Browser Pin
Crash_beta25-Feb-07 12:21
Crash_beta25-Feb-07 12:21 
QuestionSplashScreen Pin
WestSideRailways24-Feb-07 12:45
WestSideRailways24-Feb-07 12:45 
Action required :-
Splashscreen to stay untill Progressbar has finished

Public NotInheritable Class SplashScreen1

    Private Sub SplashScreen1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Form1.Visible = False
        Timer1.Enabled = True


    End Sub

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



        If ProgressBar1.Value <> ProgressBar1.Maximum Then
            ProgressBar1.Value = (ProgressBar1.Value + 1)
            Label1.Text = "Loading " & ProgressBar1.Value & "% Complete"
        End If

        If ProgressBar1.Value = 1 Then
            Timer1.Interval = 800
        End If

        If ProgressBar1.Value = 2 Then
            Timer1.Interval = 75
        End If

        If ProgressBar1.Value = 12 Then
            Timer1.Interval = 600
        End If

        If ProgressBar1.Value = 14 Then
            Timer1.Interval = 1500
        End If

        If ProgressBar1.Value = 30 Then
            Timer1.Interval = 500
        End If

        If ProgressBar1.Value = 50 Then
            Timer1.Interval = 250
        End If

        If ProgressBar1.Value = 75 Then
            Timer1.Interval = 100
        End If

        If ProgressBar1.Value = 96 Then
            Timer1.Interval = 2000
        End If

        If ProgressBar1.Value = 100 Then
            Form1.Visible = True
            Me.Visible = False
        End If

    End Sub

End Class


Can anyone tell me why it's not staying?Confused | :confused:
AnswerRe: SplashScreen Pin
Dave Kreskowiak24-Feb-07 13:34
mveDave Kreskowiak24-Feb-07 13:34 
GeneralRe: SplashScreen Pin
WestSideRailways24-Feb-07 15:36
WestSideRailways24-Feb-07 15:36 
GeneralRe: SplashScreen Pin
Dave Kreskowiak24-Feb-07 16:57
mveDave Kreskowiak24-Feb-07 16:57 
GeneralRe: SplashScreen Pin
WestSideRailways24-Feb-07 17:23
WestSideRailways24-Feb-07 17:23 
GeneralRe: SplashScreen Pin
Dave Kreskowiak25-Feb-07 5:42
mveDave Kreskowiak25-Feb-07 5:42 
AnswerRe: SplashScreen Pin
Christian Graus24-Feb-07 16:24
protectorChristian Graus24-Feb-07 16:24 
GeneralRe: SplashScreen Pin
WestSideRailways24-Feb-07 17:14
WestSideRailways24-Feb-07 17:14 
GeneralRe: SplashScreen Pin
Christian Graus25-Feb-07 8:57
protectorChristian Graus25-Feb-07 8:57 
AnswerRe: SplashScreen Pin
TwoFaced24-Feb-07 17:46
TwoFaced24-Feb-07 17:46 
GeneralRe: SplashScreen Pin
WestSideRailways24-Feb-07 18:33
WestSideRailways24-Feb-07 18:33 
Questionupdate doesnt save into table using vb.net Pin
7prince24-Feb-07 9:53
7prince24-Feb-07 9:53 
AnswerRe: update doesnt save into table using vb.net Pin
Dave Kreskowiak24-Feb-07 11:42
mveDave Kreskowiak24-Feb-07 11:42 
Questiontree view Pin
manni_n24-Feb-07 7:28
manni_n24-Feb-07 7:28 
AnswerRe: tree view Pin
MatrixCoder24-Feb-07 9:12
MatrixCoder24-Feb-07 9:12 
QuestionOleDB error Pin
7prince24-Feb-07 6:31
7prince24-Feb-07 6:31 
AnswerRe: OleDB error Pin
Dave Kreskowiak24-Feb-07 12:12
mveDave Kreskowiak24-Feb-07 12:12 
Questioninsert text data into database (SQL 2005) Pin
lyzaa24-Feb-07 5:22
lyzaa24-Feb-07 5:22 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.