vb.net - 将 RGB 转换为 ARGB

Question

我正在尝试在 VB6 中模拟 Color.ToArgb() Net 函数。

在我的尝试中，我选择了红色。

在 .NET 中我得到了结果

Color.Red.ToArgb() = -65536

但是，我无法在 VB6 中重现这一点。

我的函数 RGBToARGB(vbRed, 255) 返回 -16776961

Public Function RGBToARGB(ByVal uColor As Long, ByVal uAlpha As Integer) As Long

    Dim newColor As Long

    ' To add an Alpha channel to the RGB, simply
    If uAlpha > 127 Then
       newColor = uColor Or ((uAlpha - 128) * &H1000000 Or &H80000000)
    Else
       newColor = uColor Or (uAlpha * &H1000000)
    End If

    RGBToARGB = newColor

End Function

有人看到我做错了什么/与 .NET 版本不同吗？

Answer 1

可能有更好的方法来做到这一点，但这应该可行:

Function RGB24ToARGB(ByVal RGB24 As Long, ByVal Alpha As Byte) As Long
    RGB24ToARGB = CLng(Alpha And Not &H80) * &H1000000
    If Alpha And &H80 Then RGB24ToARGB = RGB24ToARGB Or &H80000000
    RGB24ToARGB = RGB24ToARGB _
               Or (RGB24 And &HFF&) * &H10000 _
               Or (RGB24 And &HFF00&) _
               Or (RGB24 And &HFF0000) \ &H10000
End Function