コレクションのインスタンス化について

Question

##試した事
以前投稿したコードから改変しました。
##ソースコード

Imports System.IO
    Imports System
    Imports System.Globalization
    Imports System.Threading

    Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If ListBox1.SelectedIndex = 0 Then
            '新しいフォームです。 
            Form2.Show()
            Me.Hide()
        End If
    End Sub
End Class

Imports System.ComponentModel
Imports System.Globalization

Public Class Form2
    Private list As New Dictionary(Of String, Image)()

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TextBox1.Enabled = False
        list.Add("あ1", My.Resources.A00)
        list.Add("あ2", My.Resources.A01)
        list.Add("あ3", My.Resources.A02)
        list.Add("い1", My.Resources.A03)
        list.Add("い2", My.Resources.A04)
        list.Add("い3", My.Resources.A05)
        ComboBox1.DisplayMember = "Key"
        ComboBox1.ValueMember = "Value"
        ComboBox1.DataSource = New BindingSource(list, Nothing)
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        TextBox1.Text = ComboBox1.GetItemText(ComboBox1.SelectedItem)
        'PictureBox1.Image = TryCast(ComboBox1.SelectedValue, Image)
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        PictureBox1.Image = TryCast(ComboBox1.SelectedValue, Image)
    End Sub
    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
        Dim cca = New CultureInfo("ja-jp").CompareInfo
        Dim opt As CompareOptions
        opt = opt Or CompareOptions.IgnoreWidth '全角と半角を区別しない
        opt = opt Or CompareOptions.IgnoreKanaType 'ひらがなとカタカナを区別しない
        opt = opt Or CompareOptions.IgnoreCase '大文字と小文字を区別しない
        opt = opt Or CompareOptions.IgnoreNonSpace '文字列比較で分音文字などの結合の分音文字を無視することを示します。
        opt = opt Or CompareOptions.IgnoreSymbols '文字列の比較が空白文字が区切り記号、通貨記号、パーセント記号、数学記号、アンパサンド、やなどの記号を無視することを示します。

        Dim txt As String = TextBox2.Text

        ComboBox1.DataSource = List.Where(
        Function(s)
            Return 0 = cca.Compare(Strings.Left(s.Key, txt.Length), txt, opt)
        End Function).ToArray()

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.Hide()
        Form1.Show()
    End Sub
End Class

コレクションのインスタンス？で文字入力、画像は表示させる事にしたのですか

##おしえて欲しいこと。
画像、文字入力、数字（番号）を追加したい事なのですが

Private list As New Dictionary(Of String, Image)()

これをもし

Private list As New Dictionary(Of String,  Image'Integer)()

list (of String, Image'Integer)

にしたいんですが初心者なので頑張って努力して覚えようとしています。
どのように改変したらいいのでしょうか？
お願いいたします。
##バージョンなど
Vistualstudio2019
Vistual basic

Answer 1

必要な情報をクラスや構造体に纏めて、それをDictionaryに入れればいいのではないでしょうか。

例）

    Private Class Hogehoge
        Public Property Number As Integer
        Public Property Picture As Image
    End Class
    Private list As New Dictionary(Of String, Hogehoge)

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        list.Add("あ1", New Hogehoge() With {.Number = 1, .Picture = My.Resources.A00})
        list.Add("あ2", New Hogehoge() With {.Number = 2, .Picture = My.Resources.A01})
    End Sub

他の部分がどうなのか分からないので一概に言えませんが、DictionaryじゃなくてHogehogeクラスにKeyの値も入れて、List(of Hogehoge)でもいいような気もします。

Comments

[退会済みユーザー]

回答ありがとうございます。
サンプルコード参考にします。
後もう一つ聞きたいことがあります。

最終的に完成させたい事は

Private list As New Dictionary(Of String, Integer, (Image))
'↑このようにするとエラーが出ます。
Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox1.Enabled = False
’ Index0,　画像, 数字はtextbox1に表示
list.Add("あ1", My.Resources.A00, 0)
list.Add("あ2", My.Resources.A01, 0)
ComboBox1.DisplayMember = "Key"
ComboBox1.ValueMember = "Value"
ComboBox1.DataSource = New BindingSource(list, Nothing)
end sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
'Textbox1が数字が表示された状態でlist.add("あ1",0)←の０がtextbox1
'に表示されます。
TextBox1.Text = ComboBox1.SelectedValue.ToString
'改変前はlist.add("あ1",0)、改変後はlist.add("あ1",My.Resources.A00)
'TextBox1.Text = ComboBox1.GetItemText(ComboBox1.SelectedItem)
end sub

Textbox1「数字表示」
Textbox2「文字入力」
Picturebox「画像表示」

list.Add("あ1", My.Resources.A00, 0)
あ1＝コンボボックスのアイテム名
My.Resources.A00=画像
0=textbox1に数字が表示するように作りたいと思ってます。

このように完成させようとしています。
追記書きました（ごめんなさい）

すいませんよろしくお願いします。

[YAmaGNZ]

DictionaryのValueとして、Image型とInteger型の２つの値を保持したいということですよね？
DictionaryのValueは１つだけです。
ですので、複数の値を持つ場合として、その情報を格納するクラス（構造体）を作って、それをValueとして持たせるという回答をしています。

[退会済みユーザー]

>DictionaryのValueは１つだけです
できないんですよね？・・・わかりました。