Discussion :

[stargatejojo]

Bonjour,

J'ai besoin d'un coup de main,
J'ai une application Form1 qui est la principal
Et j'en ai plusieurs autre qui sont des secondaires, mais que mon programme utilise.

Et j'aimerais que si j'entre une information dans une, qu'elle puisse être récupérer par l'autre form

Merci d'avance de votre aide

Jojo

[souaddemaroc]

1- Et beh vous allez utiliser un variable globale dans le quel vous stockez l'informations à récupérer
2- Si tu veut récupérer une valeur contenant dans un champ textbox ou un label donc vous devez faire cela dans la deuxième form :

Code :

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

1
2
3
4
 
dim f as new form1(Form d'apres lequel vous vouliez récupérer la valeur)
dim val as string
val=f.textbox.text

C'est tout j'éspère que ça va marché

[stargatejojo]

Malheureusement j'ai toujours des problèmes ...

'<nom>' n'est pas un membre de '<nomclasse>'

[souaddemaroc]

Je te comprend pas

Essai d'être un peu clair en donnant la structure de votre form et ....

[stargatejojo]

Code :

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

 dim f as new form1

Ca c'est bon (1)

Code :

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

dim val as string

Ca aussi (2)

Code :

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

val=f.textbox.text

Mais la il aime pas le .TextBox ...
Mais ma variable (1) que j'ai appelé est une TextBox
Ca devrais pourtant toujours aller !

Et il me dis :

'<nom>' n'est pas un membre de '<nomclasse>'

[Bob Langlade]

Il faut que l'instance de chaque form soit 'visible' par les autres, une solution consiste à créer un module dans lequel les forms sont déclarées en Public.

Par exemple :

Code :

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

1
2
3
4
5
6


Module Declarations
Public _Articles As RerchercheArticle
Public _Interro As InterrogationCommerciale
EndModule

Une fois qu'elles auront été instanciées (dans la classe qui gère les menus) on a accès à tous les objets.

Par exemple :

Code :

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

1
2
3
4
5
6

If _Articles IsNotNothingThen

TextBox1.Text = _Articles.TextBox1.Text
EndIf

Quand il s'agit de passer un paramètre lors de la création d'une form, le plus simple est d'utiliser un constructeur (cela évite de mettre les forms en public) :

Code :

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

1
2
3
4
5


PrivateSubNew(ByVal Paramètre AsString)
TextBox1.Text = Paramètre
EndSub