Schriftarten in der kompletten Anwendung ändern

26/06/2009 - 09:21 von Tom Henning | Report spam
Hallo zusammen,

gibt es eine Möglichkeit beispielsweise die Standardschriftart für
eine komplette Applikation zu setzten oder eben für alle Elemente in
einem Rutsch zu àndern?

Falls ich nicht den voreingestellten Font nutzen will, muss ich ja
quasi für jedes Element/Control manuell den Font setzen.

Geht das auch eleganter?


Viele Grüße und Dank,
Tom
 

Lesen sie die antworten

#1 Karsten Sosna
11/07/2009 - 07:53 | Warnen spam
gibt es eine Möglichkeit beispielsweise die Standardschriftart für
eine komplette Applikation zu setzten oder eben für alle Elemente in
einem Rutsch zu àndern?

Falls ich nicht den voreingestellten Font nutzen will, muss ich ja
quasi für jedes Element/Control manuell den Font setzen.

Geht das auch eleganter?


Hallo Tom,
AFAIK muss der Font für jedes Contol gesetzt werden, da Control intern ein
"anderes Font-Objekt" benutzt, daher nutzt die Referenz nichts.

Ergo musst Du Controls-Auflistungen nur rekursiv durchlaufen und den Font
setzen, was aber wirklich kein Problem darstellen sollte:
\\\
Public Sub SetFont(ctl As Control, fnt As Font)
ctl.Font = fnt
For Each c As Control In ctl.Controls
SetFont(c, fnt)
Next
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Using globalFont = New Font("Verdana", 14, FontStyle.Bold)
SetFont(globalFont, Me)
End Using
End Sub
///
Gruß Scotty

Ähnliche fragen