Hashtableとか．．．

■値の保持．．．その２

昨日のStringDictionaryは保持する値がStringに限定されるため普段使う際には重宝しそうだ
色々と探ってみると、これら値保持について扱うSystem.Collectionsにはオブジェクトを保持する事ができる
そこで簡単な例としてHashtableを扱ってみる

次のようなオブジェクトを作成しそれを保存してみる

    Class MyObj
        Public MyName As String
        Public MyAge As Int16
    End Class

名前と年齢という２つのデータを持つオブジェクトMyObj、これをボタン押下でHashtableに追加してみる
フォームにボタン２つとテキストボックス２つを配置してコードを記載して実行だ

Public Class Form1
    Class MyObj
        Public MyName As String
        Public MyAge As Int16
    End Class

    Dim openWith As New Hashtable()

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Human1 As MyObj = New MyObj
        Human1.MyName = TextBox1.Text
        Human1.MyAge = Convert.ToInt16(TextBox2.Text)
        openWith.Add(TextBox1.Text, Human1)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim wHuman As MyObj = openWith(TextBox1.Text)
        Dim wAge As Int16 = wHuman.MyAge

        MsgBox(wAge)
    End Sub
End Class

テキストボックス１に名前
テキストボックス２に年齢

何件か入力し、名前だけ入力してボタン２を押すと、その名前の年齢をMSGBOXされる
例によってスペースの入力時のエラーは考慮していない