Using Winapi

[Michel]

Hi,

I tried to use Winapi floodfill function with an Access Form. Here is the
code in a click-button sub :

Dim hDC As Long
Dim hBrush As Long
Dim hobj As Long
Dim ret As Long

hDC = GetDC(Me.hwnd)
hBrush = CreateSolidBrush(65280)
hobj = SelectObject(hDC, hBrush)
ret = FloodFill(hDC, 50, 50, 0)
ret = GetLastError()
ret = DeleteObject(hBrush)
ret = ReleaseDC(hwnd, hDC)

When I click the button, the sub executes but nothing happens. I got the
same result using Winapi fillrect function.

What's wrong?

[storrboy]

On Feb 19, 6:19 pm, "Michel" <[e-mail]:

Hi,

I tried to use Winapi floodfill function with an Access Form. Here is the
code in a click-button sub :

Dim hDC As Long
Dim hBrush As Long
Dim hobj As Long
Dim ret As Long

hDC = GetDC(Me.hwnd)
hBrush = CreateSolidBrush(65280)
hobj = SelectObject(hDC, hBrush)
ret = FloodFill(hDC, 50, 50, 0)
ret = GetLastError()
ret = DeleteObject(hBrush)
ret = ReleaseDC(hwnd, hDC)

When I click the button, the sub executes but nothing happens. I got the
same result using Winapi fillrect function.

What's wrong?

I see you included GetLastError().
Did you check the result and see what (if any) the last error was?
It may give you a hint.

[Lise France]

No hint at all: it's zero. And return code from floodfill is zero too, which
means "failure".

"storrboy" <st******@sympatico.caa écrit dans le message de news:
11**********************@v33g2000cwv.googlegroups. com...

On Feb 19, 6:19 pm, "Michel" <[e-mail]:

Hi,

I tried to use Winapi floodfill function with an Access Form. Here is

the

code in a click-button sub :

Dim hDC As Long
Dim hBrush As Long
Dim hobj As Long
Dim ret As Long

hDC = GetDC(Me.hwnd)
hBrush = CreateSolidBrush(65280)
hobj = SelectObject(hDC, hBrush)
ret = FloodFill(hDC, 50, 50, 0)
ret = GetLastError()
ret = DeleteObject(hBrush)
ret = ReleaseDC(hwnd, hDC)

When I click the button, the sub executes but nothing happens. I got the
same result using Winapi fillrect function.

What's wrong?

I see you included GetLastError().
Did you check the result and see what (if any) the last error was?
It may give you a hint.

[Lise France]

No hint at all: it's zero. And return code from floodfill is zero too, which
means "failure".

"storrboy" <st******@sympatico.caa écrit dans le message de news:
11**********************@v33g2000cwv.googlegroups. com...

On Feb 19, 6:19 pm, "Michel" <[e-mail]:

Hi,

I tried to use Winapi floodfill function with an Access Form. Here is

the

code in a click-button sub :

Dim hDC As Long
Dim hBrush As Long
Dim hobj As Long
Dim ret As Long

hDC = GetDC(Me.hwnd)
hBrush = CreateSolidBrush(65280)
hobj = SelectObject(hDC, hBrush)
ret = FloodFill(hDC, 50, 50, 0)
ret = GetLastError()
ret = DeleteObject(hBrush)
ret = ReleaseDC(hwnd, hDC)

When I click the button, the sub executes but nothing happens. I got the
same result using Winapi fillrect function.

What's wrong?

I see you included GetLastError().
Did you check the result and see what (if any) the last error was?
It may give you a hint.

[storrboy]

On Feb 21, 12:00 am, "Lise France" <[e-mail]:

No hint at all: it's zero. And return code from floodfill is zero too, which
means "failure".

"storrboy" <[e-mail] écrit dans le message de news:
[e-mail]. com...

On Feb 19, 6:19 pm, "Michel" <[e-mail]:

Hi,

I tried to use Winapi floodfill function with an Access Form. Here is

the

code in a click-button sub :

Dim hDC As Long
Dim hBrush As Long
Dim hobj As Long
Dim ret As Long

hDC = GetDC(Me.hwnd)
hBrush = CreateSolidBrush(65280)
hobj = SelectObject(hDC, hBrush)
ret = FloodFill(hDC, 50, 50, 0)
ret = GetLastError()
ret = DeleteObject(hBrush)
ret = ReleaseDC(hwnd, hDC)

When I click the button, the sub executes but nothing happens. I got the
same result using Winapi fillrect function.

What's wrong?

I see you included GetLastError().
Did you check the result and see what (if any) the last error was?
It may give you a hint.

Found this article on the Access Web and it probably applies to
filling regions.
http://www.mvps.org/access/api/api0053.htm

[Stephen Lebans]

It's not possible to properly draw and repaint on an Access form without
subclassing. Instead, create a bitmap at runtime containing the desired
rendering and set this as the Picture prop of the form. See:
http://www.lebans.com/gradientfill.htm

If you want to color the MDI window background see:
http://www.lebans.com/changemdibackground.htm

--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
"Michel" <mi***********@yahoo.cawrote in message
news:vk*******************@wagner.videotron.net...

Hi,

I tried to use Winapi floodfill function with an Access Form. Here is the
code in a click-button sub :

Dim hDC As Long
Dim hBrush As Long
Dim hobj As Long
Dim ret As Long

hDC = GetDC(Me.hwnd)
hBrush = CreateSolidBrush(65280)
hobj = SelectObject(hDC, hBrush)
ret = FloodFill(hDC, 50, 50, 0)
ret = GetLastError()
ret = DeleteObject(hBrush)
ret = ReleaseDC(hwnd, hDC)

When I click the button, the sub executes but nothing happens. I got the
same result using Winapi fillrect function.

What's wrong?