除了有一个问题：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)
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。