VB.NET OverflowException非常小的操作

Question

我正在尝试合并2种颜色，为此，我创建了一个非常简单的函数：

Public Function MixColors(color1 As Color, color2 As Color) As Color
    Dim a, r, g, b As Byte
    a = (color1.A + color2.A) \ 2
    r = (color1.R + color2.R) \ 2
    g = (color1.G + color2.G) \ 2
    b = (color1.B + color2.B) \ 2

    Return Color.FromArgb(a, r, g, b)
End Function

问题是我在第一次操作时收到OverflowException，但我不明白为什么。

我尝试先将变量的类型更改为Integer，然后更改为Double，结果不变。

我也尝试从\\运算符切换到/ one，但仍然没有任何变化。

变量的类型（color.A）会影响执行吗？

Answer 1

正如Hans所说，如果添加两个字节（例如color1.A+color1.B ），则会得到一个结果字节，其最大值为255。您必须将其转换为Int32 ，例如使用CInt 。 无论如何， Color.FromArgb需要4个整数。 所以以下应该工作：

Dim a, r, g, b As Int32

a = (CInt(color1.A) + CInt(color2.A)) \ 2
r = (CInt(color1.R) + CInt(color2.R)) \ 2
g = (CInt(color1.G) + CInt(color2.G)) \ 2
b = (CInt(color1.B) + CInt(color2.B)) \ 2

Return Color.FromArgb(a, r, g, b)