| |
Visual-Basic EinsteigerRe: WIN 7 - kleine, mittlere, hohe Auflösung | | | Autor: visualfx | Datum: 26.09.15 00:32 |
| Hallo,
ich programmiere zwar nicht mit VB6 sondern mit Microsoft Visual FoxPro, sinngemäß ist das aber absolut das gleiche und funktioniert für alle (!!!) Windows-Versionen:
#DEFINE LOGPIXELSX 88
#DEFINE LOGPIXELSY 90
FUNCTION screenResGet( screenResX, screenResY )
LOCAL hDC
LOCAL result
DECLARE INTEGER GetDC IN WIN32API;
INTEGER hWnd
DECLARE INTEGER ReleaseDC IN WIN32API;
INTEGER hWnd,;
INTEGER hDC
DECLARE INTEGER GetDeviceCaps IN WIN32API;
INTEGER hDC,;
INTEGER nIndex
hDC = GetDC( 0 )
IF hDC = 0
lastError()
RETURN .F.
ENDIF
screenResX = GetDeviceCaps( hDC, LOGPIXELSX )
screenResY = GetDeviceCaps( hDC, LOGPIXELSY )
result = ReleaseDC( 0, hDC )
IF result = 0
lastError()
RETURN .F.
ENDIF
RETURN .T.
ENDFUNC
Hierbei gelten für screenResX bzw. screenResY folgende Zuordnungen:
- 96 dpi => 100 %
- 120 dpi => 125 %
- 144 dpi => 150 %
- 192 dpi => 200 %
Hinweis: der User kann aber auch beliebige andere dpi- bzw. %-Werte eingestellt haben!
Gruß, Stefan | |
WIN 7 - kleine, mittlere, hohe Auflösung | 2.553 | LesPaul | 25.09.15 08:59 | Re: WIN 7 - kleine, mittlere, hohe Auflösung | 1.836 | visualfx | 26.09.15 00:32 | Re: WIN 7 - kleine, mittlere, hohe Auflösung | 1.841 | LesPaul | 26.09.15 10:27 | Re: WIN 7 - kleine, mittlere, hohe Auflösung | 1.819 | Dieter | 30.09.15 06:53 | Re: WIN 7 - kleine, mittlere, hohe Auflösung | 1.788 | LesPaul | 30.09.15 08:21 |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
Neu! sevDTA 3.0 Pro
SEPA mit Kontonummernprüfung
Erstellen von SEPA-Dateien mit integriertem BIC-Verzeichnis und Konto- nummern-Prüfverfahren, so dass ungültige Bankdaten bereits im Vorfeld ermittelt werden können. Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|