Hello ACCESS und API-Experts,
I've tried to draw a {*filter*}band rectangle in an ACCESS-Form via WinAPI.
Despite I have now idea if it is possible or not, I've tried the
following code.

ich m?chte in einer Access-Form mit einem {*filter*}band-Rechteck arbeiten.
Ungeachtet der Tatsache da? ich nicht wei? od dies berhaupt m?glich ist,
habe ich folgenes Versucht.

<
Option Compare Database   'Verwenden der Datenbank-Sortierreihenfolge
beim
Vergleich von Zeichenfolgen.
Global CW As Integer
Global DC As Integer
Global Pen As Integer
Global SObj As Integer
Global SelOb As Integer
Global l As Integer

Declare Function Rectangle Lib "GDI" (ByVal hDC As Integer, ByVal X1 As
Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer)
As
Integer
Declare Function GetActiveWindow Lib "User" () As Integer
Declare Function GetDC Lib "User" (ByVal hWnd As Integer) As Integer
Declare Function ReleaseDC Lib "User" (ByVal hWnd As Integer, ByVal hDC
As
Integer) As Integer
Declare Function CreatePen Lib "GDI" (ByVal nPenStyle As Integer, ByVal
nWidth As Integer, ByVal crColor As Long) As Integer
Declare Function GetStockObject Lib "GDI" (ByVal nIndex As Integer) As
Integer
Declare Function SelectObject Lib "GDI" (ByVal hDC As Integer, ByVal
hObject
As Integer) As Integer
Declare Function LineTo Lib "GDI" (ByVal hDC As Integer, ByVal X As
Integer,
ByVal Y As Integer) As Integer

Sub Rec (X As Single, Y As Single, dX As Single, dY As Single)
CW = GetActiveWindow()
DC = GetDC(CW)
Pen = CreatePen(1, 1, RGB(0, 0, 0))
SelOb = SelectObject(DC, Pen)
Res% = Rectangle(DC, X, Y, dX, dY)
Res% = ReleaseDC(CW, DC)
End Sub

Unfortunetly it wasn't successful. So may be you can tell me, how to do
it?

leider war dieser Versuch nicht von Erfolg gekr?nt.
Kann mir jemand sagen, was ich ?ndern mu??

Gru?, best regards, Markus Schmitz

--
_____________________________________________________
Noch Fragen?
DIVERSA Wirtschaftsinformationsdienst GmbH
Tel: 0130-833433
...wir Informieren