<<< 返回 access911.net 编程静态资料库索引页

用API函数取色后,如何将其分成RGB颜色?

 

作者:cg1  摘自:access911.net  录入:cg1  时间:2003-12-21  浏览人次:959


专题地址:http://access911.net/fixhtm/71FAB61E13DCE9F3.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:用API函数取色后,是一个10进制的数值,如何将其分成RGB颜色?

 


问题:

用API函数取色后,是一个10进制的数值,如何将其分成RGB颜色?

 

方法一:

用 HEX 函数将数值转换为 16 进制,然后,每两个切分一下就可以得到 RGB 数值了
Function C10ToRGB_1(lngColor As Long) As String
    Dim strR As String
    Dim strG As String
    Dim strB As String
    strR = lngColor Mod 256
    strG = lngColor \ 256 Mod 256
    strB = lngColor \ 256 \ 256
    
    C10ToRGB_1 = strR & "_" & strG & "_" & strB
End Function

Sub test1()
    Debug.Print C10ToRGB_1(33023)
    Debug.Print RGB(255, 128, 0)
End Sub


 

方法二:


【转载】
如果要将VB的颜色转换为COLORREF,需要使用OleTrans.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/71FAB61E13DCE9F3.htm

 


上一篇:新手来看:如何进行二进制到六十二进制向十进制的转换?

下一篇:设置只有管理员才能改变AllowBypassKey属性

2017年2月22日生成静态资料