Rubrik: System/Windows · Desktop/Bildschirm/Display | VB-Versionen: VB2005, VB2008 | 22.10.09 |
Eingestellte Anzeige-Schriftgröße prüfen Eine Funktion, die die eingestellte Schriftgröße (kleine oder große Schriftarten) ermittelt. | ||
Autor: Dieter Otter | Bewertung: | Views: 10.876 |
www.tools4vb.de | System: Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Heute stellen wir Ihnen eine Funktion vor, mit der sich ermitteln lässt, ob in den Systemeinstellungen große oder kleine Schriften eingestellt ist.
Eine Prüfung der Schriftgröße ist z.B. dann sinnvoll, wenn Formulare (Datenmasken) innerhalb Ihrer Anwendung nicht mehr korrekt dargestellt werden können, sollte "große Schriftarten" eingestellt sein.
In diesem Fall könnten Sie den Anwender mit einer entsprechenden Meldung darauf hinweisen, dass die Darstellung der Formulare ggf. nicht korrekt erfolgt.
Fügen Sie hierzu nachfolgenden Code in Ihr Projekt ein:
' benötigte API-Deklarationen Private Declare Auto Function CreateDC Lib "gdi32.dll" ( _ ByVal lpszDriver As String, _ ByVal lpszDevice As String, _ ByVal lpszOutput As Int32, _ ByVal lpInitData As IntPtr) As IntPtr Private Declare Function GetDeviceCaps Lib "gdi32" ( _ ByVal hdc As Int32, _ ByVal nIndex As Int32) As Int32 Private Declare Function DeleteDC Lib "gdi32.dll" ( _ ByVal hdc As IntPtr) As Int32
''' <summary> ''' Ermittelt die eingestellte DPI-Auflösung ''' </summary> ''' <remarks>Kleine Schrift (96 DPI) = Standard ''' Große Schrift (120 DPI)</remarks> Public Function ScreenDPI() As Integer Const LOGPIXELSX = 88 Dim logPix As Integer = 96 Dim hDc As IntPtr = CreateDC("DISPLAY", "", 0, IntPtr.Zero) If hDc <> IntPtr.Zero Then logPix = GetDeviceCaps(hDc, LOGPIXELSX) DeleteDC(hDc) End If Return (logPix) End Function
Die Funktion sollte wie folgt beim Programmstart aufgerufen werden:
If ScreenDPI() <> 96 Then If MsgBox("In den Windows-Einstellungen für die Bildschirmanzeige " & _ "ist die Schriftgröße nicht auf 'kleine Schriftarten' eingestellt. " & _ "Dies führt in einigen Bildschirmmasken zu Darstellungsproblemen.", _ MsgBoxStyle.Exclamation Or MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then Application.Exit() End If End If