difficile de fermer un écran d'animation

Version imprimable

bonjour,
mon application s'ouvre sur un écran d'animation "z_splash" qui au bout de 4s, doit se fermer et laisser afficher un formulaire d'authentification. voici le code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 dim CPT as Interger Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick CPT = CPT + 1 If CPT = 5 Then If CONNECTED Then Me.Close() Else z_authentification.Show() End If End If End Sub
partout ou on place le code de fermeture de "z_splash",

Code:

z_splash.close()

l'application se ferme.
même quand on place ce dernier code dans le code "z_authentification", l'application se ferme toujours.
y a-t-il une solution de fermer z_splash sans que l'application ne se ferme

merci d'avance

11/11/2011, 12h56
Pol63

propriétés du projet
changer "fermer l'appli à la fermeture du formulaire de démarrage" en "fermer l'appli à la fermeture du dernier formulaire"

Bonsoir,
et juste dessous, il y a le choix de son écran de démarrage, qui s'affichera de l'ordre de 3 à 4 secondes.
Pour régler la durée d'affichage :
Toujours dans les propriétés du projet, onglet Application, en bas à droite, cliquer "Afficher les événements de l'application pour y insérer la fonction suivante en gras :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Namespace My

    ' Les événements suivants sont disponibles pour MyApplication*:
    ' 
    ' Startup*: déclenché au démarrage de l'application avant la création du formulaire de démarrage.
    ' Shutdown*: déclenché après la fermeture de tous les formulaires de l'application. Cet événement n'est pas déclenché si l'application se termine de façon anormale.
    ' UnhandledException*: déclenché si l'application rencontre une exception non gérée.
    ' StartupNextInstance*: déclenché lors du lancement d'une application à instance unique et si cette application est déjà active. 
    ' NetworkAvailabilityChanged*: déclenché lorsque la connexion réseau est connectée ou déconnectée.
    Partial Friend Class MyApplication

        Protected Overrides Function OnInitialize(ByVal commandLineArgs As System.Collections.ObjectModel.ReadOnlyCollection(Of String)) As Boolean
            ' Set the display time to 4000 milliseconds (4 seconds). 
            Me.MinimumSplashScreenDisplayTime = 4000
            Return MyBase.OnInitialize(commandLineArgs)
        End Function

    End Class

End Namespace