Exécuter simultanément deux évènements

Bonjour Forum
Bonjour tout le monde
Svp mes chers .. si vous pouvez m'aider a resoudre ce probleme
Avec ce code pour faire animer dans un panel dans MDIParent1 un text deja stockè dans ma Table1.
J'ai mis dans Module1 ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Public Sub Animate_Text() Try Dim da As New OleDbDataAdapter("Select * from Table1 order by Id", Conne) Dim dt As New DataTable da.Fill(dt) MDIParent1.Label1.Left = 0 - MDIParent1.Label1.Width If dt.Rows.Count > 0 Then For r As Integer = 1 To dt.Columns.Count - 1 MDIParent1.Label1.Text &= " " & (dt(0)(r).ToString) Next MDIParent1.Timer1.Start() End If Conne.Close() Catch ex As Exception MsgBox(ex.Message(), MsgBoxStyle.Critical, "Erreur inattendu") End Try End Sub

---

Dans MDIParent1 Load ..

Code:

---

Call Animate_Text()

---

Puis toujours dans MDIParent1 .. j'ai mis ce Timer1 :

Code:

---

1 2 3 4

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick If Label1.Left >= Me.Panel1.Width Then Label1.Left = 0 - Label1.Width Label1.Left += 5 End Sub

---

Le code fonctionne d'une facon excellente sans aucune erreur .
Mon probleme .. lorsque je click sur autre Button pour executer autre evenement .. le text s'arretera jusqu'à la fin de la procédure .. et apres le text fonctionne
Comment faire svp pour executer et clicker sur n'importe quel Button sans aucun effet sur le text animé.
Merci beaucoup d'avance pour l'aide
Amicalement
MADA

Bonjour Mada,

Je ne comprends pas bien ton problème.

J'ai fait le test suivant :

J'initialise le Timer.Interval à 100 (c-à-d 10 Tick par seconde) et à chauqe Tick, je change la couleur de fond d'un TextBox. A l’exécution, j'observe que je peux faire d'autres tâches, dont celles commandées par un bouton, et que pendant leur exécution, le TextBox n'arrête pas de clignoter.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load   TestTimer.Interval = 100 TestTimer.Start() ' ... ... ...   Private Sub TestTimer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles TestTimer.Tick Static Sw As Integer If Sw = 0 Then TextBox7.BackColor = Color.Blue Sw = 1 Else TextBox7.BackColor = Color.Red Sw = 0 End If End Sub

---

....

Bonsoir Phil Rob
Ravi de vous rencontrer dans ce sujet Sir
Voila .. dans MDIParent1 j'ai plusieurs Buttons .. par exemple un Button pour faire Backup a ma base de donnees
Losque je click sur Button1 pour faire Backup alors le texte animé qui est aussi dans un panel dans MDIParent1 s'arretera de bouger jusqu'a la fin de backup apres bouge d'une facon normale
J'ai essaye de faire ( Thread ) .. comme ca :

Code:

---

1 2 3 4 5 6 7 8

Dim Deroulante As New System.Threading.Thread(AddressOf MyBackgroundThread) Private Sub MyBackgroundThread() While True If Label1.Left >= Me.Panel1.Width Then Label1.Left = 0 - Label1.Width Label1.Left += 1 Threading.Thread.Sleep(10) End While End Sub

---

Puis dans MDIParent1 Load j'ai mis :

Code:

---

1 2 3

CheckForIllegalCrossThreadCalls = False Call Animate_Text() Deroulante.Start()

---

Ca fonctionne tres bien mais lorsque je quitte MDIParent1 .. avec (Me.Dispose) j'aurai un message d'erreur ici :

Code:

---

Label1.Left += 1

---

Additional information: Impossible d'accéder à un objet supprimé.
Merci beaucoup maitre pour l'aide
Amicalement
MADA

Je te propose d'essayer mon code (je ne vois pas pourquoi ton animation devrait s'arrêter) :

1. Initier le Timer.Interval avec une valeur raisonnable (pas trop petite, 100 est déjà assez petit)
2. Démarrer le Timer au moment où tu souhaites commencer l'animation
3. Programmer l'animation sous l'évènement Click du Timer, sans oublier la variable Static si tu veux alterner les modifications.

Note que je ne comprends pas trop ton algo, ne peux-tu envoyer des copies d'écrans (j'aurai sans doute un peu de temps demain) ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick Static Sw As Integer If Sw = 0 Then   If Label1.Left >= Me.Panel1.Width Then Label1.Left = 0 - Label1.Width Label1.Left += 5   ' code ... Sw = 1 Else ' code .... Sw = 0 End If End Sub

---

Bonne nuit,

Merci beaucoup Phil Rob
Mes excuses vraiment j'ai pas pu adapter votre code a la mienne
Lorsqu'on click sur n'importe quel Button pour executer un petit code comme par exemple :

Code:

---

1 2 3

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click MsgBox("Bonjour") End Sub

---

