Hallo,
ich habe ein beispiel aus dem Buch von herrn Kofler, das aber leider nicht bei mir klappt. Ich bekomme die Meldung:
dll einsprungpunkt in gdi32 nicht gefunden.
mein bs is win xp prof., vb6
weiss jemand weiter?
cu
luda
Private Declare Function getdevicecaps Lib "gdi32" (ByVal hdc As _
Long, ByVal nIndex As Long) As Long
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
Dim b%, h%
b = getdevicecaps(Form1.hdc, 8)
h = getdevicecaps(Form1.hdc, 10)
Me.Label1 = "Bilauflösung " & b & " *" & h
End Sub
ich habe ein beispiel aus dem Buch von herrn Kofler, das aber leider nicht bei mir klappt. Ich bekomme die Meldung:
dll einsprungpunkt in gdi32 nicht gefunden.
mein bs is win xp prof., vb6
weiss jemand weiter?
cu
luda
Private Declare Function getdevicecaps Lib "gdi32" (ByVal hdc As _
Long, ByVal nIndex As Long) As Long
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
Dim b%, h%
b = getdevicecaps(Form1.hdc, 8)
h = getdevicecaps(Form1.hdc, 10)
Me.Label1 = "Bilauflösung " & b & " *" & h
End Sub