SplashScreen ?

Bonjour,

Je te propose une solution qui te permets d'aficher la SplashScreen (feuille
de présentation) temporairement (par exemple 5 secondes), avec un chargement
de variables.

Sur ta SplashScreen, tu ajoutes un contrôle Timer que tu nommes
TimerFormAffiche.

Dans le load de la feuille, tu initialises tes variables, ou effectues
d'autres traitements. A la fin de toutes ces instructions, tu ajoutes les
instructions :
-> TimerFormAffiche.Interval = 5000 (pour les 5 secondes d'attente en
millisecondes)
-> TimerFormAffiche.Enabled = True (pour l'activer)

Ensuite, tu dois implémenter la procédure TimerFormAffiche_Timer() qui ne
contient qu'une seule instruction : Unload me pour fermer la feuille de
présentation.

A+.
James RAVAILLE.
---------------------

"bobysmith" a écrit :

Bonjour,

Comment je peut faire pour afficher une SplashScreen, Charger 2-3 variables
en mémoire et effacer la SplashScreen une fois terminé.

Merci

Bonjour,

Petit bmol à la solution donnée précédemment : il s'agit d'une solution pour
VB6 (je pensais être dans le forum VB 6, c'est ce" qui arrive à force de
faire plusieurs choses en même temps - désolé -). Voici l'implémentation pour
Visual Basic .NET :

-> Même contrôle à ajouter à ta feuille.

Dans le méthode Load de ta feuille de présentation :
TimerFormAffiche.Interval = 5000
TimerFormAffiche.Enabled = True

C'est surtout pour l'arrêt de l'affichage de la feuille que ce la change :
Private Sub TimerFormAffiche_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles TimerFormAffiche.Tick
' Fermeture de cette fenêtre.
Me.Close()
End Sub

A+.
James RAVAILLE.
------------------------

"RAVAILLE James" a écrit :

Bonjour,

Je te propose une solution qui te permets d'aficher la SplashScreen (feuille
de présentation) temporairement (par exemple 5 secondes), avec un chargement
de variables.

Sur ta SplashScreen, tu ajoutes un contrôle Timer que tu nommes
TimerFormAffiche.

Dans le load de la feuille, tu initialises tes variables, ou effectues
d'autres traitements. A la fin de toutes ces instructions, tu ajoutes les
instructions :
-> TimerFormAffiche.Interval = 5000 (pour les 5 secondes d'attente en
millisecondes)
-> TimerFormAffiche.Enabled = True (pour l'activer)

Ensuite, tu dois implémenter la procédure TimerFormAffiche_Timer() qui ne
contient qu'une seule instruction : Unload me pour fermer la feuille de
présentation.

A+.
James RAVAILLE.
---------------------

"bobysmith" a écrit :

> Bonjour,
>
> Comment je peut faire pour afficher une SplashScreen, Charger 2-3 variables
> en mémoire et effacer la SplashScreen une fois terminé.
>
> Merci

Bonjour,

Voilà comment je fais pour un SplashScreen:
D'abord je crée une procédure Main dans un module
Attention, ton projet doit utiliser Sub Main() en tant qu'objet de démarrage
(cf propriétés du projet).

Sub Main()
' Affichage du SplashScreen
Dim F_Splash as new Nom_De_Ta_Feuille_Splash()
F_Splash.Show()

' Ici ton code pour les déclaration des variables
' ...

' Chargement de ta feuille principale
Dim MonApli as New Nom_De_Ta_Feuille_Principale()
MonApli.Hide()

' Chargement des paramètres généraux de l'application
'... ici ton code pour les paramètres de ton appli, si besoin

' Fermeture de la form de présentation
F_Splash.Close()
F_Splash.Dispose()

' Affichage de ta Feuille principale
' en mode modal sinon le sub main continue
MonApli.ShowDialog()
MonApli.Run()

' Ce qui suit est exécuté que quand MonApli est fermée

' Sauvegarde des paramètres généraux de l'application
' ici si besoin ton code pour sauvegarde de certains
' paramètres de ton appli ...

' Libère l'application
MonApli = Nothing

' Quitte réellement l'application
Application.Exit()
End Sub


Cédric...