Discussion :

[gazavous]

Bonjour,

J'ai programmé en langage linéaire (Foxpro, Dbase) mais je débute en Visual Basic 6.

Une des premières difficultés, transférer la valeur d'une vaiable d'une feuille à une autre.

Voici en exemple et en image ce qui me bloque:

Voir ci-bas les 2 feuilles TEST1 et TEST2 et ci-après la programmation rattachée à ces feuilles.

Feuille Submain

Code :

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

Public vnbt as Integer

Feuille TEST1

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 Command1_Click()
vnbt = Text1.Text
Label1.Caption = vnbt
test2.Show
 
End Sub
 
 
Private Sub Command2_Click()
test1.Hide
End Sub
 
Private Sub Form_Load()
Text1.Text = vnbt
 
End Sub

Feuille TEST2

Code :

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

1
2
3
4
5
6
7
8
Private Sub Command1_Click()
test2.Hide
End Sub
 
Private Sub Form_Load()
Label1.Caption = vnbt
 
End Sub

Étape 1 = j'inscris 4 dans le contrôle Text1 de la feuille TEST1

étape 2 = je clique sur "ouvrir test2" et la feuille TEST2 ouvre, avec la valeur "label1.caption" = 4 (Voir image 1ere_Selection)

Étape 3 = je ferme la fenetre TEST2 paen cliquant le bouton "Fermer" de la fenêtre TEST2

Étape 4 -= Je choisis 6 comme nouvelle valeur dans Text1 de la fenêtre TEST1 (voir image 2e_selection)

Étape 5 = J'ouvre de nouveau la fenêtre TEST2 et la valeur de label1 de cette fenêtre n'a pas changé, soit 4.

J'ai ajouté des "TEST2.Refresh" et des test2.label1.refresh, rien n'a changé

Vous seriez bien gentil de m'aider

[ProgElecT]

Hide, méthode
Masque un objet MDIForm ou Form sans le décharger.

Étape 5 = J'ouvre de nouveau la fenêtre TEST2

faux, tu reaffiches la fenêtre.

lors des appels suivant le premier affichage, Form_Load n'est pas rejoué, donc pas d'actualisation par cette procedure,
une solution, soit tu actualise dans Form_activate de Test2, soit dans Command1_Click de ton Form test1

Code :

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

1
2
3
4
5
6
7
Private Sub Command1_Click()
vnbt = Text1.Text
Label1.Caption = vnbt
test2.Show
test2.Label1.Caption = vnbt
test2.Setfocus 
End Sub

que devient ce post ?

[gazavous]

Merci ProgElect,

Je vois que je m'attendais de la procédure LOAD(), une activation à chaque fois que la feuille apparaissait.

J'utilise maintenant ACTIVATE() et c'est parfait.

Quant au POST de la grille TBDGrid, c'était le même problème mais présenté de facon plus complexe.


Encore Merci de participer à mon apprentissage dans le monde de la programmation par objet.