henning246
Grünschnabel
Hallo!
Ich versuche, mittels "getdevicecaps" die aktuelle Bildschirmauflösung zu ermitteln (s. Codeschnipsel) :
Das funktioniert unter VB 6.0 auch einwandfrei.
Nun habe ich versucht, das ganze in VB 2005 Express Edition zu übertragen, aber "getdevicecaps" scheint hier nicht zu funktionieren. Ich bekomme für alle Werte (x,y,Colors,Frequenz) immer nur den Wert "0".
Es gibt keinerlei Fehlermeldung oder Warnung vom Debugger.
Ich habe schon stundenlang "gegooglet" und auch dieses Forum durchsucht, aber niemand scheint dieses Problem zu haben.
Was habe ich übersehen? Warum funktioniert "getdevicecaps" nicht unter VB2005?
Mein Betriebssystem: Vista.
Vielen Dank,
Henning
Ich versuche, mittels "getdevicecaps" die aktuelle Bildschirmauflösung zu ermitteln (s. Codeschnipsel) :
Code:
Public Declare Function GetDeviceCaps Lib "gdi32" (ByVal hDC As Integer, ByVal nIndex As Integer) As Integer
Public Sub GetCurrentSettings(ByVal hDC As Integer, ByRef x As Short, ByRef y As Short, ByRef Colors As Short, ByRef Frequenz As Short)
x = GetDeviceCaps(hDC, HORZRES)
y = GetDeviceCaps(hDC, VERTRES)
Colors = GetDeviceCaps(hDC, BITSPIXEL)
Frequenz = GetDeviceCaps(hDC, VREFRESH)
End Sub
Das funktioniert unter VB 6.0 auch einwandfrei.
Nun habe ich versucht, das ganze in VB 2005 Express Edition zu übertragen, aber "getdevicecaps" scheint hier nicht zu funktionieren. Ich bekomme für alle Werte (x,y,Colors,Frequenz) immer nur den Wert "0".
Es gibt keinerlei Fehlermeldung oder Warnung vom Debugger.
Ich habe schon stundenlang "gegooglet" und auch dieses Forum durchsucht, aber niemand scheint dieses Problem zu haben.
Was habe ich übersehen? Warum funktioniert "getdevicecaps" nicht unter VB2005?
Mein Betriebssystem: Vista.
Vielen Dank,
Henning