[AccessD] Colour picker

William Hindman wdhindman at dejpolsystems.com
Wed Feb 10 01:34:02 CST 2010


http://www.peterssoftware.com/prx.htm
...free sample mdb with a color picker that works in my A2K3, both full and 
runtime

William

--------------------------------------------------
From: "Jim Lawrence" <accessd at shaw.ca>
Sent: Wednesday, February 10, 2010 1:37 AM
To: "'Access Developers discussion and problem solving'" 
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Colour picker

> Hi Rocky:
>
> Thanks for the information but my client's version of Access2003 does not
> like the way the adh_accChooseColor function is used and bales...
>
> In addition, I have seen found a couple of other partial examples and have
> yet to get any to work. It appears that the last time anyone coded for the
> ColourPicker was back in Access97 days and they do not work now...
>
> ...of course it is possible I missed some crucial step.
>
> Jim
>
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
> Sent: Tuesday, February 09, 2010 1:03 PM
> To: 'Access Developers discussion and problem solving'
> Subject: Re: [AccessD] Colour picker
>
> Actually just took a look at the app (wrote it 1999!) and it's simple.  If
> this is what you're looking for.
>
> Rocky
>
>
> Declare Function adh_accChooseCOlor Lib "msaccess.exe" _
> Alias "#53" (ByVal hWnd As Long, rgb As Long) As Long
>
> Function adhChooseColor(lngColor As Long) As Long
>
>    lngColor = adh_accChooseCOlor(Application.hWndAccessApp, lngColor)
>    adhChooseColor = lngColor
>
> End Function
>
> Private Sub cmdSetBackgroundColor_Click()
>
>    lngOldColor = Detail.BackColor
>    lngNewColor = adhChooseColor(lngOldColor)
>    MsgBox lngNewColor
>    Detail.BackColor = lngNewColor
>
> End Sub
>
> Private Sub cmdSetButtonColor_Click()
>
>    lngOldColor = cmdSetButtonColor.ForeColor
>    lngNewColor = adhChooseColor(lngOldColor)
>    MsgBox lngNewColor
>    cmdSetButtonColor.ForeColor = lngNewColor
>
> End Sub
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Lawrence
> Sent: Tuesday, February 09, 2010 12:30 PM
> To: 'Access Developers discussion and problem solving'
> Subject: [AccessD] Colour picker
>
> Hi All:
>
> What is the best way to connect to Access's colour picker control within 
> an
> application and being able to retrieving the colour number selected? I use
> to know but that was a few years ago... I think it is as simple as just
> referencing the dll to start with but I am not sure...
>
> Any thoughts and help would be greatly appreciated.
>
> TIA
>
> Jim
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




More information about the AccessD mailing list