[vb.net][Thread] Basculer entre Thread

Version imprimable

06/01/2006, 14h32
arnolem

[vb.net][Thread] Basculer entre Thread
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:

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

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

1 2 3 4 Sub Finalisation() t.abord application.Exit End Sub
06/01/2006, 14h42
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.

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:

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:

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

06/01/2006, 14h59
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 ?
06/01/2006, 15h03
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.

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

Code:

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