✔ "getdevicecaps" funktioniert nicht unter VB 2005 Express

[henning246]

Hallo!

Ich versuche, mittels "getdevicecaps" die aktuelle Bildschirmauflösung zu ermitteln (Codeschnipsel) :

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

 

[DrSoong]

Stell die Frage doch bitte im .NET-Unterforum, VB2005 ist .NET und im Vergleich zu VB6 hat sich da etliches verändert. Hier kriegst du nur Antworten bis VB6/VBS/VBA.


Der Doc!

 

[henning246]

Ups, sorry! Mein Fehler!

Hab die Frage nun neu im .NET-Forum gestellt.


Danke,
Henning