Discussion :

[nzangel]

Bonjour,

je ne sais pas si je suis au bon endroit, je commence tout juste à me mettre au VB. J'ai téléchargé VB 2008 express et j'essais de faire ma première appli.

donc je lance un exe en silencieux et à ce moment là j'aimerais faire une tempo de 30 secondes

j'ai testé

Code :

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

1
2
3
4
 
Dim monprog As String = "monexe.exe /U /Q"
Microsoft.VisualBasic.Interaction.Shell(monprog, , True, 30000)
Me.LBL_DESCRIPTION.Text = "Fin de tempo"

Mais il n'attend pas 30 secondes

J'ai testé un Sleep :

Code :

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

1
2
3
4
5
 
Dim monprog As String = "monexe.exe /U /Q"
Microsoft.VisualBasic.Interaction.Shell(monprog, , True)
Sleep(30000)
Me.LBL_DESCRIPTION.Text = "Fin de tempo"

Là j'ai bien une tempo de 30 secondes mais pendant les 30 secondes il n'y a plus rien à l'écran, mon formulaire n'est plus affiché, il revient au bout des 30 secondes.

Y a t-il une commande qui permet de laisser mon formulaire affiché pendant les 30 secondes avec un message du genre Exécution en cours ... ?

Merci d'avance

[Danyel]

Lancer ton exe sur un second thread.

[nzangel]

Salut,

merci beaucoup de ta réponse, je vais creser dans ce sens.

[Danyel]

Un bon commencement ici : http://msdn.microsoft.com/fr-fr/libr...ng.thread.aspx

[nzangel]

merci pour ton aide mais j'avoue que je ne comprens pas vraiment le fonctionnement.

Dois je mettre le Thread dans le même form que mon message ? ou dois je faire le thread dans un autre form et appeler le form à partir du premier form ?

[nzangel]

j'ai trouvé ma réponse sur supprot.microsoft.com.

J'ai tout de même un petit souci, j'ai mis un Sleep dans mon Thread mais celui ci ne se fait pas.

je me permet de mettre le code de mon Form, si quelqu'un veut bien corriger mes erreurs car là je pense que je me mélange les pédales.

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
Imports System
Imports System.Threading
 
Public Class etape2
 
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
    Public Shared Sub ThreadProc()
 
        'lancement de l'exe mon.exe en silencieux
        Dim monprog As String = "C:\mon.exe /U /Q"
        Microsoft.VisualBasic.Interaction.Shell(monprog, , True)
        Thread.Sleep(30000)
 
    End Sub
    Private Sub etape2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Pour supprimer SMS
        If KILL_SMS Then
            Me.GRB_NOM_TACHE.Text = "Désinstallation de SMS"
            'création d'un Thread (nouveau processus) pour lancer l'exe
            Me.LBL_DESCRIPTION.Text = "désinstallation de SMS en cours ..."
            Dim t As New Thread(AddressOf ThreadProc)
            t.IsBackground = True
            t.Start()
 
            Me.LBL_DESCRIPTION.Text = "Fin de tempo"
 
 
 
        End If
        If KILL_EPO Then
            Me.GRB_NOM_TACHE.Text = "Désinstallation de EPO"
        End If
    End Sub
 
    Private Sub BT_RETURN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_RETURN.Click
        Me.Hide()
        index.Show()
    End Sub
End Class

Merci