[VB.NET] Timer e Splash Form

[axsw]

Dunque, ho creato una splash form con un evento timer e alla fine del conteggio del timer
dovrei aprire un'altra Form ma invece l'applicazione si chiude.
Posto il codice per capire meglio, grazie anticipatamente per gli aiuti.

    Private Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.Tick
        Static X As Short
        X = (X + 1) Mod 100
        Label3.Text = "Caricamento applicazione in corso..." & X & "%"
        prgb1.Value = X
        Cursor = System.Windows.Forms.Cursors.WaitCursor
        If prgb1.Value = 99 Then
            Timer1.Enabled = False
            Me.Cursor = Cursors.Default
            Prgb1.Value = 1
            FrmMain.Show()
            Me.Close()
        End If
    End Sub

[cassano]

per caso hai messo l'impostazione che quando si chiude la form di partenza si chiude tutto ???.

[FrozenFire83]

x cassano: quell'impostazione dove la si trova che servirebbe anche a me?

x axsw: secondo me dopo l'istruzione

Prgb1.Value = 1

, prima dell' "END IF" io farei:

Me.Hide()
FrmMain.ShowDialog()

La prima Form dovrebbe sparire, aprire la FrmMain e attendere la sua chiusura prima di proseguire con la Me.Close()

A veder così però non dovresti mettere anche un Timer1.Stop()?

Ciao
FF

[axsw]

Originariamente inviato da FrozenFire83
x cassano: quell'impostazione dove la si trova che servirebbe anche a me?

x axsw: secondo me dopo l'istruzione

Prgb1.Value = 1

, prima dell' "END IF" io farei:

Me.Hide()
FrmMain.ShowDialog()

La prima Form dovrebbe sparire, aprire la FrmMain e attendere la sua chiusura prima di proseguire con la Me.Close()

A veder così però non dovresti mettere anche un Timer1.Stop()?

Ciao
FF

Ciao Frozen e grazie quello lo sapevo se metto Me.Hide funziona tutto alla perfezione
ma solo che poi non sò come fare a scaricare il formSplash che rimane caricato in memoria.

[axsw]

Originariamente inviato da cassano
per caso hai messo l'impostazione che quando si chiude la form di partenza si chiude tutto ???.

Da dove faccio questo settaggio?

[axsw]

Trovata la soluzione aveva ragione Cassano ecco la procedura esatta.
Nella splashForm mettete un Timer Mettete la prorietà Interval su 1 e la proprietà enabled su False, poi inserite una ProgressBar (nel mio caso è Prgb1) impostate la proprietà Minimum
su 0 e Maximum su 100 value su 0.
Codice della splashForm.

Option Strict Off
Option Explicit On

Public Class splashForm
    Inherits System.Windows.Forms.Form

    Private Sub splashForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.Tick
        Static X As Short
        X = (X + 1) Mod 100
        Label3.Text = "Caricamento applicazione in corso..." & X & "%"
        Prgb1.Value = X
        Cursor = System.Windows.Forms.Cursors.WaitCursor
        If Prgb1.Value = 99 Then
            Timer1.Enabled = False
            Me.Cursor = Cursors.Default
            Prgb1.Value = 1
            FrmMain.Show()
            Me.Close()
        End If
    End Sub
End Class

X Frozen ora bisogna impostare (come diceva Cassano) dal menu Progetto --> Proprietà del vostro progetto --> Applicazione la voce "Modalità arresto" Alla chiusura dell'ultimo Form (è iil penultimo ComboBox)

[cassano]

Originariamente inviato da axsw
Trovata la soluzione aveva ragione Cassano ecco la procedura esatta.
Nella splashForm mettete un Timer Mettete la prorietà Interval su 1 e la proprietà enabled su False, poi inserite una ProgressBar (nel mio caso è Prgb1) impostate la proprietà Minimum
su 0 e Maximum su 100 value su 0.
Codice della splashForm.

Option Strict Off
Option Explicit On

Public Class splashForm
    Inherits System.Windows.Forms.Form

    Private Sub splashForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.Tick
        Static X As Short
        X = (X + 1) Mod 100
        Label3.Text = "Caricamento applicazione in corso..." & X & "%"
        Prgb1.Value = X
        Cursor = System.Windows.Forms.Cursors.WaitCursor
        If Prgb1.Value = 99 Then
            Timer1.Enabled = False
            Me.Cursor = Cursors.Default
            Prgb1.Value = 1
            FrmMain.Show()
            Me.Close()
        End If
    End Sub
End Class

X Frozen ora bisogna impostare (come diceva Cassano) dal menu Progetto --> Proprietà del vostro progetto --> Applicazione la voce "Modalità arresto" Alla chiusura dell'ultimo Form (è iil penultimo ComboBox)

esatto mi avete anticipato !!!!

[RAVALON]

scusate se mi aggiungo a questa discussione...ma dato che esiste è inutile che ne crei un'altra

Io ho aggiunto uno SplashScreen (preconfezionato) con VB.NET 2005

Il form di avvio è un'altro ma vedo che comunque parte prima di ogni altra cosa la splashscreen e contemporaneamete il form che ho specificato in avvio...praticamente partono assieme

Io vorrei che invece partisse prima di tutti la splashscreen e mentre essa è visualizzata vorrei poter precaricare il form principale cosi che alla chiusura della splashscreen la form principale si apra al volo

Come posso fare ?

[oregon]

Non ti attaccare a discorsi del 2006 ... costringi a leggere tutto il thread quando magari non serve ...

Crea un thread nuovo con il tuo problema...

[RAVALON]

se creo un nuovo thread poi mi rimproverano perchè esistono già discussioni in merito !...allora come devo comportarmi ?

ok...metto un nuovo thread