Discussion :

[Misoss]

Bonjour,
J'aimerais a partir de Form1 quand je click sur Ok que sa m'envoie les informations de Text1 et Text2, sur Form2, mais je ne sais pas quoi mettre dans OK pour définire l'envoie de Text1 et 2 vers Form2, ni comment faire le reçu.

Merci de votre aide

[ProgElecT]

Code :

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

1
2
3
4
Private Sub CommandOk_Click()
Form2.Show
Form2.Caption = Text1.Text & "/" & Text2.Text
End Sub

ni comment faire le reçu

???

[Misoss]

ce que je doit marqué dans le label pour qu'il affiche le recu de Text 1 et 2.

Et pourriez vous expliquer votre code svp

[Delbeke]

Le code porposé par ProgElect, que je salue au passage, ne comporte que deux lignes d'instructions simples et tu as besoin que l'on t'explique !
Fais un petit tour sur les tutoriels et les Faqs de vb6, reviens nous voir quand tu auras acquis un minimum de connaissances.
Essaye le code que l'on t'a donné .
On ne comprends pas ce que tu veux dire par reçu. Explique cette notion de reçu.

[Misoss]

Fais un petit tour sur les tutoriels et les Faqs de vb6, revient nous voir quand tu auras acquit un minimum de connaissances.

c'est ce que j'ai fais mais j'ai pas encore lu les 50 pdf dsl ...

Pour moi tu envoie de Form1 une info en cliquant sur OK, et tu la reçoit sur form2

[ProgElecT]

J'aimerais a partir de Form1 quand je click sur Ok que sa m'envoie les informations de Text1 et Text2, sur Form2

Pour moi tu envoie de Form1 une info en cliquant sur OK, et tu la reçoit sur form2

c'est pas la bonne reponse

[Delbeke]

Vb ne fonctionne pas comme çà.
On remplis la propriété d'un composant, le composant se charge de faire les actions nécessaires. Il n'y a pas de notion d'envoi ni de reçu, tout au moins dans VB6. Peut être dans Vb.Net (que je ne connais pas ou si peu).

[ProgElecT]

Salut Delbeke
Allez, un dernier coup de pouce
2 Forms
Form1: 3 CommandButtons (Command1, Command2 et Command3), 2 TexteBoxs (Text1 et Text2)

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Command1_Click()
Form2.Caption = Text1.Text & "/" & Text2.Text
End Sub
Private Sub Command2_Click()
Form2.Show
End Sub
Private Sub Command3_Click()
Form2.Label1 = "Coucou"
End Sub

Form2: 1 Label (Label1), pas de code.

Tu lances le projet, click sur Command1 puis Command2 et enfin sur Command3.

[Misoss]

Oki, Delbeke ^^

je vois a peut pres comment sa marche ProgElecT, donc mon probleme d'envoie été enfaite tout con, mais la lepb qui persiste c'est que sa m'affiche pas ce que je rentre dans mes textbox

voici ce que j'ai

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
18
Private Sub Command1_Click()
'Envoie des données vers From2
Form2.Caption = Text1.Text & "/" & Text2.Text
Form2.Label1 = ""
Form2.Label2 = ""
Form2.Show
End Sub
 
Private Sub Command3_Click()
'Sortie du programme
End
End Sub
 
Private Sub Command2_Click()
'Effacer les zones textes 1 & 2
Text1.Text = ""
Text2.Text = ""
End Sub

Une autre petit question peut on lier du VB a une base de donnée SQL ?

[Delbeke]

Ca ne les affiche pas où ?

Les ordinateurs sont très cons, il ne font que ce que les programmeurs leur disent de faire, pas forcèment ce que les programmeurs ont envie qu'ils fassent.

Utilise un peu tes méninges.

[Misoss]

Code :

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

1
2
3
4
5
6
7
Private Sub Command1_Click()
'Envoie des données vers From2
Form2.Caption = Text1.Text & "/" & Text2.Text
Form2.Label1 = ""
Form2.Label2 = ""
Form2.Show
End Sub

Pourtant ya bien Form2.Label1 donc il doit savoir ou sa l'envoi sur la From2 dans Label 1.

car j'ai aussi tester ceci, mais sa me renvoie pas ce qui est ecrit dans les textes mais sa me renvoie Text1.Text dans le label1 de la From2 etc ... ( pour Text 2)

Code :

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

1
2
3
4
5
6
7
Private Sub Command1_Click()
'Envoie des données vers From2
Form2.Caption = Text1.Text & "/" & Text2.Text
Form2.Label1 = "Text1.Text "
Form2.Label2 = "Text2.Text"
Form2.Show
End Sub

[Delbeke]

Et pourquoi crois tu que c'est fait les guillemets ?
Ben je te le donne en mille, à définir un texte que vb ne doit pas chercher à interpréter (on dit que c'est un litéral), il doit l'utiliser tel quel, donc si tu vois arriver Text1.Text dans tes zones label, c'est normal.

Code :

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

 Form2.Label1.Caption = Text1.Text

enverra dans le Caption du label1 de la form2, le contenu de text1.text.

Code :

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

 Form2.Label1.Caption = "Toto"

Fera quoi à ton avis ?

Il va vraiement falloir que tu passes par les tutos de vb6.

[Misoss]

bah je passe aux tutos, mais bon yen a certain qui sont un peut vague a mon gout, et j'ai trouver par moi même merci ^^