[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