Discussion :

[motrin]

J'utilise la fonction ShellExecute pour exécuter des fichiers gif. Mais, il arrive que parfois dans le code ci-dessous que le fichier à l'indice 1 s'affiche avant celui à l'indice 0. Cela arrive 1 fois sur 10
voici le code

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
 
 
'ouvrir les gifs
Private Sub Executer_gif(ByRef tab_Composant() As String)
Dim icpt As Integer
icpt = 0
Dim retour As Long
 
'exécuter un à la suite de l'autre les gif
While (icpt <= UBound(tab_Composant))
 
    retour = ShellExecute(0, "open", tab_Composant(icpt), "", _
              "", SW_SHOWMAXIMIZED)
    DoEvents
    icpt = icpt + 1
Wend
 
End Sub

Avez-vous trouvé une solution?

[avigeilpro]

c'est surment dûe au temps de chargement du fichier, peut-etre devrait tu ralentir un peut ton programme à chaque boucle. Je ne vois pas d'autres explications

[motrin]

le DoEvents ne ralentit pas le programme?

[jmfmarques]

le DoEvents ne ralentit pas le programme?

Non (aide en ligne) ! il rend simplement la main au système

[avigeilpro]

on peut dire qu'il ralentit le programme dans un sens (comme il rend la main le temps que ...), mais pas assez apparement. perso pour ralentir je ferait une boucle avec le doevents :

Code :

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

1
2
3
4
 
For Boucle = 0 to 10
DoEvents
Next

[jmfmarques]

Tu as raison, Avigeilpro, mais ...

1) Comment savoir (car celà dépendra de l'horloge de la machine), quel temps sera nécessaire ?
j'opterais volontiers, en ce qui me concerne, pour la vérification (en boucle) de ce que le fichier a bien été ouvert, avant de continuer....

2) notre ami demandeur s'amuse à quoi, en ouvrant ainsi, l'un derrière l'autre, en chaine, plusieurs fichiers ?
A quoi celà peut-il servir d'ouvrir plusieurs fichiers .gif à la fois ?
Au temps de Louis XVI, on disait volontiers que le dernier qui avait parlé avait raison...
Je suppose maintenant volontiers que le demandeur a ses raisons... que la raison ne connait pas... et l'invite en conséquence à lire et relire ce qui est écrit en 1) en appelant son attention sur le fait qu'une simple gestion d'erreur lui permet de savoir si un fichier .gif a bien été ouvert

[jmfmarques]

Alors, Motrin, si tu veux mettre de ton côté le maximum de sécurité, applique ce que j'ai exposé en 1) dans mon message (je vois maintenant que tu sais faire).
Ceci s'il te faut absolument "exécuter" tes fichiers .gif (il y a d'autres méthodes bien plus sures et bien plus orthodoxes s'il ne s'agit, comme tu le dis, que d'afficher 2 images...)
Comme je n'y connais en effet pas grand chose, je ne courrrai aucun risque avec toi et me contente donc de te rappeler qu'existe LoadPicture (aide en ligne) , par exemple...
Je ne t'embêterai plus.

[avigeilpro]

il peut être seulement le king des ados

Je rigole doucement si tu savais motrin ... mais bon, pour te renseigner un peu sur nos réactions, plus on en sais sur ton but et mieux on est capable de t'aider. En effet, tu à mis en place une solution pour afficher des gif, mais peut-être il y a-t-il d'autres solutions plus adéquates à ton utilisation, c'est pourquoi jmfmarques a posé ces questions, du moins il me semble.

[jmfmarques]

Laisse, avi...
je ne vais tout de même pas me mettre en colère après un si beau compliment, totalement inespéré...
Et il a bien le droit de se tromper ... ce ne sont après tout que quelques dizaines.... je sais, oui, d'années... mais bon ..

Il trouvera bien un ado pour l'aider...