SetSysColors (COLOR_APPWORKSPACE) don't work on Access2003 ?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

willy - 07 May 2008 09:38 GMT

The following code running in A2K seems work different when running on
A2k3.
On A2k this code changes the background of main Access Window.
On A2K3 it changes the background of Access Forms.

Please, does someone know the way to change the Access main window
background color?

Thanks in Advance

Guillem
.............................................the
code..........................
Private Const COLOR_APPWORKSPACE = 12 ' Background of MDI desktop
Global Const gWhite = 16777215

Private Declare Function SetSysColors _
Lib "User32" _
(ByVal nChanges As Long, lpSysColor As Long, _
lpColorValues As Long) As Long

Call SetSysColors(1, COLOR_APPWORKSPACE, gWhite )
.....................................................................................

Reply to this Message

Stephen Lebans - 08 May 2008 12:38 GMT

See:
http://www.lebans.com/changemdibackground.htm
Updated May 03,2003 Now allows you to select a Bitmap Image to place in the
background of the MDI window. No Subclassing required

ChangeMDIBackGround.zip is a database containing a function to allow you to
specify a color or Bitmap Image for the background of the main Access MDI
window. NO SUBCLASSING REQUIRED!

Release Notes:

Version 3

Added support to allow you to specify a Bitmap Image to be placed into the
background of the MDI window.

Version 2

Added support to change the Background and Text colors for the Access Status
Bar.

Signature

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.

> The following code running in A2K seems work different when running on
> A2k3.
[quoted text clipped - 19 lines]
> Call SetSysColors(1, COLOR_APPWORKSPACE, gWhite )
> .....................................................................................

Reply to this Message

willy - 08 May 2008 15:43 GMT

Thanks for the Help!

Guillem Serra

On May 8, 1:38 pm, "Stephen Lebans" <ForEmailGotoMy.WebSite.-
WWWdotlebansdot...@linvalid.com> wrote:

> See:http://www.lebans.com/changemdibackground.htm
> Updated May 03,2003 Now allows you to select a Bitmap Image to place in the
[quoted text clipped - 45 lines]
> > Call SetSysColors(1, COLOR_APPWORKSPACE, gWhite )
> > .....................................................................................

Reply to this Message