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

原创 2004年01月24日 12:05:00

用API函数取色后,如何将其分成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,需要使用OleTranslateColor函数。例子: 
    Private Declare Function OleTranslateColor Lib "olepro32.dll" _ 
     (ByVal OLE_COLOR As Long, _ 
     ByVal HPALETTE As Long, _ 
     pccolorref As Long) As Long 
     
    Private Sub GetRBGFromOLEColour(ByVal dwOleColour As Long, r As Long, g As Long, b As Long) 
     
     'pass a hex colour, return the rgb components 
     Dim clrref As Long 
     
     'translate OLE color to valid color if passed 
     OleTranslateColor dwOleColour, 0, clrref 
     
     b = (clrref / 65536) And &HFF 
     g = (clrref / 256) And &HFF 
     r = clrref And &HFF 
     
     Text1(0).Text = dwOleColour 
     Text1(1).Text = clrref 
     
    End Sub 


    更完整的例子参考:http://www.mvps.org/vbnet/index.html?code/system/oletranslatecolor.htm

 

方法三:

 HEX 函数将数值转换为 16 进制,然后,每两个切分一下就可以得到 RGB 数值了

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


Function C10ToRGB(lngA As Long) As String
    Dim strR As String
    Dim strG As String
    Dim strB As String
    Dim strHEX As String
    
    strHEX = Right("00000" & Hex(lngA), 6)
    
    'Debug.Print "B" & Mid(strHEX, 1, 2)
    'Debug.Print "G" & Mid(strHEX, 3, 2)
    'Debug.Print "R" & Mid(strHEX, 5, 2)
    
    strB = C16To10(Mid(strHEX, 1, 2))
    strG = C16To10(Mid(strHEX, 3, 2))
    strR = C16To10(Mid(strHEX, 5, 2))
    
    C10ToRGB = strR & "," & strG & "," & strB
    'Debug.Print C10ToRGB
End Function

'以下函数将 16 进制数值转换为 10 进制数值
Private Function C16To10(strA As String) As Double
    Dim a As Double
    Dim b As String
    Dim c As Double
    Dim l As Integer
    Dim i As Long
    l = Len(strA)
    For i = 1 To l
        b = Mid(strA, i, 1)
        Select Case b
            Case "A"
                b = 10
            Case "B"
                b = 11
            Case "C"
                b = 12
            Case "D"
                b = 13
            Case "E"
                b = 14
            Case "F"
                b = 15
        End Select
        c = c + b * 16 ^ (l - 1)
        l = l - 1
    Next
    C16To10 = c
    'Debug.Print C16To10
End Function


如何取色你可以参考本站
http://access911.net/index.asp?board=4&recordid=71FAB31E16DC

 

常用颜色RGB、灰度值、取色值、透明度。

■■■■■#DC143C——Crimson深红/猩红 ■■■■■#FFF0F5——LavenderBlush淡紫红 ■■■■■#DB7093——PaleVioletRed弱紫罗兰红 ■■■■■#FF6...
  • yechaoa
  • yechaoa
  • 2017年02月16日 11:34
  • 2520

MacBook 获取Rgb值的自带小软件

最近在做项目的时候要用到和图片一致的颜色,这样取色器就比较重要了,获取rgb Mac自带了“数码测色计”:finder->应用程序->实用工具->数码测色计 界面很简单,一看就会了...
  • Hello_Hwc
  • Hello_Hwc
  • 2014年12月17日 20:45
  • 2635

用Windows自带画图软件吸取色值

用Windows自带画图软件吸取色值
  • u010356768
  • u010356768
  • 2017年09月09日 09:13
  • 610

用QML实现一个调色程序

初学QML, 简单的写了一个调色程序,效果
  • hyjjkk
  • hyjjkk
  • 2014年07月15日 10:35
  • 1024

Axure 取色器的使用

最近在学习Axure原型设计,发现一个好用的编辑颜色d
  • avar1126
  • avar1126
  • 2014年06月17日 12:08
  • 2959

vb常用的内部函数(六):颜色函数

RGB函数:RGB是通过指定红绿蓝不同的分量值得到不同的颜色。·格式:RGB(红色值,绿色值,蓝色值)·取值范围为0--255,分别代表所要颜色中的红、绿、蓝分量的大小。QBColor函数:用一个整数...
  • cjqhuadielei
  • cjqhuadielei
  • 2010年04月15日 21:17
  • 1064

图片取色取出16进制颜色码

1、图片另存为 2、图片编辑器 取出RGB值 3、通过RGB值取出16进制颜色码http://www.sioe.cn/yingyong/yanse-rgb-16/ 目前没找到更好的方法,欢迎分享...
  • windiwonder
  • windiwonder
  • 2017年09月15日 14:46
  • 213

GIMP使用 二 实现图片的抓图,裁剪,取色

一,抓图 运行GIMP,点击 File -----> Create -----> Sreenshot 。选择需要抓图的屏幕区域,第一项“take a sreenshot of a single wi...
  • Jo__yang
  • Jo__yang
  • 2014年12月01日 10:44
  • 3131

谷歌浏览器扩展工具---eye dropper取色器使用

一、先下载eye dropper.crx这个扩展,如果没有找到的话可以到我的主页里上传的资源里下载 下载链接:http://download.csdn.net/download/qq_3367950...
  • qq_33679504
  • qq_33679504
  • 2017年11月29日 11:11
  • 242

iOS开发工具——取色工具Sip

Sip 是一款超级方便的取色工具,能够给出css的十六位代码等12种颜色模式代码,支持快捷键操作,比如( ⌃⌥⌘ P )是开始取色。下载地址...
  • ymczy
  • ymczy
  • 2016年01月26日 10:15
  • 735
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用API函数取色后,如何将其分成RGB颜色?
举报原因:
原因补充:

(最多只允许输入30个字)