[RESOLVED] Color Palette Help

[mike 92]

I have a button in my form that opens a color palette using the CommonDialog component. I was wondering if there is a way to set the hex decimal of the color that is chosen in the palette to a label.

For example, if someone chooses the color red in the color palette, then

Label1's caption would be #FFOOOO

[Logophobic]

Here's one way you could do it:

Private Sub Command1_Click()
  Dim lngColor As Long
  Dim lngRed As Long
  Dim lngGreen As Long
  Dim lngBlue As Long
  Dim strHex As String
  
  CommonDialog1.ShowColor
  lngColor = CommonDialog1.Color
  lngRed = (lngColor And vbRed)
  lngGreen = (lngColor And vbGreen) \ &H100&
  lngBlue = (lngColor And vbBlue) \ &H10000
  
  strHex = "#"
  If lngRed < 16 Then strHex = strHex & "0"
  strHex = strHex & Hex(lngRed)
  If lngGreen < 16 Then strHex = strHex & "0"
  strHex = strHex & Hex(lngGreen)
  If lngBlue < 16 Then strHex = strHex & "0"
  strHex = strHex & Hex(lngBlue)
  Label1.Caption = strHex
End Sub

Any questions?

[mike 92]

Thanks that worked!

Edit: I do have 1 question, is there a way to have the caption have no # and just the number?

[iPrank]

http://www.devx.com/vb2themax/Tip/19166

Edit: Don't add the "#" string at the beginning of strHex (post#2) or in ColorToHTML()'s return value (linked code).

[mike 92]

http://www.devx.com/vb2themax/Tip/19166

Edit: Don't add the "#" string at the beginning of strHex (post#2) or in ColorToHTML()'s return value (linked code).

Okay thanks