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 !

[belfaigore]

Ok d'accord, ces nuances me sont pas automatique mais tu as parfaitement raison.

Ceci dit sa ne résoud pas mon soucis.

Je cherche depuis tout à l'heure, et à chaque fois tous les exemples que je trouve donne le code que j'ai cité plus haut à savoir

Code :

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

1
2
 
If TypeOf Ctrl Is Label Then ...

ce qui dans mon programme est toujours faux malgrès la pésence de Label.

Je ne comprend pas

[Vesta]

Si tu essaie qqch du genre

msgbox TypeOf(Formname.Labelname)

[belfaigore]

J'ai essayé mais ça ne marche pas non plus, j'ai un message d'erreur du genre (je me souvient pas exactement) : "Instruction Is attendu"

[jmfmarques]

Bon (je suis dans un bon jour) et contre promesse de faire dorénavant attention à la précision de ce que tu écris (c'est important !)

Code :

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

1
2
3
4
5
Private Sub Command1_Click()
  Dim toto As Control
  Set toto = Command1
  MsgBox TypeName(toto)
End Sub

[ridan]

le code que j'ai posté marche parfaitement chez moi sur vb6 ...

Tu peux essayer avec la fonction typename de jmf qui fonctionne correctement, sinon crée un projet qui reproduit ton prob et poste le ici

++

[jmfmarques]

Je crois bien que son erreur provient du fait qu'il a écrit control avec un s !

[Vesta]

lol

[belfaigore]

Merci sa marche parfaitement avec TypeName

[jmfmarques]

Oui, mais......
Cà marche parfaitement avec la réponse de Ridan (je dirais même qu'elle me parait meilleure !... je n'ai donné la mienne que pour t'éveiller !....)
Je le répète donc : As Control sans s indû, c'est tout !