ShowColorDialog – Show the standard color dialog

Private Type ChooseColorStruct    lStructSize As Long    hwndOwner As Long    hInstance As Long    rgbResult As Long    lpCustColors As Long    flags As Long    lCustData As Long    lpfnHook As Long    lpTemplateName As StringEnd TypePrivate Declare Function ChooseColor Lib "comdlg32.dll" Alias "ChooseColorA" _    (lpChoosecolor As ChooseColorStruct) As LongPrivate Declare Function OleTranslateColor Lib "oleaut32.dll" (ByVal lOleColor _    As Long, ByVal lHPalette As Long, lColorRef As Long) As Long    Private Const CC_RGBINIT = &H1&Private Const CC_FULLOPEN = &H2&Private Const CC_PREVENTFULLOPEN = &H4&Private Const CC_SHOWHELP = &H8&Private Const CC_ENABLEHOOK = &H10&Private Const CC_ENABLETEMPLATE = &H20&Private Const CC_ENABLETEMPLATEHANDLE = &H40&Private Const CC_SOLIDCOLOR = &H80&Private Const CC_ANYCOLOR = &H100&Private Const CLR_INVALID = &HFFFF' Show the common dialog for choosing a color.' Return the chosen color, or -1 if the dialog is canceled'' hParent is the handle of the parent form' bFullOpen specifies whether the dialog will be open with the Full style ' (allows to choose many more colors)' InitColor is the color initially selected when the dialog is open' Example:'    Dim oleNewColor As OLE_COLOR'    oleNewColor = ShowColorsDialog(Me.hwnd, True, vbRed)'    If oleNewColor <> -1 Then Me.BackColor = oleNewColorFunction ShowColorDialog(Optional ByVal hParent As Long, _    Optional ByVal bFullOpen As Boolean, Optional ByVal InitColor As OLE_COLOR) _    As Long    Dim CC As ChooseColorStruct    Dim aColorRef(15) As Long    Dim lInitColor As Long      ' translate the initial OLE color to a long value    If InitColor <> 0 Then        If OleTranslateColor(InitColor, 0, lInitColor) Then            lInitColor = CLR_INVALID        End If    End If        'fill the ChooseColorStruct struct    With CC        .lStructSize = Len(CC)        .hwndOwner = hParent        .lpCustColors = VarPtr(aColorRef(0))        .rgbResult = lInitColor        .flags = CC_SOLIDCOLOR Or CC_ANYCOLOR Or CC_RGBINIT Or IIf(bFullOpen, _            CC_FULLOPEN, 0)    End With        ' Show the dialog    If ChooseColor(CC) Then        'if not canceled, return the color        ShowColorDialog = CC.rgbResult    Else        'else return -1        ShowColorDialog = -1    End IfEnd Function

Share the Post:
Share on facebook
Share on twitter
Share on linkedin


The Latest

your company's audio

4 Areas of Your Company Where Your Audio Really Matters

Your company probably relies on audio more than you realize. Whether you’re creating a spoken text message to a colleague or giving a speech, you want your audio to shine. Otherwise, you could cause avoidable friction points and potentially hurt your brand reputation. For example, let’s say you create a

chrome os developer mode

How to Turn on Chrome OS Developer Mode

Google’s Chrome OS is a popular operating system that is widely used on Chromebooks and other devices. While it is designed to be simple and user-friendly, there are times when users may want to access additional features and functionality. One way to do this is by turning on Chrome OS

homes in the real estate industry

Exploring the Latest Tech Trends Impacting the Real Estate Industry

The real estate industry is changing thanks to the newest technological advancements. These new developments — from blockchain and AI to virtual reality and 3D printing — are poised to change how we buy and sell homes. Real estate brokers, buyers, sellers, wholesale real estate professionals, fix and flippers, and beyond may