Discussion :

[ludo40190]

Bonjour,

Voici mon problème.

Je souhaite faire un message d'attente le temps que plusieures commandes s'exécutent.

Voici ce que j'ai fait.

Dans ma form principale:

Code :

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

1
2
3
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        attente.ShowDialog()
    End Sub

Cela m'ouvre donc une autre form qui m'affiche "veuillez patienter..." et j'ai ceci :

Code :

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

1
2
3
4
Private Sub UserForm_Activate()
        Shell("attente.bat", AppWinStyle.Hide)
        Me.Close()
    End Sub

Dans le bat je fais 5 ping de ma boucle locale (5 secondes car c'est juste pour le test).

Donc quand je clique sur le bouton, la fenêtre "veuillez patienter ..." s'affiche bien mais ne se ferme pas à la fin de mon bat...

Et la je bloque...
Avez-vous des idées?

Merci d'avance!!

[ludo40190]

alors j'ai fait ça pour que ça s'exécute au chargement de la form...

Code :

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

1
2
3
4
Public Sub attente_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Shell("attente.bat", AppWinStyle.Hide)
        Me.Close()
    End Sub

Mais la rien ne s'affiche même pas le message veuillez patienter (enfin si mais quelques millisecondes)

[Savak]

Salut.

Essaye comme ceci :

Code :

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

1
2
3
4
Public Sub attente_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Shell("C:\Users\Administrateur\Desktop\attente.bat", AppWinStyle.Hide, True)
        Me.Close()
    End Sub

Le troisième paramètre que je te fais ajouter est la valeur indiquant si la fonction Shell doit attendre la fin du programme. Le premier doit contenir l'emplacement de ton fichier. Le "path" en entier. De cette façon, tu devrais arriver à tes fins

Tient nous au courant.

[ludo40190]

yes parfait avec le paramètre "true".
Merci beaucoup ++