vb.net – 在VB中覆盖GetHashCode没有选中/未选中的关键字支持？

所以我试图找出如何正确覆盖GetHashCode()在VB中的大量自定义对象。有点搜索导致我到 this wonderful answer。

除了有一个问题：VB在.NET 4.0中缺少checked和unchecked关键字。据我所知，无论如何。所以使用Jon Skeet的实现，我尝试在一个相当简单的类上创建了这样一个覆盖，它有三个主要的成员：Name As String，Value As Int32，以及[Type] As System.Type。所以我想出：

Public Overrides Function GetHashCode() As Int32
    Dim hash As Int32 = 17

    hash = hash * 23 + _Name.GetHashCode()
    hash = hash * 23 + _Value
    hash = hash * 23 + _Type.GetHashCode()
    Return hash
End Function

问题：Int32对于这样的简单对象来说太小了。我测试的特定实例具有“Name”作为一个简单的5个字符的字符串，并且该散列单独足够接近Int32的上限，当它尝试计算哈希(Value)的第二个字段时，它溢出。因为我没有找到一个等效的颗粒检查/未检查支持的VB，我无法解决这个问题。

我也不想删除整个项目的整数溢出检查。这个东西可能…. 40％完成(我做了，TBH)，我有更多的代码写，所以我需要这些溢出检查在一段时间。

Jon的GetHashCode版本是VB和Int32的“安全”版本？或者，.NET 4.0是否已经检查/取消选中我在MSDN上找不到的地方？

编辑：
根据相关的SO问题，最底层的unloved answers之一提供了准解决方案。我说准，因为感觉就像是欺骗。乞丐不能选择，对吧？

从C#转换为更可读的VB并与上述对象(名称，值，类型)对齐，我们得到：

Public Overrides Function GetHashCode() As Int32
    Return New With { _
        Key .A = _Name,_
        Key .B = _Value,_
        Key .C = _Type
     }.GetHashCode()
End Function

这会触发编译器通过生成一个匿名类型来“欺骗”，然后它在项目名称空间之外进行编译，大概是在整数溢出检查被禁用的情况下进行编译，并允许数学发生，并在它溢出时简单地循环。它也似乎涉及盒式操作码，我知道是性能命中。不，不开箱。

但这提出了一个有趣的问题。无数次，我已经看到它在这里和其他地方说明了VB和C#生成相同的IL代码。这显然不是100％的时间…像使用C#的unchecked关键字简单地导致不同的操作码被发出。那么为什么我会继续看到两者产生完全相同的IL不断重复的假设呢？ < /修辞-问题>

无论如何，我宁愿找到一个可以在每个对象模块中实现的解决方案。为每个单个对象创建匿名类型将从ILDASM的角度看起来很乱。当我说我在项目中实施了很多课程时，我不开玩笑。

EDIT2：我在MSFT Connect上打开了一个错误，VB PM的结果的要点是他们会考虑的，但不要呼吸：
https://connect.microsoft.com/VisualStudio/feedback/details/636564/checked-unchecked-keywords-in-visual-basic

快速浏览.NET 4.5中的变化表明他们还没有考虑过，所以也许.NET 5？

适用于GetHashCode的约束的最终实现方式，仍然在VB中快速而独特，低于this page上的“旋转哈希”示例：

'// The only sane way to do hashing in VB.NET because it lacks the
'// checked/unchecked keywords that C# has.
Public Const HASH_PRIME1 As Int32 = 4
Public Const HASH_PRIME2 As Int32 = 28
Public Const INT32_MASK As Int32 = &HFFFFFFFF

Public Function RotateHash(ByVal hash As Int64,ByVal hashcode As Int32) As Int64
    Return ((hash << HASH_PRIME1) Xor (hash >> HASH_PRIME2) Xor hashcode)
End Function

我也认为“Shift-Add-XOR”散列也可能适用，但我还没有测试。

使用长时间避免溢出：

Dim hash As Long = 17
'' etc..
Return CInt(hash And &H7fffffffL)

And运算符确保不会抛出溢出异常。然而，在计算的哈希码中确实丢失了一位“精度”，结果总是为正。 VB.NET没有内置的功能来避免它，但你可以使用一个技巧：

Imports System.Runtime.InteropServices

Module NoOverflows
    Public Function LongToInteger(ByVal value As Long) As Integer
        Dim cast As Caster
        cast.LongValue = value
        Return cast.IntValue
    End Function

    <StructLayout(LayoutKind.Explicit)> _
    Private Structure Caster
        <FieldOffset(0)> Public LongValue As Long
        <FieldOffset(0)> Public IntValue As Integer
    End Structure
End Module

现在你可以写：

Dim hash As Long = 17
'' etc..
Return NoOverflows.LongToInteger(hash)

vb.net – 在VB中覆盖GetHashCode没有选中/未选中的关键字支持？

相关文章