VB的我实现过了: 返回16进制的RGB颜色(网页HTML中用到的) Private Function rgb2html(color As Long) As String Dim sHcolor As String Dim sLen As Byte sHcolor = Hex(color) sLen = Len(sHcolor) Select Case sLen Case 1 sHcolor = "00000" & sHcolor Case 2 sHcolor = "0000" & sHcolor Case 3 sHcolor = "000" & sHcolor Case 4 sHcolor = "00" & sHcolor Case 5 sHcolor = "0" & sHcolor End Select Crgb2htm = Mid(sHcolor, 5) & Mid(sHcolor, 3, 2) & Left(sHcolor, 2) End Function
to iamfish(呆鱼) :谢谢你啦,你说的方法是正确的,等这题完全解决了再给分你。 可惜只有VB To Html的,而没有VB To Delphi,.......等等,望其他高手帮忙解决,谢谢啦!!!!!
返回16进制的RGB颜色(网页HTML中用到的)
Private Function rgb2html(color As Long) As String
Dim sHcolor As String
Dim sLen As Byte
sHcolor = Hex(color)
sLen = Len(sHcolor)
Select Case sLen
Case 1
sHcolor = "00000" & sHcolor
Case 2
sHcolor = "0000" & sHcolor
Case 3
sHcolor = "000" & sHcolor
Case 4
sHcolor = "00" & sHcolor
Case 5
sHcolor = "0" & sHcolor
End Select
Crgb2htm = Mid(sHcolor, 5) & Mid(sHcolor, 3, 2) & Left(sHcolor, 2)
End Function
可惜只有VB To Html的,而没有VB To Delphi,.......等等,望其他高手帮忙解决,谢谢啦!!!!!
Delphi:$F8FCFF
网页:#FFFCF8