Discussion :

[taspai]

Bonjour,

J'utilise des threads sans soucis dans mon programme mais j'ai tout dans le Form1.vb et donc j'organise mon code de manière différente pour des raisons de compréhensions.

Donc j'ai créé un fichier dans lequel j'ai mis mon code par rapport aux threads et donc au lieux de faire Me.Invoke(Sub() Me.Label1... je fais Form1.Invoke(Sub() Form1.Label1...

Mais je me retrouve face a ce message d'erreur lors de l'éxecution des threads : "invoke or begininvoke cannot be called on a control until the window handle has been created"
Je ne comprends pas ce qu'il se passe car je fais bien référence a Form1 donc cela revient au même ..

Merci d'avance et bonne journée !

[Jabbal'H]

Ta Form1 est bien instancié et référencé ?
Tu peux mettre un extrait de code aussi ?

[Pol63]

quand un control doit devenir visible pour la 1ère fois, une méthode est appelée pour créer le handle dans windows (c'est windows qui gère les controles)
tant que ce n'est pas arrivé on a pas l'air de pouvoir faire d'invoke dessus

il y a des solutions propres mais si tu veux faire simple tu peux tenter d'écrire me.createcontrol dans le sub new du form

sinon lancer les threads plus tard, genre sur l'event load du form

[taspai]

Il y a beaucoup de code alors en mettre vas etre un peu dur mais ma form est bien instancié oui, référencé je ne sais pas ce que c'est..

En gros mon programme est un serveur multiclients et donc quand un client se connecte cela créé un thread afin de le gérer donc les threads se lancent tard (la fenetre est affiché et attend les connections..)

Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Sub MiseAJourMsgClient(ByVal sender As Object, ByVal Msg As String, ByVal e As EventArgs)
        Dim thServer As New ThServer
        Dim SocketClient As Socket = CType(sender, Socket)
 
        thServer.Parser.Parse(Msg)
 
        Me.Invoke(Sub() Me.ListBoxDetails.Items.Add("Message de " & SocketClient.RemoteEndPoint.ToString() & " : " & Msg))
        Dim LI() As String = Split(Msg, "¤")
        If LI(1) = "operation" Then
            SocketClient.Send(System.Text.Encoding.Unicode.GetBytes("Datas received"))
            Me.Invoke(Sub() Me.ListBoxDetails.Items.Add("Operation d'un client"))
            Console.WriteLine("Socket send message for operation")
        End If
 
        If LI(1) = "connexion" Then
            Console.WriteLine("Connexion client")
            Me.Invoke(Sub() Me.ListBoxDetails.Items.Add("Connexion d'un client"))
        End If
        If LI(1) = "deconnexion" Then
            Console.WriteLine("Déconnexion client")
            Me.Invoke(Sub() Me.ListBoxDetails.Items.Add("Deconnexion d'un client"))
        End If
    End Sub

Merci pour votre aide

[taspai]

J'ai continué de travailler dessus et donc au final ce qui se passe c'est que j'ai mon MainForm qui lance une classe et cette classe lance une classe (appellé thServer) en thread x fois.

Ce que je souhaite c'est pourvoir modifier l'interface depuis une fonction étant dans thServer, j'ai donc essayé de faire de deux manières :

Code :

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

1
2
3
 
 MainForm.Invoke(Sub() MainForm.ListBox5.Items.Add(str))
 MainForm.ListBox1.Items.Add(str)

J'admet que j'ai essayé un peu a taton le résultat est le suivant :

Première méthode j'obtiens le fameux message d'erreur : "Threads invoke or begininvoke cannot be called on a control until the window handle has been created"
Et de la deuxième je n'ai aucun message d'erreur mais il ne se passe absolument rien sur l'interface (car je ne dois pas etre sur le bon thread..)

J'espère m'être exprimé a peu près clairement, merci d'avance pour votre aide et bonne soirée !

[MABROUKI]

bonjour
pour avoir le droit d'ecrire:

Code :

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

1
2
3
4
 
  Form1.Invoke() 
  'ou
 'Form1.BeginInvoke()

Il faudrait que Invoke et BeginInvoke soit des methodes statiques(shared) ce qu'elles ne sont pas....
Comme elles sont des methodes d'instance elle exigent une reference à ton form(me)...

Conseil :dans ton appel tu peux transmettre une reference à ton form actuel:

Code :

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

1
2
3
 
Sub MiseAJourMsgClient(ByVal sender As Object, ByVal Msg As String, ByVal e As EventArgs,byval frm as TonForm)
end sub

bon code....

[taspai]

Entendu, merci beaucoup je vais essayer ca et je je tiens au courrant

[Pol63]

bonjour
pour avoir le droit d'ecrire:

Code :

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

1
2
3
4
 
  Form1.Invoke() 
  'ou
 'Form1.BeginInvoke()

Il faudrait que Invoke et BeginInvoke soit des methodes statiques(shared) ce qu'elles ne sont pas....
Comme elles sont des methodes d'instance elle exigent une reference à ton form(me)...

en vb.net on peut écrire ca, vb créé des variables shared pour les forms avec le nom de la classe
ca permet aux débutants d'écrire form2.textbox1.text = "", soit ce qu'il y a de plus affreux en terme de design ^^

[taspai]

Bonjour,

J'ai donc ajouté dans mes deux classes public _form as new MainForm et je me sers de _form.Invoke et ça fonctionne très bien !

Merci beaucoup et bonne journée !