|
Autor
|
Thema: Bildschirmauflösung (278 mal gelesen)
|
michi79
Mitglied
   Beiträge: 37
Registriert: 19.01.2009
|
erstellt am: 26. Mrz. 2009 09:20  <-- editieren / zitieren -->   Unities abgeben:          
|
| | Elektrotechniker (m/w/d) | | Menschen und Technologien zu verbinden, den Perfect Match für unsere Kunden zu gestalten, immer die richtigen Expert:innen für die jeweilige Herausforderung zu finden - das ist unser Anspruch bei FERCHAU und dafür suchen wir dich: als ambitionierte:n Mitarbeitende:n für einen unserer Kunden. Wir realisieren spannende Projekte für namhafte Kunden in allen Technologiebereichen und für alle Branchen und übernehmen Verantwortung für komplexe Entwicklungsprojekte.... | | Anzeige ansehen | Elektrotechnik, Elektronik |
|
denyo_1
Moderator
Manager
    
Beiträge: 2506
Registriert: 10.08.2005 HP Compaq 8710w, Intel Core Duo T7700, 2,40 Ghz, 3GB RAM, Windows XP Professionel @32bit, Quadro FX 1600M, CATIA V5 R19 SP3
|
erstellt am: 26. Mrz. 2009 10:03 <-- editieren / zitieren --> Unities abgeben: Nur für michi79 
Hallo Michi, das solltest du mit der API "gdi32" und "user32" hinbekommen. Schau dir mal den Code an: Code:
Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Const HORIZONT = 8
Const VERTIKAL = 10
Function ScreenResolution()
Dim lRval As Long
Dim lDc As Long
Dim lHSize As Long
Dim lVSize As Long
lDc = GetDC(0&)
lHSize = GetDeviceCaps(lDc, HORIZONT)
lVSize = GetDeviceCaps(lDc, VERTIKAL)
lRval = ReleaseDC(0, lDc)
ScreenResolution = lHSize & "x" & lVSize
End Function
Sub GetScreenSize()
MsgBox ScreenResolution()
End Sub
------------------
MFG Daniel Die KATJA ist halt doch nur ne zickige Französin  Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
 |
Foren auf CAD.de (alle Foren)
| 
