Discussion :

[JLuc01]

Bonjour,

J'essaye de comparer le contenu d'un Tag (Objet) avec un String (String).
Bien sur, cela ne marche pas. Comment peut-on faire?

Le Tag property est rempli directement dans les proprietes du controle: PictureBox.Tag rempli avec "R00".
Et je voudrais faire la comparaison:

Code :

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

1
2
3
4
 
For Each ctrl As Control In Me.Controls
     If TypeOf ctrl Is PictureBox Then
           If CType(ctrl, PictureBox).Tag Is "R00" Then

J'ai essaye:

Code :

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

If CType(ctrl, PictureBox).Tag.ToString = "R00" Then

mais, sans resultats.

Bref, avez-vous une idee ?
Merci,

A+
JLuc01

[JLuc01]

Je crois avoir trouve la solution.
Du moins, cela a l'air de marcher.

Code :

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

1
2
3
4
 
Dim x As String
x = CStr(CType(ctrl, PictureBox).Tag)
If x = "R00" Then

ou

Code :

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

If CStr(CType(ctrl, PictureBox).Tag)= "R00" Then

au lieu de

Code :

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

1
2
 
If CType(ctrl, PictureBox).Tag.ToString = "R00" Then

Bizarre qu'on ait besoin de CStr() au lieu de .ToString !
Dans les 2 cas, pas d'erreurs observees avec Option Explicit On.

A+
JLuc01