Hallo,
Es dreht sich um Vb 2010.
Habe eine Funktion, die FontStyle einer RichtextBox ändert, um Code zu sparen:
#########################################
Private Function Change_Style_RTB(ByVal Fett As Boolean, ByVal Kursiv As Boolean, ByVal Unterstrichen As Boolean, ByVal Durchgestrichen As Boolean)
...
End Function
#########################################
Wenn man aus einem String ein e Expression machen könnte, könnte man das ganze ja so lösen:
#########################################
...
Dim expr As String = "richtextbox.selectedFont = New Font(richtextbox.SelectedFont.Name, richtextbox.SelectedFont.Size, "
If Fett Then
expr += "FontStyle.Bold"
...
...
...
epr += ")"
[Jetzt irgendwie umwandeln und ausführen]
##########################################
Weiß momentan nicht genau ob man so strings zusammenfügt, aber das ist nebensache.
Danke im Voraus
hendrik.fritsch Gast |