C# と VB.NET の質問掲示板

はじめまして。VB2005を使用しています。
ハッシュテーブルを使ったキーの存在チェックでハマっています。

Module Module1
    Sub Main()
        Dim 商品 As New 商品マスタ
        商品.JANコード = "4901234567890"
        商品.商品名 = "何かの商品"

        Dim dic As New Dictionary(Of 商品key, 商品マスタ)
        dic(商品.商品key) = 商品

        If dic.ContainsKey(商品.商品key) Then
            Console.WriteLine("あるよ！")
        Else
            Console.WriteLine("ないわ")　←　False判定でこちらにきてしまう
        End If
    End Sub
End Module

Public Class 商品key
    Public JANコード As String
End Class

Public Class 商品マスタ
    Public JANコード As String
    Public 商品名 As String
    Public ReadOnly Property 商品key() As 商品key
        Get
            Dim key As New 商品key
            key.JANコード = Me.JANコード
            Return key
        End Get
    End Property
End Class

上記のようにハッシュテーブルにキーと値を入れ込み、
ContainsKeyにてキーの存在チェックをしているのですが、何故かFalse判定になってしまいます。
理由がさっぱり分かりません。どうかよろしくお願い致します。

Hongliangさんの投稿内容とかぶりましたね。
私の No36830 の投稿の以下の部分は、

> Dictionaryなどのハッシュテーブルでは、キーに利用するクラスのGetHashCodeメソッドの値をキーとして使います。

少し正確ではなかったので、詳細はHongliangさんの投稿を参照してください。

それはそうとして、商品keyを用意しなくても以下のようにStringをキーにすればよいかと思います。

>         Dim dic As New Dictionary(Of 商品key, 商品マスタ)
>         dic(商品.商品key) = 商品
> 
>         If dic.ContainsKey(商品.商品key) Then

Dim dic As New Dictionary(Of String, 商品マスタ)
dic(商品.商品Key) = 商品

If dic.ContainsKey(商品.商品key) Then


> Public Class 商品key
>     Public JANコード As String
> End Class

このクラスは削除します。
 
>     Public ReadOnly Property 商品key() As 商品key
>         Get
>             Dim key As New 商品key
>             key.JANコード = Me.JANコード
>             Return key
>         End Get
>     End Property

     Public ReadOnly Property 商品key() As String
         Get
             Return Me.JANコード
         End Get
     End Property

Hongliangさん、よねＫＥＮさん、返答ありがとうございました。
インスタンスが違う事には気づきませんでした。
今回HashCodeというものに初めて気づかされたのですが、
「GetHashCodeで返される値が同じであれば、同一のインスタンスである。」と判断するという事なんでしょうか。
Stringクラスで同じ文字列であれば、同じ値を返すようなので、同一のインスタンスとも違うのでしょうね。

> Dictionary のコンストラクタで IEqualityComparer(Of 商品key) を渡すか、商品key クラスに IEquatable(Of 商品key) を実装させるか、をすれば自由に同一性の判定をすることができます。

Dim dic As New Dictionary(Of 商品key, 商品マスタ)(New 商品KeyComparer)　←　追加しました

Public Class 商品KeyComparer
    Implements IEqualityComparer(Of 商品key)
    Public Function Equals1(ByVal x As 商品key, ByVal y As 商品key) As Boolean Implements System.Collections.Generic.IEqualityComparer(Of 商品key).Equals
        If x.JANコード = y.JANコード Then
            Return True
        End If
    End Function
    Public Function GetHashCode1(ByVal obj As 商品key) As Integer Implements System.Collections.Generic.IEqualityComparer(Of 商品key).GetHashCode
        'ここにはいったい何が・・・
    End Function
End Class

上記のような、Dictionary のコンストラクタで IEqualityComparer(Of 商品key) を渡す方法で、得たい結果が出ました。
商品key クラスに IEquatable(Of 商品key) を実装させるほうが自分的にすっきりするので、こちらは今から勉強します。
一番最初に指摘して頂いたGetHashCodeを実装する方法はやはりさっぱりです＾＾；

> それはそうとして、商品keyを用意しなくても以下のようにStringをキーにすればよいかと思います。

よくばって複数キーで索引する仕組みを作ろうと思っていました。
自分のやりたい事だと複数キーでも文字連結で出来そうな気がします。

ありがとうございました。

	
Public Class 商品key
    Implements IEquatable(Of 商品key)

    Public JANコード As String

    Public Function Equals1(ByVal other As 商品key) As Boolean Implements System.IEquatable(Of 商品key).Equals
        If Me.JANコード.Equals(other.JANコード) Then
            Return True
        End If
    End Function

    Public Overrides Function GetHashCode() As Integer
        Return Me.JANコード.GetHashCode
    End Function
End Class

宿題にしていた商品keyクラスにIEquatableを実装するほうも、これで出来た（？）と思います。
ありがとうございました。