Discussion :

[vtk37]

Salut,
aprés avoir pas mal cherché et rien trouvé en VB.net je m'en remet à vous.

J'ai donc d'un coté une fenêtre Mdiparent qu'on appellera MainForm, dans laquel un thread tourne et récupère des donné provenant d'une carte électronique, et de l'autre une fenêtre MdiChild qu'on appellera Form2.

Je voudrai donc afficher des valeur qui sont contenu dans des variables de MaiForm dans des labels de Form2.
J'ai donc essayé comme ça mais rien ne se passe:

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Sub AffP(ByVal [text80] As String)
        If form2.Label_P.InvokeRequired Then
            Dim q As New SetTextCallback80(AddressOf AffP)
            Me.Invoke(q, New Object() {[text80]})
        Else
 
            form2.Label_P.Text = [text80]
 
        End If
    End Sub

j'ai trouvé quelque bricole en C# mais j'arrive pas à en faire grand chose

[rocknboard]

j'ai la solution

par ex dans la mainform il y a Label1.text , et dans la form2 il y a aussi label1.text

alors pour l'afficher Label1.text de la MainForm dans Label1.text de la Form2
tu met ce code là :

Dans la Form2 Biensur :

Code :

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

 label1.text = my.forms.mainform.label1.text

j'ésper Que sa vous aider

[vtk37]

en fait il fait que ce soit du code dans MainForm qui modifie le label dans Form2
sinon ça serai trop facile

[rocknboard]

ah bon !

alors tu peux met ce code dans Mainform

Code :

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

my.forms.form2.label1.text = label1.text

sa mettre les données du label1.text du MainForm dans label1.text du Form2

Remarque : il faut que La form2 soit Visible

[vtk37]

ah bon !

alors tu peux met ce code dans Mainform

Code :

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

my.forms.form2.label1.text = label1.text

sa mettre les données du label1.text du MainForm dans label1.text du Form2

Remarque : il faut que La form2 soit Visible

mais c'est deja la solution que j'utilise

Code :

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

form2.Label_P.Text = [text80]

la donnée est contenu dans [text80] au lieu de label1.text c'est tout

[nasty]

Remarque : il faut que La form2 soit Visible

Non il n'est pas necessaire qu'elle soit visible, mais juste chargée.

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Sub AffP(ByVal [text80] As String)
'je ne sais pas si tu as déjà chargé ta form2
dim form2 as new form2
 
            form2.Label_P.Text = [text80]
'ou
            form2.Label_P.Text = MainForm.Label_Main.Text
 
form2.Show
    End Sub

[vtk37]

oui j'ai testé aussi en chargeant la form et il n'y a pas de différence

[nasty]

bah je seche alors
Cordialement
Nasty

[alex_vino]

Il faut passer ton form en paramètre

Code :

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

1
2
3
Public Sub test(ByVal frm as MainForm)
   ...
End Sub

Appel :

Code :

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

test(Me)

[vtk37]

je vois pas trop comment je peux mettre ça en place

Au chargement de ma form2 faut que je passe MainForm en paramètre?

le test(me) je le fait dès que je modifie une variable dans MainForm?

[Geo2A]

Bonjour,

Avez vous testé le fait que votre texte s'affiche et se rafraîchit correctement sur un label (ou autre) de votre MainForm avant de tenter de l'afficher et le rafraichir sur une feuille fille ?

[vtk37]

oui tout marche bien sur la mainform, en fait tout était placé sur des onglets, qui sont maintenant remplacé par des form fille.

[Geo2A]

Bonjour,

Je pense que le pb se situe ici

Code :

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

form2.Label_P.InvokeRequired

Je ne maîtrise pas bien ces histoires de méthode invoke, mais amha le contrôle conditionnel que vous faites doit ce situé sur le mainform et pas sur le form2.

Pour progresser dans l'analyse vous pourriez mettre un contrôle label invisible sur votre MainForm (Label_I) écrire dans Main form

Code :

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

1
2
3
4
5
6
7
8
If Me.Label_I.InvokeRequired Then
            Dim q As New SetTextCallback80(AddressOf AffP)
            Me.Invoke(q, New Object() {[text80]})
        Else
 
            form2.Label_P.Text = [text80]
 
        End If

[vtk37]

j'ai tester avec un label caché mais il n'apparait pas pour au-temps, je sais pas trop non plus à quoi sert le invoke, c'était juste déjà là quand j'ai repris l'application

par contre je viens de tester en ouvrant ma form2 sans quel soit en fenêtre fille et les valeurs sont bien actualisé... il y a peut être un truc a paramétré pour que la form MdiParent puisse accéder à la from MdiChildren

[alex_vino]

Il suffit de passer le form parent en paramètre du plic sub new (ou autre) du child comme j'ai fait plus haut, et ça fonctionne, pas besoin de chercher de midi à 14 heures