CType( [Enum].Parse( GetType( FontStyle ), aStyle ), FontStyle )
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionselect case aStyle case "italic" bstyle = FontStyle.Italic case "bold" bstyle = FontStyle.Bold case "regular" bstyle = FontStyle.Regular '... end select myLabel.Font = New Font(aName, aSize, bstyle)
Dim aStyle As System.Drawing.FontStyle aStyle = FontStyle.Regular TextBox1.Font = New Font(aName, aSize, aStyle)
A) aStyle = CType(CInt(GetType(FontStyle), aStyle), FontStyle) 'Ne marche pas! B) aStyle = CType([Enum].Parse(GetType(FontStyle), aStyle), FontStyle)