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

Form1にTextbox1とComboBox1を配置して
ComboBox1の表示内容を変更する度にTextBoxの表示も変わるという単純なものですが、
ComboBox1のアイテムを増やす度にselectの分岐も増やしていくのが、すこし野暮ったいような気がします。

例えばComboBox1.Items.Add("え")を追加して TextBox1.Textに 「え」を表示させるとして
Select Caseの分岐を増やさない方法はあるでしょうか？
デリゲートやラムダ式を使えばいいのでしょうか？
ご教示よろしくお願いします。


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ComboBox1.Items.Add("あ")
        ComboBox1.Items.Add("い")
        ComboBox1.Items.Add("う")
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

        Select Case ComboBox1.SelectedItem.ToString
            Case "あ"
                TextBox1.Text = "あ"
            Case "い"
                TextBox1.Text = "い"
            Case "う"
                TextBox1.Text = "う"
        End Select
    End Sub

ありがとう御座いました。
コンボボックスに表示した文字とテキストボックスに表示する文字が同じだと
WebSurferさんの仰せの通りにするのが良いと思います。

ComboBox1_SelectedIndex メソッドを下記のようにしてForm1_LoadメソッドにComboBox1.Items.Add("え")を追加して TextBox1.Textに "EEE"を表示させる場合　
どうするのがベストでしょうか？

  Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

        Select Case ComboBox1.SelectedItem.ToString
            Case "あ"
            　  TextBox1.Text = "AAA"
             Case "い"
                TextBox1.Text = "BBB
            Case "う"
                TextBox1.Text = "CCC"
        End Select
    End Sub

■No78852 (?}?e?B さん) に返信

上の私のレスで書いたことの具体例を書いておきます。

辞書（Dictionary<string, string> クラス）を作って使う場合の例。項目が増えた場合は
Dictionary メソッドだけ修正すれば OK です。さらに、外部のテキストファイル等から項
目を取得するようにすれば、コードはいじらなくても外部テキストファイルのみ修正すれば
OK です。

namespace WindowsFormsApplication
{
    public partial class Form11 : Form
    {
        Dictionary<string, string> dictionary;
        
        public Form11()
        {
            InitializeComponent();

            this.comboBox2.SelectedIndexChanged += new EventHandler(comboBox2_SelectedIndexChanged);
        }

        private void Form11_Load(object sender, EventArgs e)
        {
            this.dictionary = CreateDictionary();
            this.comboBox2.Items.AddRange(this.dictionary.Keys.ToArray());
            this.comboBox2.SelectedIndex = 0;
        }

        // 辞書を作るためのヘルパメソッド
        private Dictionary<string, string> CreateDictionary()
        {
            Dictionary<string, string> dictionary = new Dictionary<string, string>();
            dictionary.Add("あ", "AAA");
            dictionary.Add("い", "BBB");
            dictionary.Add("う", "CCC");
            dictionary.Add("え", "DDD");
            // 以降必要な分を追加
            return dictionary;
        }

        private void comboBox2_SelectedIndexChanged(object sender, EventArgs e)
        {
            if (this.comboBox2.SelectedIndex != -1)
            {
                this.textBox2.Text = dictionary[((ComboBox)sender).SelectedItem.ToString()];
            }
        }

    }
}

上記より、もし ValueMember に "AAA", "BBB", "CCC", "DDD"... を設定して良いなら、わ
ざわざ辞書を作る必要はなくなりますので、その方がスマートにできると思います。


さらに、上のレスにも書きましたが、元データがデータベースにあるような場合は、Visual
Studio のウィザードを使って 型付 DataSet/DataTable + TableAdapter を自動生成させて
それを使ったほうが簡単かもしれません。以下のような感じです。

namespace WindowsFormsApplication
{
    public partial class Form11 : Form
    {
        NorthwindDataSet dataset;
        NorthwindDataSetTableAdapters.CustomersTableAdapter tableAdaptor;

        public Form11()
        {
            InitializeComponent();

            this.dataset = new NorthwindDataSet();
            this.tableAdaptor = new NorthwindDataSetTableAdapters.CustomersTableAdapter();

            this.comboBox1.SelectedIndexChanged += new EventHandler(comboBox1_SelectedIndexChanged);
        }

        private void Form11_Load(object sender, EventArgs e)
        {
            this.tableAdaptor.Fill(this.dataset.Customers);

            // DataSource の設定は最後にすること。最初に持ってくると、DisplayMember、
            // ValueMember の設定時に余計なデータバインドが起こる。
            this.comboBox1.DisplayMember = "CustomerID";
            this.comboBox1.ValueMember = "CompanyName";
            this.comboBox1.DataSource = this.dataset.Customers;
        }

        private void comboBox1_SelectedIndexChanged(object sender, EventArgs e)
        {
            if (this.comboBox1.SelectedIndex != -1)
            {
                this.textBox1.Text = ((ComboBox)sender).SelectedValue.ToString();
            }
        }
    }
}

WebSurferさん
お返事ありがとうございました。
こちらのC＃のコードでの投稿があったのを知らず、Dictionaryクラスを調べ自分なりにコードを作成したのですが
以下のようになりました。
Dictionaryクラスは知らなかったので調べてみましたら、連想配列のことなんですね（使ったことはないですが）
こうするとで　ComboBox1_SelectedIndexChanged　メソッド内で分岐を使わわずに済むんですね。
スッキリしました。

当方のコードに比べてWebSurferさんのコードは汎用的で実用的ですね。
メソッドにしたデータ部の呼び出し方法はとても参考になります。


    Dim dict As New Dictionary(Of String, String)

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        dict("あ") = "AAA"
        dict("い") = "BBB"
        dict("う") = "CCC"
        dict("え") = "DDD"

        ' コンボボックスに表示
        For Each v As String In dict.Keys
            ComboBox1.Items.Add(v)
        Next
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

        TextBox1.Text = dict(ComboBox1.SelectedItem)

    End Sub



>>Studio のウィザードを使って 型付 DataSet/DataTable + TableAdapter を自動生成させて
>>それを使ったほうが簡単かもしれません。以下のような感じです。

こういった機能もあるのですね。勉強してみます。
この度はご教示ありがとうございました。