使用字节文本

我正在使用以下函数来增加颜色值(在我的代码中它是一个lambda,但这不会造成不同的效果):

Function ReduceDistanceTo255(ByVal i As Byte) As Byte
    Return i + (255 - i) \ 2
End Function

它不会编译,因为编译器解释 255 和 2 作为整数而不是字节,使类型的结果 Integer . 不幸的是, there is no Byte type character 所以我不能只写 255B 或者类似的。

有几个明显的解决问题的方法:

Function ReduceDistanceTo255(ByVal i As Byte) As Byte
    Return i + (CByte(255) - i) \ CByte(2)
End Function

和

Function ReduceDistanceTo255(ByVal i As Byte) As Byte
    Return CByte(i + (255 - i) \ 2)
End Function

和

Function ReduceDistanceTo255(ByVal i As Byte) As Byte
    Dim FF As Byte = 255
    Dim two As Byte = 2

    Return i + (FF - i) \ two
End Function

第一个很难看,很难读懂,因为 每一个 文字必须是 CByte d.第二个执行整数计算,然后将结果转换为字节,这是可以的,但没有纯字节操作那么优雅。第三个解决方案不需要 立方字节 但是它的缺点是显而易见的。

我是否错过了一些(优雅的)第四个选项,它允许我做纯字节的数学而不把公式与cbool混淆?