Eingestellte Anzeige-Schriftgröße prüfen Eine Funktion, die die eingestellte Schriftgröße (kleine oder große Schriftarten) ermittelt.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  11.362
https://www.tools4vb.com	System:  Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 1 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 5.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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