Comment puis-je faire du casting de style C dans VB.NET?

Question

J'ai une variable de type d'objet (contrôle .Tag) que je dois jeter à un type structuré, et changer un membre Ceci est un exemple artificiel mais représentatif.

Public Structure struct_COLOURS 
    Dim ILikeRed as boolean 
    Dim ILikeGreen as boolean 
End Structure 

Dim AnObject as Object = (some source that is struct_COLOURS) 

DirectCast(AnObject, struct_COLOURS).ILikeRed = True ' This is not valid syntax?! 

Je ne me rappelle pas mon syntaxe C très bien, mais ce serait quelque chose comme ceci:

(struct_COLOURS*)AnObject->ILikeRed = true; 

le point est que je peux jeter un objet à quelque chose et mettre les membres de la distribution résultant. Il semble que DirectCast soit réellement une fonction et qu'elle ne soit pas interprétée comme je l'interpréterais.

Bizarrement, si vous voulez seulement récupérer une valeur de membre, vous pouvez utiliser DirectCast:

dim YummyRed AS Boolean = DirectCast(AnObject, struct_COLOURS).ILikeRed 

est très bien!

Si je ne peux pas lancer comme je le souhaite, et que je ne peux pas modifier la propriété Tag (donc ne le suggérez pas, ce n'est pas une option) pour stocker ces structures, quel est le moyen le plus rapide?

Answer 1

Il semble que DirectCast soit réellement une fonction et ne fonctionne pas comme je l'interpréterais.

Non, ce qui ne va pas: DirectCast est pas une méthode, il est une véritable construction de langage, comme un plâtre en C.

Cependant, si vous stockez une structure (= type de valeur) dans un objet, il obtient boxed et, par conséquent, copié. Cela provoque le problème ici: vous essayez de modifier une copie, pas l'original, objet en boîte.

Ainsi, afin de changer un membre d'un objet de type de valeur en boîte, vous devez copier l'objet, modifier sa valeur, et recopiez-:

Dim tmp = DirectCast(AnObject, struct_COLOURS) 
tmp.ILikeRed = True 
AnObject = tmp 

Soit dit en passant, est la même chose en C#, malgré la similitude superficielle avec la syntaxe de distribution C.

Answer 2

Voilà comment vous devriez jeter - CTYPE:

Dim myColor As Object = Nothing 
     Dim color As Color = CType(myColor, Color) 
     color.Name = "red" 

Pourquoi un struct et non une classe?