1 Frage zu Fenstertext

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)