GDI+_VB6_ARGB

在写一个用GDI+代替VB的Line函数的方法时，遇到了一个问题。

GdipCreateSolidFill

 

参数
color
[in]ARGB颜色，指定此实体画笔的初始颜色。
brush
[out]指向接收到新创建的SolidBrush对象的指针的变量的指针。
返回值
如果函数成功，则返回Ok，它是状态枚举的一个元素。
如果函数失败，它返回状态枚举的其他元素之一。 

 

在得到ARGB值这一点出现了问题。

我当时以为很简单的HEX(ARGB)就能解决结果我就错了。

查阅了很多时间，才知道原来要分开来转换。

 

ARGB有四个值：

透明度 红色值 绿色值 蓝色值

于是我做了一个函数来解决：

Public Function ARGB(alpha As Integer, red As Integer, green As Integer, blue As Integer) As Long
'ARGB(透明度,红色,绿色,蓝色)
    If alpha > 255 Or red > 255 Or green > 255 Or blue > 255 Then
    '大于255 返回0
    ARGB = 0: Exit Function
    End If
    Dim S_a As String, S_r As String, S_g As String, S_b As String, S_16 As String
    S_a = Hex(alpha): S_r = Hex(red): S_g = Hex(green): S_b = Hex(blue)
'由于十六进制ARGB是以两位数为一个值的。
'当字符个数为1时前面加0补充
    If Len(S_a) < 2 Then S_a = "0" & S_a
    If Len(S_r) < 2 Then S_r = "0" & S_r
    If Len(S_g) < 2 Then S_g = "0" & S_g
    If Len(S_b) < 2 Then S_b = "0" & S_b
    S_16 = "&H" & S_a & S_r & S_g & S_b
'ARGB=&H FFFF FFFF
ARGB = Val(S_16)
End Function

 

虽然很简单的一个东西，但是百度上对ARGB的介绍极少，导致浪费了我不少的时间，所以建一篇帖子谨记。