Discussion :

[Bils]

Bonjour,
Je voudrai savoir si en VB6 il est possible de créer la même procédure dans plusieurs feuilles et de faire appel à chacune d'elles dans une boucle.

En clair, avec un exemple:
Dans chacune de mes feuilles filles (MDIchild) j'ai la procédure suivante

Code :

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

1
2
3
4
 
Public Sub GestTraduction(ByVal Langue As String)
   ...
End Sub

..Et dans la MDI principale j'ai le code suivant:

Code :

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

1
2
3
4
5
6
 
Dim f as form
 
   For Each f In Forms
      f.GestTraduction ("FR")
   Next

Ce code génère une erreur! Y'a-t-il une astuce?

Merci de votre aide

[Bils]

Ça y est c'est résolu!
Il a suffit que je rajoute la procédure suivante dans la MDI mère!

Code :

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

1
2
3
4
 
Public Sub GestTraduction(ByVal Langue As String)
   ...
End Sub

Car en bouclant la MDI principale est aussi testée!

[Delbeke]

Une autre astuce

Code :

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

1
2
3
4
5
6
7
Dim f as form
 
   For Each f In Forms
      if not(f is me) then
          f.GestTraduction ("FR")
      end if
   Next