jeu champ objet via chaîne

Question

Modifier: Total rééditer pour illustrer problème plus clairement:

Ne pense pas que cela fonctionnerait quand je l'ai fait:

Dim Label1 As Label 
    Dim testvar As String = "BottomRight" 
    Dim testalign As ContentAlignment 
    testalign = ContentAlignment.testvar 
    Label1.TextAlign = testalign 

« BottomRight » est l'un des choix innombrables que vous obtenez dans intellisense. Utilisation d'une chaîne car le code complet définit 'Label1.textalign' sur différentes configurations en fonction d'une variable de chaîne.

Clairement, ContentAlignment.testvar renvoie une erreur. Je dois préserver l'énumérable étant défini par une valeur de chaîne. Je n'arrive pas du tout à comprendre - les concepts avancent trop pour ma scène, mais y a-t-il un moyen d'y parvenir? Deux jours de recherche et de délier l'espoir ..

Answer 1

Enfin! Avec bouvillon de Sam, voici comment:

Dim Label1 As Label 
    Dim testvar As String = "BottomRight" 
    Dim testalign As New ContentAlignment 
    testalign = CType([Enum].Parse(GetType(ContentAlignment), testvar), ContentAlignment) 
    Label1.TextAlign = testalign 

Pas sûr que cela fonctionne pour toutes les classes - il ne pas color. Les valeurs énumérées sous ContentAlignment sont répertoriées en tant que constantes publiques - elles peuvent donc devoir être de ce type.

Answer 2

Si vous devez utiliser une variable de chaîne que vous avez deux options:

l'option d'un

Enum.Parse

option à deux

Select Case

Select Case testvar.Trim.ToLower 
    Case "bottomright" 
     testalign = ContentAlignment.BottomRight 

    Case .... 
End Select