Discussion :

[arnolem]

Bonjour, j'ai un Thread qui est lancé eet qui permet de faire un traitement assez long, à la fin de ce Thread j'appel une fonction qui faire le thread (avec un .abort) et qui cloture l'application.
Le problème c'est que le thread ne peux pas s'executer tout seul.

Si je lance la cloture sur le thread principale, elle va etre lancé en meme temps que le thread de traitement sans le laisser terminé, comment faire ?

Code :

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

1
2
t = New Thread(AddressOf ExecuteActions)
t.Start()

Code :

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

1
2
3
4
Sub ExecuteActions()
     Traitement()
     Finalisation()
End Sub

Code :

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

1
2
3
4
Sub Finalisation()
     t.abord
     application.Exit
End Sub

[NicolasG]

A quoi sert le thread ?
Si l'application doit se fermer à la fin du traitement, il suffit de faire ce traitement puis de terminer l'appli.

[arnolem]

ben le thread sert a faire une serie de Ping et autre, une fois terminé, je lance une fonction Finalisation () qui génère des rapports.
Une fois les rapport générer, je veux lancer ma fonction _Stop() qui ferme mon application, le problème c'est que ma fonction stop refuse de se lancer, je vous donne le code réel

J'ai réussi a corrigé le bug avec un msgbox, se qui signifie que le bug viens du thread car les msgbox sont lancé a partir du thrad principal

Code qui marche pas :

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
    Private Function _Stop()
        timerUp.Enabled = False
        timerDown.Interval = 5
        _y = 149
        Me.Opacity = 1
        timerDown.Enabled = True
    End Function
    Private Sub timerDown_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timerDown.Tick
        lbl_msg.Text = _y
        Me.Location = New System.Drawing.Point(Screen_x - 350, Screen_y - _y)
        Me.Opacity = _y / 140
        Me.Visible = True
        _y = _y - 1
        If (_y = 0) Then
            timerDown.Enabled = False
            Me.Opacity = 0
            Application.Exit()
        End If
    End Sub

Code qui marche :

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
    Private Function _Stop()
        timerUp.Enabled = False
        timerDown.Interval = 5
        _y = 149
        Me.Opacity = 1
        timerDown.Enabled = True
        MsgBox("Scan terminé")
    End Function
    Private Sub timerDown_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timerDown.Tick
        lbl_msg.Text = _y
        Me.Location = New System.Drawing.Point(Screen_x - 350, Screen_y - _y)
        Me.Opacity = _y / 140
        Me.Visible = True
        _y = _y - 1
        If (_y = 0) Then
            timerDown.Enabled = False
            Me.Opacity = 0
            Application.Exit()
        End If
    End Sub

[backseatgreg]

Tu as regardé si t'as fonction timerDown_Tick fonctionnait bien ?

As tu mis un BreakPoint sur Application.Exit() pour voir s'il passait dessus ?

[arnolem]

dans le 2eme cas ou je met juste un MsgBox() en plus, la fonction timer fonctionne bien.
J'ai bien un défilement de 150 à 0 qui s'affiche dans mon label et l'application se ferme sans problème.
Par contre si j'ai pas le msgbox(plus rien ne marche).

je pense que le msgbox joue un role de basculement entre Thread, à mon avis, on, repasse sur le principal.

[NicolasG]

Je me répète : pourquoi ne pas faire

Code :

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

1
2
3
4
5
 
   Sub Main()
      Traitement()   ' ce que tu fais dans le thread
      EditionRapport() 
   End Sub           'fin de l'application