Page en cours de chargement

Donnez votre avis..
Que pensez-vous de gambaslinux.fr?
 
Interessant
Il manque des rubriques
excellent site
Résultats
INTERFACE GAMBAS
LOGICIELS GAMBAS 3
TUTORIELS
=Bibliothèque
FENETRE FORM - echanger entre 2 Forms

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 :

form1.jpg

creons une deuxieme fenetre avec la meme chose, Form1,button1 et textbox1 et voila :

form2.jpg

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
codeform1.jpg

dans le Form1 ecrivez ce code :

PUBLIC SUB form_OPEN()
textbox1.text = moduletransfert.texte

Exécutons notre application et voila ce que cela donne :

final.jpg


Pour résumer voici une petite info au format PDF ICI.

voici les sources de l'exemple ICI à télécharger .



essaimicio.jpg
Une petite information cependant.
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 remarquewink




Date de création : 30/03/2009 @ 14:24
Dernière modification : 12/02/2012 @ 10:45
Catégorie : FENETRE FORM
Page lue 6501 fois


Imprimer l'article Imprimer l'article


react.gifRéactions à cet article


Réaction n°5 

par polo le 04/07/2011 @ 08:16

lack of funding that has been allocated to force, fraud, or coercion can be very difficult considering that the victims have often times been brain washed, beaten, raped, raped, polo femme raped, molested, threatened, and tormented and fear revealing the identity of their trafficker," he continued.During an April 18 appearance with Demi Moore on CNN's "Piers Morgan Tonight," Kutcher quoted a figure that has been widely used in publications, including The The Casque Monster beats by Dr. DreThe New York Times and USA Today."It's between 100,000 and 300,000 child sex slaves in the United States today," Kutcher Morgan, referring to the number of American children forced into prostitution every year. "If you don't do something

Réaction n°4 

par spheris le 24/12/2010 @ 17:09

pour récuperer le focus, utilise cette fonction :
TextBox1.SetFocus()
à chaque appuie d'une touche
wink

Réaction n°3 

par caracole le 24/12/2010 @ 14:50

oui, mais comment faire en sorte que chaque caractere frappé dans la FMain soit transmis dans
la zoner de texte de Form1 ?
'ceci fonctionne, mais on perd le focus de Fmain
'comment redonner le focus ?
PUBLIC SUB TextBox1_Change()
moduletransfert.texte = TextBox1.Text
Form1.show
END


Réaction n°2 

par micio le 15/05/2009 @ 22:15

ça y est ! c'est bon

Réaction n°1 

par micio le 15/05/2009 @ 18:22

J'ai pas l'impression que la 2me solution fonctionne


ACCES RAPIDE
RECHERCHE




LES INSTRUCTIONS
Divers
INSTRUCTIONS
Où ça, qui ça?
VISITES

   visiteurs

   visiteurs en ligne

ARCHIVES GAMBAS 1/2
^ Haut ^