2 Fragen zu Systemschriftart

Um die Systemschriftart in Windows 7 zu ändern, kannst du die folgenden Schritte befolgen: 1. **Rechtsklick auf den Desktop**: Klicke mit der rechten Maustaste auf eine freie Stelle auf deinem Desktop und wähle "Anpassen" aus dem Kontextmenü. 2. **Fensterfarbe und -darstellung**: Klicke unten im Fenster auf "Fensterfarbe" und dann auf "Erweiterte Darstellungseinstellungen". 3. **Element auswählen**: Im neuen Fenster kannst du verschiedene Elemente des Windows-Designs anpassen. Wähle im Dropdown-Menü "Element" das Element aus, dessen Schriftart du ändern möchtest (z.B. "Symbol", "Menü", "Nachrichtentext"). 4. **Schriftart ändern**: Nachdem du das Element ausgewählt hast, kannst du die Schriftart, den Schriftstil und die Schriftgröße ändern. Wähle die gewünschte Schriftart aus der Liste aus. 5. **Übernehmen und OK**: Klicke auf "Übernehmen" und dann auf "OK", um die Änderungen zu speichern. 6. **Abmelden und wieder anmelden**: Um sicherzustellen, dass die Änderungen vollständig übernommen werden, melde dich von deinem Benutzerkonto ab und wieder an. Bitte beachte, dass das Ändern der Systemschriftart tiefere Auswirkungen auf die Benutzeroberfläche haben kann und möglicherweise nicht alle Anwendungen die neue Schriftart korrekt anzeigen.

Um in VB.NET 2003 den systemweiten Font für Fenstertexte (wie sie z.B. in Explorer-Listen verwendet werden) zu ermitteln, kannst du auf die SystemFonts-Klasse zugreifen. Allerdings ist die SystemFonts-Klasse erst ab .NET Framework 2.0 verfügbar. In .NET 1.1 (wie in VB.NET 2003 üblich) musst du auf die Win32-API zurückgreifen. Der relevante Font ist der sogenannte „Shell Font“ oder „System Font“, der für Fenstertexte verwendet wird. In der Regel ist das der Wert von `NONCLIENTMETRICS.lfMessageFont`. Hier ein Beispiel, wie du diesen Font mit P/Invoke ausliest: ```vb Imports System.Runtime.InteropServices Imports System.Drawing Public Class SystemFontHelper <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)> Private Structure LOGFONT Public lfHeight As Integer Public lfWidth As Integer Public lfEscapement As Integer Public lfOrientation As Integer Public lfWeight As Integer Public lfItalic As Byte Public lfUnderline As Byte Public lfStrikeOut As Byte Public lfCharSet As Byte Public lfOutPrecision As Byte Public lfClipPrecision As Byte Public lfQuality As Byte Public lfPitchAndFamily As Byte <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=32)> Public lfFaceName As String End Structure <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)> Private Structure NONCLIENTMETRICS Public cbSize As Integer Public iBorderWidth As Integer Public iScrollWidth As Integer Public iScrollHeight As Integer Public iCaptionWidth As Integer Public iCaptionHeight As Integer <MarshalAs(UnmanagedType.Struct)> Public lfCaptionFont As LOGFONT Public iSmCaptionWidth As Integer Public iSmCaptionHeight As Integer <MarshalAs(UnmanagedType.Struct)> Public lfSmCaptionFont As LOGFONT Public iMenuWidth As Integer Public iMenuHeight As Integer <MarshalAs(UnmanagedType.Struct)> Public lfMenuFont As LOGFONT <MarshalAs(UnmanagedType.Struct)> Public lfStatusFont As LOGFONT <MarshalAs(UnmanagedType.Struct)> Public lfMessageFont As LOGFONT End Structure Private Const SPI_GETNONCLIENTMETRICS As Integer = 41 Private Const LF_FACESIZE As Integer = 32 <DllImport("user32.dll", CharSet:=CharSet.Auto)> Private Shared Function SystemParametersInfo( _ ByVal uAction As Integer, _ ByVal uParam As Integer, _ ByRef lpvParam As NONCLIENTMETRICS, _ ByVal fuWinIni As Integer) As Boolean End Function Public Shared Function GetWindowTextFont() As Font Dim ncm As New NONCLIENTMETRICS() ncm.cbSize = Marshal.SizeOf(ncm) If SystemParametersInfo(SPI_GETNONCLIENTMETRICS, ncm.cbSize, ncm, 0) Then Dim lf As LOGFONT = ncm.lfMessageFont Return New Font(lf.lfFaceName, Math.Abs(lf.lfHeight), FontStyle.Regular) Else Return SystemFonts.DefaultFont End If End Function End Class ``` Verwendung: ```vb Dim sysFont As Font = SystemFontHelper.GetWindowTextFont() MessageBox.Show("System-Font: " & sysFont.Name & ", Größe: " & sysFont.Size) ``` **Hinweis:** - In neueren .NET-Versionen kannst du einfach `SystemFonts.MessageBoxFont` oder ähnliche Eigenschaften verwenden. - In VB.NET 2003 ist der oben gezeigte Weg über die Win32-API notwendig. Weitere Infos: - [Microsoft Doku zu SystemParametersInfo](https://learn.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-systemparametersinfoa) - [SystemFonts-Klasse (ab .NET 2.0)](https://learn.microsoft.com/en-us/dotnet/api/system.drawing.systemfonts)