[VB.Net] Utilisation des threads

Bijour, alors voila avec mon ami google je cherche des explication ou un tuto sur les thread sous vb.net pour pour voir gérer mon programme durant sa boucle infini sans le gelé, alors la vous allez me dire :

DISCUSSION DEJA DISCUTER !!! = ) oé oé c'est bien mais la fonction recherche de ce site est trop vague, ou non pire vraiment trop vague ^^

bref si vous povez me filer un lien vers un tuto ou mieux encore ce serais cool

Pour résumé je veux pouvoir appuyer sur un bouton de mon application pendant une boucle infini et pouvoir l'arrèter ! ? !

merci d'avance :mrgreen:

bah tu passe par une variable Boolean
(initialisée a False par exemple)

elle passe a True lorsque tu clique sur ton bouton
et dans ta boucle infinie, tu la teste a chaque fois
et si elle est a True
tu fait un Exit Sub

Non?

oui mais mon application géle on plus plus rien faire et le Doevents permet juste de se déplacer mais je e trouve pas sa propre, c'est pour cela que j'ai besoin du thread pour une boucle infini si quelqu'un a un exemple ?

ah ok ...
bah la je suis pas très calé dans ce genre de choses * notamment les thread*

dsl,

Code:

---

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

private _stop as boolean   private sub une_sub dim t as new system.threading.thread(adressof masub) t.isbackground = true t.start end sub   private sub masub while _stop = false 'traitement system.threading.thread.sleep(100) ' permet de pas bouffer trop de ressources si les choses à faire ne sont pas totalement continues end while end sub   private sub buttonclick handles boutonarret.click _stop = true end sub

---

isbackground à true permet qu'en cas d'arret du thread créateur, ce thread sera interrompu (sinon l'appli reste dans le gestionnaire des taches car encore en cours)


NB : depuis un thread autre que le principal, il est interdit de modifier l'interface graphique, pour ca il faut utiliser des délégués
(ou voir le backgroundworker qui encapsule tout ce qu'il faut pour faire du multithreading simple)

OK merci beacoup sa ma l'air compréhensible :)

jva tester sa et vous dire si sa fonctionne, et oui j'ai vaguement entendu parler du backgroudworker, sa peut aider aussi ^^

j'ai encore des problèmes de freeze avec ton code :

Citation:

---

Private _stop As Boolean

Private Sub une_sub()
Dim t As New System.Threading.Thread(AddressOf masub)
t.isbackground = True
t.start()
End Sub

Private Sub masub()
While _stop = False


My.Computer.Keyboard.SendKeys("F1") 'Simuler la pression sur la touche F1

System.Threading.Thread.Sleep(100) ' permet de pas bouffer trop de ressources si les choses à faire ne sont pas totalement continues
End While
End Sub

Private Sub buttonclick() Handles boutonarret.click
_stop = True
End Sub

---

le simulation de l'appui sur le bouton géle le prog !

fait voir ton code réel

et puis si c'est pour faire F1 retire la boucle infinie sinon tu envoies des millions d'appuie F1 à la seconde

je pige pas comment répété mon apui sur F1 si j'ai plus de boucle infini :aie:

et j'ai remplacé mon code "réel" par le tien , cela revenait au même , mais en mieux ^^

sauf que les noms des sub sont pas cool et qu'on voit pas l'appel du démarrage du thread

qu'est-ce que tu veux faire avec la touche F1 ?
parce qu'un sendkeys dans une boucle avec un sleep de 100ms fait c'est comme si tu appuyais 10x sur F1 par seconde ...

l'appel de une_sub se fait plus haut dans un bouton click .


En vrai je voudrais que la touche F1 soit appuzer une fois toute les 5 secondes et tout le temps jusqua l'apui d'un bouton Stop ! et voila

mais sa freeeeeeze !

chez moi ca freeze pas (testé avec sleep de 5000)

j'ai encore quelque problèmes de freeze moi mais de plus je suis tombé sur
une erreur que je sentait venir :

on ne peux pas utiliser

My.Computer.Keyboard.SendKeys("F1") dans le thread

comment faire ?


sinon esceque c'est correct ?

Code:

---

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 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56

Imports System.Runtime.InteropServices Public Class Form1   Public Shared Function SetWindowPos(ByVal hWnd As IntPtr, ByVal hWndInsertAfter As IntPtr, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal uFlags As Integer) As Boolean   End Function   Dim X As String <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _ Public Shared Function SetParent(ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As IntPtr End Function   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load une_sub() End Sub   'méthode a ignorer sa sert a afficher une executable dans ma form lors d'un clic Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim p As Process p = Process.Start("C:\monapplication.exe") p.WaitForInputIdle() SetParent(p.MainWindowHandle, Me.Handle) SetWindowPos(p.MainWindowHandle, IntPtr.Zero, 0, 0, 0, 0, 0) End Sub     Private _stop As Boolean   Private Sub une_sub() Dim t As New System.Threading.Thread(AddressOf masub) t.isbackground = True t.start() End Sub   Private Sub masub() While _stop = False F1sub() ' j'ai essayer sa mai il aime pas le visual^^ System.Threading.Thread.Sleep(5000) ' permet de pas bouffer trop de ressources si les choses à faire ne sont pas totalement continues End While End Sub   Private Sub buttonclick() Handles boutonarret.Click _stop = True End Sub     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click masub() End Sub Public Sub F1sub() My.Computer.Keyboard.SendKeys("F1") 'Simuler la pression sur la touche F1 End Sub       End Class

---

nan c'est bon je suis passé par un timer c'est plus simple :

bouton1 --> declenche le timer

méthode X --> dés que le timer est fini on apelle la simmulation du clavier F1
puis on rédémarre le timer.

bouton 2 --> stop le timer


sa marche du tonnerre ! :ccool: