Discussion :

[belfaigore]

Bonjour,

Je cherche à identifier les labels d'un formulaire pour pouvoir changer le texte (faire un multi-langue) voici mon code (de tête) :

Code :

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

1
2
3
4
5
6
7
8
 
Dim ctrl as controls
 
For Each ctrl In Me
   If TypeOf ctrl Is Label Then 
       MsgBox "Label"
   End If
Next

Mais cela ne fonctionne pas ; si je change Label par Timer (car il y a un timer dans mon Formulaire, ça fonctionne, il est bien identifier, alors pourquoi pas la Label ???)

[ridan]

Salut

Essaye ce code :

Code :

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

1
2
3
4
5
6
     Dim controle As Control
    For Each controle In Me.Controls
        If TypeOf controle Is VB.Label Then
            controle.Caption = "test"
        End If
    Next

[belfaigore]

Ca ne marche pas non plus.

Il n'y a pas une fonction qui me permettrai de recuperer le type d'un objet au format string car il semble que TypeOf fait partie de l'instruction IF ?

[jmfmarques]

car il semble que TypeOf fait partie de l'instruction IF

Puis-je te demander, avant de continuer, de bien "peser" ce que tu as écrit là.... puis de nous exposer tes conclusions ?

[belfaigore]

Bien en cherchant de l'aide sur TypeOf, j'ai trouvé que cette fonction été associée à l'instruction "If Then Else". Je vois pas où est le soucis. Je suis pas un expert de VB6, alors peut-être que je n'emploi pas les bon termes mais j'essai d'être le plus clair possible.

Ma conclusion c'est que TypeOf fonctionne avec un Timer mais pas avec un Label ... bizard comme fonction.

Alors si quelqu'un a une méthode permettant de recupérer le type d'un label se serai sympa.

[jmfmarques]

Je te demande simplement de mesurer la différence entre ce que tu as dit :

TypeOf fait partie de l'instruction If

qui tend à dire qu'une instruction If inclue un TypeOf
et ce que tu aurais dû dire :

TypeOf ne peut être invoqué que dans une expression conditionnelle (If)

Voilà tout, et ce n'est pas la même chose !