[VB6] écran de présentation

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

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

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é.

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...

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).

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

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

Code:

---

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, ....

@+

Bien trouvé Fox :ccool:

Merci merci ... 8) :wink:

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

Citation:

---

Envoyé par BisounoursJos

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...

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 ....

Code:

---

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... :lol:

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

Code:

---

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:

---

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à :lol:
[mais non, fox, mais non :calin: [edité par grafikm_fr]]
@+