Question

关于RGB值转换到ARGB值的问题

16位的RGB值如何转换到32位的ARGB值，希望能有VB代码

Answer 1

Private Structure RGB
Dim Red As Integer
Dim Green As Integer
Dim Blue As Integer
End Structure

Private Function FindRgb(ByVal StrColor_Hex As String) As RGB
With FindRgb
.Red = System.Int16.Parse(StrColor_Hex.Substring(1, 2), System.Globalization.NumberStyles.AllowHexSpecifier)
.Green = System.Int16.Parse(StrColor_Hex.Substring(3, 2), System.Globalization.NumberStyles.AllowHexSpecifier)
.Blue = System.Int16.Parse(StrColor_Hex.Substring(5, 2), System.Globalization.NumberStyles.AllowHexSpecifier)
End With
Return FindRgb
End Function

Answer 2

Public Structure RGB
Dim RED As Integer
Dim GREEN As Integer
Dim BLUE As Integer
End Structure

Private Function FindRGB(ByVal color As Integer) As RGB
With FindRGB
.RED = color Mod 256
.GREEN = (color \ 256) Mod 256
.BLUE = color \ 256 \ 256
End With
Return FindRGB
End Function