Avec ce code on ne sent la pause du texte animé .. mais en realite avec un code un peu long .. comme le code pour faire Backup .. et surtout .. surtout lorsque j'execute un code d'impression crystel report ..on sent que le texte animé a fait une pause jusqu'a l'ouverture du page de crystal .
Mes excuses .. je vais poster ce petit projet pour mieu me comprendre .. sachant que je suis oblige de mettre le ( Public Sub Texte_Panel_Animation() ) dans un Module1
Bonne nuit ..
Amicalement
MADA

quand ton code s'exécute cela bloque le rafraichissement de l'interface, car c'est le même thread qui est utilisé pour ça
ca attend donc que tu sortes de button.click pour rafraichir
c'est pour ca que quand on a quelque chose qui dure potentiellement plus de quelques centaines de millisecondes on le fait sur un autre thread

regarder le backgroundworker ou async/await

Bonjour,

Si je teste ton exemple (MsgBox) avec le TextBox, on ne sort pas du code du bouton tant qu'on a pas cliqué le <OK> du MessageBox, mais l'animation ne s'arrête pas !
D'autre part, Pol63 a raison ! Là, je m’emmêle un peu ....

Ci-joint ton code exemple modifié pour comprendre : MadaAnimation.zip

Avant toute explication, note que dans le projet que tu as envoyé, la valeur de la propriété Interval du Timer1 était à 1.
C'est infiniment trop faible, tu obliges le programme à Tick(er) tous les MILLIEME de seconde, 1000 fois par seconde ... !!!
J'ai modifié cette valeur et je l'ai placée à 100. Si tu veux une animation continue, il faudra trouver autre chose (sauf si ton programme n'a vraiment rien d'autre à faire).

Bon, je te fais la leçon, mais je n'ai pas de solution pour toi ... :(

En fait, l'action du Timer est suspendue lorsque tu lances un code dans une boucle (boucle For dans mon exemple).
C'est cette gestion de boucle qui ne rend pas la main tant qu'elle n'a pas achevé ses itérations et en particulier, elle ne permet pas le rafraichissement de l'écran. Donc, ton animation s'arrête.
L’application que je te renvoie est très bien pour expérimenter ce problème.

J'espère que quelqu'un t'apportera une solution ...

Citation:

---

Envoyé par Pol63

quand ton code s'exécute cela bloque le rafraichissement de l'interface, car c'est le même thread qui est utilisé pour ça
ca attend donc que tu sortes de button.click pour rafraichir
c'est pour ca que quand on a quelque chose qui dure potentiellement plus de quelques centaines de millisecondes on le fait sur un autre thread

regarder le backgroundworker ou async/await

---

Bonjour Pol63
Merci beaucoup pour l'intervention dans ce sujet
Je vais essayer de comprendre le BackgrounWorker aussi Async/Wait
Amicalement
MADA

Citation:

---

Envoyé par Phil Rob

Ci-joint ton code exemple modifié pour comprendre : MadaAnimation.zip

Avant toute explication, note que dans le projet que tu as envoyé, la valeur de la propriété Interval du Timer1 était à 1.
C'est infiniment trop faible, tu obliges le programme à Tick(er) tous les MILLIEME de seconde, 1000 fois par seconde ... !!!
J'ai modifié cette valeur et je l'ai placée à 100. Si tu veux une animation continue, il faudra trouver autre chose (sauf si ton programme n'a vraiment rien d'autre à faire).

Bon, je te fais la leçon, mais je n'ai pas de solution pour toi ... :(

En fait, l'action du Timer est suspendue lorsque tu lances un code dans une boucle (boucle For dans mon exemple).
C'est cette gestion de boucle qui ne rend pas la main tant qu'elle n'a pas achevé ses itérations et en particulier, elle ne permet pas le rafraichissement de l'écran. Donc, ton animation s'arrête.
L’application que je te renvoie est très bien pour expérimenter ce problème.

J'espère que quelqu'un t'apportera une solution ...

---

Bonjour Phil Rob
Merci maitre pour l'aide
Tres tres gentil de votre part
Je vais essayer de comprendre vos super lecons
Note : j'ai pas pu voir et telecharger le fichier (MadaAnimation.zip)
Merci
Cordialement
MADA

Excuse-moi, j'ai oublié de joindre le ZIP : Pièce jointe 464815

:?

Je vous remercie infiniment Phil Rob
J'ai testé le Zip avec un code d'impression mais malheureusement ca ne fonctionne pas d'une facon ideale .. et le texte animé s'arretera temporairement .. pas d'une facon totale .. mais on remarque largement pendant l'execution du code d'impression ..
Merci d'avance pour l'aide
Amicalement
MADA

Bonjour,

Je rejoins Pol63, il faut utiliser les Threads.

En gros, ça te permet d’exécuter du code hors de l'interface.
L'interface reste donc disponible pour faire ce qu'elle est codée pour faire (changements dynamiques, clics sur des boutons,...)

Essaye ce tuto, c'est celui que j'ai utilisé pour apprendre ce concept :
https://www.youtube.com/watch?v=cIU8...?v=cIU8Xr8Ri7Y
https://www.youtube.com/watch?v=9E82hPsjU2g"]https://www.youtube.com/watch?v=9E82hPsjU2g

Merci .. tres gentil de votre part cher Thovan
Lecons simples et faciles a comprendre .. merci pour ce lien interessant
Amicalement
MADA