commondialog中的color取出来后，怎么不一样？

[liuguozhong]

我用commondialog.color取出来的值怎么是8位？如：12453343
我们平常用色值的不是6位的16进制的数么？如：#ff6600
我要怎样才能转换成下面的格式呢？

[viena]

颜色一般是Long型数，转换成“6位的16进制的数么？如：#ff6600”做什么用呢？

[liuguozhong]

我要自动转成6位的16进制如：#ff6600的格式。
用于显示指定颜色并转换成网页中能显示的颜色。

[viena]

给你写了个函数
Function getStrColor(ByVal lngColor As Long) As String
Dim strRed As String, strGreen As String, strBlue As String
strRed = Hex(lngColor And 255)
If Len(strRed) = 1 Then strRed = "0" & strRed
strGreen = Hex(lngColor And 65280)
If Len(strGreen) = 3 Then
strGreen = "0" & Left(strGreen, 1)
Else
strGreen = Left(strGreen, 2)
End If
strBlue = Hex(lngColor And 16711680)
If Len(strBlue) = 5 Then
strBlue = "0" & Left(strBlue, 1)
Else
strBlue = Left(strBlue, 2)
End If
getStrColor = "#" & strRed & strGreen & strBlue
End Function

试一下：
Private Sub Form_Load()
Dim lngColor As Long
lngColor = 12453343
Debug.Print getStrColor(lngColor)
End Sub

[liuguozhong]

thanks~~