Discussion :

[totoche]

pour le démarrage de mon application je souhaite faire un écran de présentation, qui dure le temps que l'application soit entièrement chargée.
faut-il faire à l'interieur de l'application un form de bienvenue avec un timer et fermeture de l'écran dès le chargement accompli, ou existe-t-il une autre solution?
: Merci

[Bisûnûrs]

Ben t'as trouvé ta soluion tout seul =)))

[totoche]

La difficulté c'est d'associer le timer au temps réel du chargement, et non sur une donnée fixe que j'aurais décidé.

[Bisûnûrs]

Hum.... il est vrai... mais je sais pas! =p
La page de présentation que j'ai faite avec un timer a un temps de chargement fixe alors...

[Mayamok]

De quel temps de chargement parles-tu? S'agit-il du chargement des dll pour vb et les contrôles ou d'un chargement interne à ton appli?

Dans le premier cas, il me semble que même ta fenêtre d'accueil n'apparaît pas avant la fin du chargement si elle est à l'intérieur du programme...

Dans le second, tu peut placer du code à la fin du chargement pour décharger la fenêtre d'accueil, même pas besoin d'un timer (il ne faut pas que la fenêtre soit modale, bien sûr).

[Fox]

Un exemple de logique pour un écran de présentation :

FrmPres = écran de présentation
FrmMain = écran principal de l'application

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub Main
Dim FPres As New FrmPres
dim FMain As New FrmMain
 
'Chargement et affichage écran de présentation
Load FPres
FPres.Show
 
'Chargement sans affichage de l'écran principal
Load FMain
Fmain.Init 'Initialisation des données de l'application si besoin est
'Quand ce traitement est terminé:
 
'Déchargement fenêtre de présentation
Unload FPres
'Affichage de la fenêtre principale
FMain.Show
 
End Sub

De cette manière toute simple, tu n'as pas besoin d'utiliser de timer, ou de calculer le temps que prend le chargement, ....

@+

[grafikm_fr]

Bien trouvé Fox

[Fox]

Merci merci ... 8)

[Bisûnûrs]

Rooohlalaaa, il a mm droit au grade de 'Trucs et astuces' son tips =))

[grafikm_fr]

Rooohlalaaa, il a mm droit au grade de 'Trucs et astuces' son tips =))

Oui, parce que la solution "classique" consiste à faire commencer l'appli SUR l'ecran de presentation, avec tous les risques que ca comporte... Cette soluce je l'adopte, moi...

P.S.: Merci de ne plus flooder ce sujet, je tiens à le conserver propre...

[SpaceFrog]

Si je puis me permettre de préciser que j'aurais juste rajouté un doevents juste avant le Unload FPres de ma nière à être sur d'avoir épuré les opérations en cours ....

[grafikm_fr]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Main 
Dim FPres As New FrmPres 
dim FMain As New FrmMain 
 
'Chargement et affichage écran de présentation 
Load FPres 
FPres.Show 
 
'Chargement sans affichage de l'écran principal 
Load FMain 
Fmain.Init 'Initialisation des données de l'application si besoin est 
'Quand ce traitement est terminé: 
 
'Déchargement fenêtre de présentation 
Unload FPres 
DoEvents
'Affichage de la fenêtre principale 
FMain.Show 
 
End Sub

Voila, on garde ca comme code...

[Fox]

Désolé grafikm_fr, mais j'ajouterais encore quelque chose, l'utilisation de l'API suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Const SWP_NOMOVE = 2
Private Const SWP_NOSIZE = 1
Private Const HWND_TOPMOST = -1
'Laisse l'application en avant plan
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Permettant de placer la forme en avant-plan grâce à la ligne suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE

(à mettre dans le Form_Load de l'écran de présentation)


Je sens que je vais me faire engueuler là
[mais non, fox, mais non [edité par grafikm_fr]]
@+