![]() ![]() ![]() 'Private Const CC_ENABLETEMPLATEHANDLE = &H40 ![]() If lRetVal = 0 Then 'Cancelled by the userĭialogColor = RGB(255, 255, 255) ' White ElseĮnd Type Private Const CC_ANYCOLOR = &H100 rgbResult = lDefaultColor 'Set the initial color of the dialog flags = CC_ANYCOLOR Or CC_FULLOPEN Or CC_PREVENTFULLOPEN Or CC_RGBINITĪnd IsMissing(lDefaultColor) = False Then. 'Private Const CC_SOLIDCOLOR = &H80 Private Declare Function CHOOSECOLOR Lib "comdlg32.dll" Alias "ChooseColorA" (pChoosecolor As CHOOSECOLOR) As Long Public Function DialogColor( Optional lDefaultColor As Variant) As Long Dim CC As CHOOSECOLORĭim lRetVal As Long Static CustomColors(16) As Long 'Some predefined color, there are 16 slots available for predefined colors 'You don't have to defined any, if you don't want to!ĬustomColors(0) = RGB(255, 255, 255) 'WhiteĬustomColors(4) = RGB(0, 0, 255) 'Blue With CC 'Private Const CC_ENABLEHOOK = &H10 'Private Const CC_ENABLETEMPLATE = &H20 'Private Const CC_ENABLETEMPLATEHANDLE = &H40 Private Const CC_FULLOPEN = &H2 LpTemplateName As String End Type Private Const CC_ANYCOLOR = &H100
0 Comments
Leave a Reply. |