Discussion :

[Emcy]

Bonjour,

je suis entrain de créer mon premier thread .

J'ai une fenetre dans laquelle je change la valeur d'une texte box puis je fais une tempo de 2 secondes avant de fermer ma fenetre
=> si je n'utilise pas de thread, ma texbox devient un champ blanc et vide

voici ma classe :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Class ThreadTimer
 	private pTimer As Integer
 
 	Sub New(myTimer As Integer)
 		pTimer = myTimer
 	End Sub
 
 	Public Sub Main()
		Thread.Sleep(pTimer) ' bloque le programe pendant 1sec
	End sub
End Class

voici comment j'utilise mon thread

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    	Me.label1.Text = "Vérification terminée"
 
		Dim myObjThread As ThreadTimer = New ThreadTimer(2000) 'tempo de 2 sec
		Dim t As Thread = New Thread(AddressOf myObjThread.Main)
		t.Start
 
    	While t.ThreadState <> ThreadState.Stopped
       		Application.DoEvents()
       	End while
 
    	Me.Close

est-ce que c'est bien comme ça qu'il fallait faire ?

[Pol63]

mouais ... c'est se compliquer la vie ... et avec du code moyennement propre


un simple

Code :

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

1
2
3
"verification terminée"
system.threading.thread.sleep(2000)
me.close

aurait suffit vu le cas
dans le pire des cas un timer qui ferait me.close

[Emcy]

sperot51, ta soution ne fonctionne pas car comme je l'ai dit precedemment :

J'ai une fenetre dans laquelle je change la valeur d'une texte box puis je fais une tempo de 2 secondes avant de fermer ma fenetre
=> si je n'utilise pas de thread, ma texbox devient un champ blanc et vide

=> si on fait un sleep dans le programme principal, ça bloque le rafraichissement de la fenetre principale (c'est pourquoi ma textbox devient blanche)...

j'ai modifié un peu mon programme pour que ça soit plus propre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub StartTempo(myTimer As Integer)
		Dim t As Thread
		Dim myObjThread As ThreadTimer
 
		myObjThread = New ThreadTimer(myTimer) 'tempo de 2 sec
		t = New Thread(AddressOf myObjThread.Main)
		t.Start
 
    	While t.ThreadState <> ThreadState.Stopped
       		Application.DoEvents()
       	End while	
End Sub

Code :

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

1
2
3
4
    	Me.label1.Text = "Vérification terminée"
        StartTempo(2000)
 
    	Me.Close

[smyley]

Et si tu appelais Application.DoEvents juste après avoir changé le contenu de ta textBox ?

[Emcy]

ben la je comprends plus j'ai rajouté des fonctions dans mon programme et maintenant la textbox agi normalement avec system.threading.thread.sleep(2000) meme sans Application.DoEvents()