[vb2005] quitter sub sans être dedans !!! Résolu

Question

Bonjour, j'aimerais lorsque je clic sur le bouton arreter fermer la form et arreter  la  "sub" en cours...
Le problème c'est que j'arrive a fermer la form, mais pas a quitter la sub qui continue de se terminer ce qui entraine des bugs...
Comment faire pour arranger ça ?

voila le code ....
--------------------------------------
    Private Sub bt_ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_ok.Click
        'ici la sub qui dure un certain temps, qu'il faut que je quitte lorsque je clic sur le bouton arreter...
    End Sub

    Private Sub bt_arreter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_arreter.Click
        Me.Close()
        'que mettre ici pour que la sub bt_ok_click se termine prematurement ????
    End Sub
---------------------------------------------
merci d'avance...

lex1111

Julien237 · Accepted Answer

Ben tu peux appliquer ce que je t'ai dis a chaque boucle ^^

        While Condition1 And Running
           ...
           Application.DoEvents
           While Condition2 And Running
              ...

... 

              Application.DoEvents
           Wend
        Wend

Ca posera aucun problème...

Julien.

Utilisateur anonyme · Answer

Salut,

La tu peut pas.
Il faut mettre ta sub qui dure dans un autre theard.
(Comme pour ton précédent post)





__________
Kenji

Julien237 · Answer

Salut,
J'imagine que le sub qui dure un certain temps est une boucle, (si ce n'est pas le cas, inspire-toi...)

Dim Running as boolean = True

    Private Sub bt_ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_ok.Click
        While Condition And Running
           ...
           Application.DoEvents 'Permet de gérer les messages en attentes i.e. le sub bt_arreter_click
        Wend
    End Sub

    Private Sub bt_arreter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_arreter.Click
        Running = False
        Me.Close()
    End Sub

La clé est dans l'utilisation de DoEvents qui permet de traiter les messages en attente...

Julien.

lex1111 · Answer

Oui je pensait aussi a un backgroundworker, mais je voulais quelque chose de plus propre...
Pour ce qui est de ta reponse Julien, ça ne marche pas car j'ai beaucoup de boucle dans ma sub...

lex1111 · Answer

Oui c'est ce que j'ai fais pour finir car le backgroundworker ne marchait pas !

[vb2005] quitter sub sans être dedans !!!

5 réponses

Votre réponse

Discussions similaires