Переопределение GetHashCode в VB без поддержки проверенных / непроверенных ключевых слов?

вот реализация, объединяющая ответ Ганса Пассанта и ответ Джона Скита.

он работает даже для миллионов свойств (т. е. без исключений переполнения целых чисел) и очень быстр (менее 20 мс для генерации хэш-кода для класса с 1,000,000 полями и едва измеримым для класса только с 100 полями).

вот структура для обработки переполнений:

<StructLayout(LayoutKind.Explicit)>
Private Structure HashCodeNoOverflow
    <FieldOffset(0)> Public Int64 As Int64
    <FieldOffset(0)> Public Int32 As Int32
End Structure

и простой GetHashCode функция:

Public Overrides Function GetHashCode() As Integer

    Dim hashCode As HashCodeNoOverflow

    hashCode.Int64 = 17

    hashCode.Int64 = CLng(hashCode.Int32) * 23 + Field1.GetHashCode
    hashCode.Int64 = CLng(hashCode.Int32) * 23 + Field2.GetHashCode
    hashCode.Int64 = CLng(hashCode.Int32) * 23 + Field3.GetHashCode

    Return hashCode.Int32

End Function

или если вы предпочитаете:

Public Overrides Function GetHashCode() As Integer

    Dim hashCode = New HashCodeNoOverflow With {.Int32 = 17}

    For Each field In Fields
        hashCode.Int64 = CLng(hashCode.Int32) * 23 + field.GetHashCode
    Next

    Return hashCode.Int32

End Function

У меня была такая же проблема с реализацией решения г-на скита в vb.net - ... Я закончил тем, что использовал оператор Mod, чтобы добраться туда. Каждый мод целым числом.MaxValue должен возвращать только наименее значимый компонент до этой точки и всегда будет находиться в Integer.MaxValue и целое число.MinValue -- который должен иметь тот же эффект, что и unchecked. Вам, вероятно, не нужно мод так часто, как я (это только тогда, когда есть шанс получить больше, чем длинный (что означало бы объединение большого количества хэша коды), а затем один раз в конце), но вариант этого работает для меня (и позволяет вам играть с использованием гораздо больших простых чисел, как и некоторые другие хэш-функции, не беспокоясь).

Public Overrides Function GetHashCode() As Int32
    Dim hash as Int64 = 17
    hash = (hash * 23 + _Name.GetHashCode()) Mod Integer.MaxValue
    hash = (hash * 23 + _Value) Mod Integer.MaxValue
    hash = (hash * 23 + _Type.GetHashCode()) Mod Integer.MaxValue
    Return Convert.ToInt32(hash)
End Function

вы можете реализовать подходящий помощник хэш-кода в отдельной сборке, используя C# и unchecked ключевое слово или проверка переполнения для всего проекта (возможно в обоих VB.NET и проекты c#). Если вы хотите, вы можете использовать ilmerge чтобы объединить эту сборку с основной сборкой.

улучшена ответа переопределение GetHashCode в VB без поддержки проверенных / непроверенных ключевых слов?

Public Overrides Function GetHashCode() as Integer
  Dim hashCode as Long = 0
  If myReplacePattern IsNot Nothing Then _
    hashCode = ((hashCode*397) Xor myField.GetHashCode()) And &HffffffffL
  If myPattern IsNot Nothing Then _
    hashCode = ((hashCode*397) Xor myOtherField.GetHashCode()) And &HffffffffL
  Return CInt(hashCode)
End Function

существует обрезка после каждого умножения. И литерал определяется явно, поскольку оператор And с целочисленным аргументом не обнуляет верхние байты.

Я также обнаружил, что RemoveIntegerChecks свойство MsBuild влияет /removeintchecks свойство компилятора VB, которое предотвращает компилятор от проверки выполнения:

  <PropertyGroup>
    <RemoveIntegerChecks>true</RemoveIntegerChecks>   
  </PropertyGroup>

после исследования, что VB не дал нам ничего подобного unchecked и бушуя немного (c# dev теперь делает vb), я реализовал решение, близкое к тому, которое опубликовал Ханс Пассант. Мне это не удалось. Ужасное представление. Это, безусловно, было связано с моей реализацией, а не с решением, которое опубликовал Ханс. Я мог бы вернуться и более точно скопировать его решение.

тем не менее, я решил проблему с другим решением. Сообщение с жалобой на отсутствие unchecked на языке VB страница запросов функций дала мне идею использовать хэш-алгоритм уже в рамках. В моей проблеме у меня был String и Guid который я хотел использовать для словарного ключа. Я решил Tupple(Of Guid, String) было бы прекрасным внутренним хранилищем данных.

Оригинальная Плохая Версия

Public Structure HypnoKey
  Public Sub New(name As String, areaId As Guid)
    _resourceKey = New Tuple(Of Guid, String)(resourceAreaId, key)
  End Sub

  Private ReadOnly _name As String
  Private ReadOnly _areaId As Guid

  Public ReadOnly Property Name As String
    Get
      Return _name 
    End Get
  End Property

  Public ReadOnly Property AreaId As Guid
    Get
      Return _areaId 
    End Get
  End Property

  Public Overrides Function GetHashCode() As Integer
    'OMFG SO BAD
    'TODO Fail less hard
  End Function

End Structure

Значительно Улучшенная Версия

Public Structure HypnoKey
  Public Sub New(name As String, areaId As Guid)
    _innerKey = New Tuple(Of Guid, String)(areaId , key)
  End Sub

  Private ReadOnly _innerKey As Tuple(Of Guid, String)

  Public ReadOnly Property Name As String
    Get
      Return _innerKey.Item2
    End Get
  End Property

  Public ReadOnly Property AreaId As Guid
    Get
      Return _innerKey.Item1
    End Get
  End Property

  Public Overrides Function GetHashCode() As Integer
    Return _innerKey.GetHashCode() 'wow! such fast (enuf)
  End Function

End Structure

Итак, хотя я ожидаю, что есть гораздо лучшие решения, чем это, я очень доволен. У меня хорошая работа. Также неприятный код утилиты исчез. Надеюсь, это полезно для некоторых других бедных разработчиков, вынужденных писать VB, которые сталкиваются с этим сообщением.

Ура