Echanger donnees entre 2 Forms( Temps de lecture estimé à 1 min 16 sec )
ECHANGER DES DONNEES ENTRE 2 FORM
Bonjour,
Aujourdhui nous allons apprendre comment echanger des donnees d'un form à l'autre.
En effet, il est bien pratique de construire un programme multifenêtre.
Pour ceux qui ont l'habiude de VB, il fallait simplement nommer le form puis passer l'argument en parametre ( exemple :
Form2.textbox.text = "babaorum" )
Sous Gambas linux ,c'est un peu plus difficile mais cela a l'avantage de séparer le code des Forms grace aux modules.
Trève de bavardage ,passons aux travaux pratiques :
Tout d'abord créons un projet, nommé exchangedata puis dans le form Fmain, mettons une textbox1 puis un Button1, ce qui nous donne ceci :
creons une deuxieme fenetre avec la meme chose, Form1,button1 et textbox1 et voila :
Ah oui j'oubliais un textlabel aussi, vous l'aurez deviné.!
maintenant creons un module nommé moduletransfert
definissons une variable avec la commande :
public texte as string
maintenantpassons au code de Fmain.
Double cliquez sur le button1 de fmain et ecrivez ce code dans Button_click
dans le Form1 ecrivez ce code :
| PUBLIC SUB form_OPEN() textbox1.text = moduletransfert.texte |
Exécutons notre application et voila ce que cela donne :
Pour résumer voici une petite info au format PDF ICI.
voici les sources de l'exemple ICI à télécharger .
Après réflexion, il est tout à fait possible d'echanger des donnees entres deux form sans passer par un module.
Il suffit de mettre dans le premier FORM
| PUBLIC SUB button1_click() form1.ajoutexte(textbox1.text) END |
et dans l'autre form ecrire
| PUBLIC SUB form1_ajoutexte(montexte AS String) textbox1.text = montexte END |
CI joint les sources de l'exemple ICI
Merci à Micio pour sa remarque
