Systemschriftart nutzen

10/08/2009 - 11:31 von Jens Müller | Report spam
Hallo,

Steuerelemente in VB nutzen ja noch immer MS Sans Serif. Eine Änderung in
Tahoma oder Gegoe UI ist genauso fix. Wie kann ich für alle Steuerelemente
die aktuell eingestellte Systemschriftart nutzen?

Danke!
 

Lesen sie die antworten

#1 Dieter Strassner
10/08/2009 - 11:37 | Warnen spam
Hallo Jens,

Steuerelemente in VB nutzen ja noch immer MS Sans Serif. Eine
Änderung in Tahoma oder Gegoe UI ist genauso fix. Wie kann ich für
alle Steuerelemente die aktuell eingestellte Systemschriftart nutzen?



Aufruf mit dem Form- oder UserControl-Objekt:

Public Sub SchriftartInit(ByVal Parent As Object)
Dim ctl As Control
Dim strFontName As String

On Error Resume Next ' Controls ohne Font-Property werden übersprungen
strFontName = Schriftart
Parent.Font.Name = strFontName
For Each ctl In Parent.Controls
ctl.Font.Name = strFontName
Next ctl
Err.Clear

End Sub


Viele Grüße

Dieter


Rückfragen bitte nur in die Newsgroup!

EDV-Kommunikation Strassner e.K.
68623 Lampertheim
Internet: www.strassner.biz

Ähnliche fragen