Discussion :

[boettez]

Bonjour
Je voudrais afficher une variable dans plusieurs forms j'ai déclaré ma variable public dans ma form et dans un module mais rein n'y fait pas de résultat

Voici mon code.

Code :

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

1
2
3
4
5
6
7
8
Sub Affichage()
Etat$ = Time$ + "  CTS=   " + Str$(CTSnouv) + "DSR=   " + Str$(DSRnouv) + "RI=   " + Str$(RInouv) + "DCD=  " + Str$(DCDnouv)
 Text3.Text = Etat$
 Open "Données.TX" For Append As #1
 Print #1, Etat$
 Close 1
 
End Sub

La variable que je doit récuperer s'appelle ( Etat$)


Merci pour tous ceux qui peuvent m'apporter une soluce.

A+

[ProgElecT]

Bonjour
Je voudrais afficher une variable dans plusieurs forms j'ai déclaré ma variable public dans ma form et dans un module mais rein n'y fait pas de résultat
.........
Merci pour tous ceux qui peuvent m'apporter une soluce.
A+

Ne la déclare que dans le module (en Public) sinon, pour une variable declarée dans un Form, pour l'utiliser dans un autre Form(ou module....) il faut faire

Code :

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

1
2
Dim Recuperation As String
Recuperation = FormX.Variable

ou FormX est le nom du Form ou est déclarée la variable

[iclic]

Bonsoir,

Mais un autre solution consiste à créer un module .bas et le définir comme sub main, et de déclarer les variables comme public dans ce module.
A partir de là toutes les variables déclarées sont reconnues dans toutes les form avec uniquement leur nom sans y associer le nom de la form.

[DarkVader]

Bonsoir,

Mais un autre solution consiste à créer un module .bas et le définir comme sub main, et de déclarer les variables comme public dans ce module.
A partir de là toutes les variables déclarées sont reconnues dans toutes les form avec uniquement leur nom sans y associer le nom de la form.

Je ne vois pas ce que le fait d'ajouter une procédure de démarrage dans le module public
apporte de plus à ce que ProgElecT a déjà détaillé plus haut ?

[iclic]

Bonjour Dark,

C'est vrai ,je n'avais pas bien lu la réponse de progelect.

Mais la procédure sub main sert à charger des paramètres et les insérer dans des variables publiques que l'on peut avoir besoin de récupérer dans plusieurs forms.

[OhMonBato]

Pas besoin d'un Sub main pour ça, n'importe quel module.bas fait l'affaire.

[DarkVader]

Bonjour,

Bonjour Dark,

C'est vrai ,je n'avais pas bien lu la réponse de progelect.

Mais la procédure sub main sert à charger des paramètres et les insérer dans des variables publiques que l'on peut avoir besoin de récupérer dans plusieurs forms.

Non, pas forcément ; l'évènement Load du form initial peut le faire aussi bien (entr'autres solutions).

[boettez]

Bonjour ProgElecT

Toujours pas d'affichage de cette variable dans une autre form.
J'explique: la variable que je veut relire dans une autre form s'appelle Etat$.
Voici le code de la variable que je récupère dans la form qui a le nom de LISTbox:

Code :

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

1
2
3
4
5
6
7
8
Sub Affichage()
Etat$ = Time$ + "  CTS=   " + Str$(CTSnouv) + "DSR=   " + Str$(DSRnouv) + "RI=   " + Str$(RInouv) + "DCD=  " + Str$(DCDnouv)
 Text3.Text = Etat$
 Open "Données.TX" For Append As #1
 Print #1, Etat$
 Close 1
 
End Sub

Dans le module j'ai déclaré:

Code :

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

1
2
 
Public Etat$

Maintenant j'essai de récupérer cette variable Etat$ dans la form du nom de FOedit dont voici le code:

Code :

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

1
2
3
Private Sub text4_change
Text4.text= Etat$
End Sub

Rien n'apparaît nada.
As tu une soluce svp
A+

[ProgElecT]

Je ne comprend pas vraiment à quel moment le de Foedit.text4.text doit prendre la valeur de ta variable.
Si c’est à l’ouverture de la form du nom de Foedit, dans le Form_load,

Code :

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

Text4.Text = Etat$

Si c’est au focus de la form du nom de Foedit, dans le

