Créer Handle de fenetre

Bonjour,
J'ai un message d'erreur quand j'utilise cette procédure :

Code:

---

1 2 3 4 5 6 7 8 9

Sub Methode2() Dim main As Form5 = CType(Application.OpenForms("Form5"), Form5) For x As Integer = 0 To 10 main.Invoke(New MethodInvoker(Sub() Label8.Text = x)) Label8.Text = x Thread.Sleep(1000) Next End Sub

---

déclenchée par un click sur un bouton :

Code:

---

1 2 3 4 5 6 7

Private Sub VID49_2_Form5_Click(sender As Object, e As EventArgs) Handles VID49_2.Click, VID49_2_Form5.Click   Dim thread1 As New Thread(Sub() Methode2()) thread1.IsBackground = True thread1.Start() End Sub

---

L'erreur est : "System.InvalidOperationException*: 'Impossible d'appeler Invoke ou BeginInvoke sur un contrôle tant que le handle de fenêtre n'a pas été créé.'"

A noter que j'ai rajouté la déclaration dans ma Methode2 :

Code:

---

1 2	Dim main As Form5 = CType(Application.OpenForms("Form5"), Form5)

---

et que le problème ne survient quand j'arrete le processus(avant que x vaille 10) quand je ferme la fenetre

Si quelqu'un a une idée MERCI

Bonjour,

Alors là franchement, je me demande ce que tu veux faire.
OpenForms va te renvoyer une collection de form ouverts (de nom "Form5").
Et toi tu essaies de changer le type de la collection en form :weird:
En général l'utilisation d'OpenForms va de pair avec un For Each...
Après tu appelles dans la fameuse form Main dont on ne sait pas ce qu'elle contient vraiment, un sub qui met une valeur dans un label et tu utilises invoke pour çà (avec New methodInvoker en plus...) juste pour modifier un label, alors que la ligne suivante, tu modifies ce même label par une simple instruction (Methode2 se trouve où ? dans ton formulaire Form5, ailleurs ?)
:marteau:

Par ailleurs, le message d'erreur est sur quelle instruction ?
Si c'est sur la ligne invoke c'est clair, ton formulaire main ne pointe sur rien. Ce qui ne m'étonne pas, vu la 1ère remarque que j'ai faite.
Si c'est sur la ligne où le label est modifié directement, c'est peut-être (mais il nous manque trop d'éléments), que ce label8 n'est pas accessible par Methode2 (autre formulaire, ou plutôt formulaire non ouvert).

Il y a des règles de base à suivre, et l'une des premières et de n'utiliser un objet que si on est certain qu'il est utilisable.

Merci pour ta réponse, c'est pour illustrer un tuto vu sur YTube, j'ai réglé le problème comme ceci(en "zappant" l'erreur) :

Code:

---

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

Sub Methode2() For x As Integer = 0 To 10 Try Invoke(New MethodInvoker(Sub() Label8.Text = x)) Catch ex As Exception   End Try Label8.Text = x Thread.Sleep(1000) Next End Sub

---

En effet c'est le fait de fermer la fenêtre qui me provoquait l'erreur, du coup plus de problème peut être que tu as une meilleure et/ou plus "propre" solution ?

Je pense qu'il y a toujours plusieurs soucis.
Et tout ce qu'il y a depuis Try jusqu'à End Try semble inutile, ici.
Si çà ne plante plus, c'est que la modification du label en direct (la ligne 9 dans ton dernier post) fonctionne. Donc que ton sub Methode2 est dans le formulaire où figure ce fameux label8. Et donc que ce qui précède est inutile.
En revanche, si Methode2 était dans un module séparé ou un autre formulaire, c'est cette ligne qui planterait, et là il faudrait que tu fasses référence à ton formulaire.
Bref, il y a beaucoup de travail encore pour que ce tuto soit vraiment utile.

D'ailleurs, ces noms de sub, de label, de formulaire, sont tous sauf expressifs !
Une autre règle de base, nommer de manière à parfaitement identifier, et de manière unique, tous les éléments.
Form5 pourrait s'appeler Form_ThreadDemo par exemple.

Maintenant, tu n'as toujours pas expliqué ce que tu voulais faire exactement avec ton code. Peut-être qu'on pourrait mieux t'orienter si on avait tous les éléments.

Citation:

---

Envoyé par m4k-Hurrican

Je pense qu'il y a toujours plusieurs soucis.
Et tout ce qu'il y a depuis Try jusqu'à End Try semble inutile, ici.
Si çà ne plante plus, c'est que la modification du label en direct (la ligne 9 dans ton dernier post) fonctionne. Donc que ton sub Methode2 est dans le formulaire où figure ce fameux label8. Et donc que ce qui précède est inutile.

Maintenant, tu n'as toujours pas expliqué ce que tu voulais faire exactement avec ton code. Peut-être qu'on pourrait mieux t'orienter si on avait tous les éléments.

---

bjr, merci pour le suivi, oui Methode2 fait parti du formulaire si j'enlève le try :

Code:

---

1 2 3 4 5 6 7

Sub Methode2() For x As Integer = 0 To 10 Label8.Text = x Thread.Sleep(1000) Next End Sub

---

j'ai cette exception à l'exécution :

System.InvalidOperationException*: 'Opération inter-threads non valide*: le contrôle 'Label8' a fait l'objet d'un accès à partir d'un thread autre que celui sur lequel il a été créé.'

Si je remets "invoke" :

Code:

---

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

Sub Methode2() For x As Integer = 0 To 10   Invoke(New MethodInvoker(Sub() Label8.Text = x))       Label8.Text = x Thread.Sleep(1000) Next End Sub

---

Si j'arrete le processus (fermeture de la fenêtre ) avant la fin de la bouche tant que x < 10 j'ai cette exception, si je vais au bout de la procedure x=10 je ne l'ai pas :

"System.InvalidOperationException*: 'Impossible d'appeler Invoke ou BeginInvoke sur un contrôle tant que le handle de fenêtre n'a pas été créé.'"

Le programme "va" sur le try en erreur mais comme j'ai rien mis ne fais rien quand je ferme la fenêtre.

Ce petit code c'est simplement pour moi pour comprendre les threads

Merci

Tu ne penses pas qu'il serait plus logique de sortir de la boucle si le label (et donc sa fenêtre) ne sont plus existants? ou de ne pas chercher à l'invoquer si non existant ?

Citation:

---

Envoyé par umfred

Tu ne penses pas qu'il serait plus logique de sortir de la boucle si le label (et donc sa fenêtre) ne sont plus existants? ou de ne pas chercher à l'invoquer si non existant ?

---

*********************
oui j'y avais pensé du coup j'ai modifié la méthode :
Je teste dans le catch l'état du thread et si il est égal à son état quand je l'interompt ici "4" je ne vais pas modifier le label.Je mets aussi x à 11 pour éviter de faire la boucle jusqu'au bout. Du coup thread1 est déclaré en public :

Code:

---

1 2	Public thread1 As New Thread(Sub() Methode2())

---

Code:

---

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

Sub Methode2() Dim etat As String For x As Integer = 0 To 10 Try Invoke(New MethodInvoker(Sub() Label8.Text = x)) Catch ex As Exception x = 11 etat = thread1.ThreadState thread1.Interrupt() End Try If etat <> "4" Then Label8.Text = x Thread.Sleep(500) End If Next End Sub

---

Si des remarques n'hésite pas