ColorPicker (1 Viewer)

[Lampje]

Saw this: https://www.access-programmers.co.uk/forums/threads/colour-converter-selector.302041/
what a nice app that is.
Have taken the liberty to change it slightly.
It seems to me that choosing a certain color is now visually a little easier.
Have fun with it,



greetings Lampje.

 

[arnelgp]

sorry to kill the thrill, there is already a built-in color picker in ms access?

#If VBA7 Then

    Declare PtrSafe Sub ChooseColor Lib "msaccess.exe" Alias "#53" _
      (ByVal hWnd As LongPtr, rgb As Long)
#Else

    Declare Sub ChooseColor Lib "msaccess.exe" Alias "#53" _
      (ByVal hwnd As Long, rgb As Long)
#End If

Public Function colorPicker() As Long
    Static lngColor As Long
    ChooseColor Application.hWndAccessApp, lngColor
    colorPicker = lngColor
End Function