Code :

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

1
2
3
Private Form_GotFocus
Text4.Text = Etat$
End Sub

Si c’est a chaque appel de la

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
Sub Affichage()
Etat$ = Time$ & "  CTS=   " & Str$(CTSnouv) _
            & "DSR=   " & Str$(DSRnouv) _
            & "RI=   " & Str$(RInouv) _
            & "DCD=  " & Str$(DCDnouv)
 Text3.Text = Etat$
 'Open "Données.TX" For Append As #1
 'Print #1, Etat$
 'Close 1
 
'même si elle n'est pas chargé,
'le fait d'invoquer un de ces composants va enclencher son Load,
'mais sans la rendre visible
FOedit.Text4 = Etat$
'si tu veux la rendre visible
If FOedit.Visible = False Then FOedit.Visible = True
End Sub

Tu pourrais mettre le déclenchement depuis cette même Form au lieux et place de dans la sub Affichage

Code :

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

1
2
3
4
5
Private Sub Text3_Change()
FOedit.Text4 = Etat$
'si tu veux la rendre visible
If FOedit.Visible = False Then FOedit.Visible = True
End Sub

Mais il y a peut être d’autres événements dans ton programme qui sont susceptible de mettre à jour ce Text4.

[boettez]

Bonjour ProgElecT

En fait la variable Etat$ je voudrais la récupérer dans plusieurs form

Dans la form Foedit je voudrais envoyer la variable Etat$ dans le text4.text et dans la form FOcompt je voudrais envoyer toujours la même variable dans le text2.tex, mais la valeur doit être chargé même si la form n'est pas affichée
tu me comprends.

Merci d'avance pour ton écoute
A+

[ProgElecT]

A quel endroit (Nom de la Sub) ta variable change de valeur ?

[boettez]

A quel endroit (Nom de la Sub) ta variable change de valeur ?

Nom de la sub

C'est un timer en l'occurence le timer 2 et dans la form qui s'intitule FOcompt

Merci de me suivre.
a+

[ProgElecT]

Donc if faut, dans ta sub Timer2_Timer mettre à jour ta variable Etat$ et tu y mets ce

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
Private Sub Timer2_Timer
Etat$ = Valeur
'si un Form utilisant cette variable est chargé
For Each FormsProgCharger In Forms
    If FormsProgCharger.Name = "Form2" Then
         'actualiser l'utilisation de ta variable dans ce Form
         Form2.Text1.Text = Etat
    End If
    If FormsProgCharger.Name = "Form3" Then
         'actualiser l'utilisation de ta variable dans ce Form
    End If
    If FormsProgCharger.Name = "FormX" Then
         'actualiser....
    End If
Next
End Sub

Ce code n'actulise que si le FormN est charger, mais ne provoque pas son chargement.

En plus, si le/les FormN utilisant cette variable n’est pas chargé, il faut lui passer ta variable au moment du Load (ou bien Form_Initialize).

Code :

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

1
2
3
Private Sub Form_Load()
Text1.Text = Etat$
End Sub

[boettez]

Donc if faut, dans ta sub Timer2_Timer mettre à jour ta variable Etat$ et tu y mets ce

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
Private Sub Timer2_Timer
Etat$ = Valeur
'si un Form utilisant cette variable est chargé
For Each FormsProgCharger In Forms
    If FormsProgCharger.Name = "Form2" Then
         'actualiser l'utilisation de ta variable dans ce Form
         Form2.Text1.Text = Etat
    End If
    If FormsProgCharger.Name = "Form3" Then
         'actualiser l'utilisation de ta variable dans ce Form
    End If
    If FormsProgCharger.Name = "FormX" Then
         'actualiser....
    End If
Next
End Sub

Ce code n'actulise que si le FormN est charger, mais ne provoque pas son chargement.

En plus, si le/les FormN utilisant cette variable n’est pas chargé, il faut lui passer ta variable au moment du Load (ou bien Form_Initialize).

Code :

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

1
2
3
Private Sub Form_Load()
Text1.Text = Etat$
End Sub

Bonsoir ProgElecT

Donc dans tous les cas tant que ma form n'est pas visible elle ne se charge pas .
J'essaie ton code et je tient au courant.
Merci pour tes conseils.
A+