comboboxとtextboxの連携

Question

前提・実現したいこと

コンボボックスとテキストボックスの連携
その値を用いた、外貨変換プログラムの作成。

ここに質問の内容を詳しく書いてください。
開発環境 visual studio2019 言語 VB.NETで作成しています。
コンボボックスにて対象の通貨(￥、＄、€)を選択し、テキストボックスに入力された数値を
￥、＄、€のいずれかに変換し、ラベルに表示させるソースを作成をしています。

入力の値としてコンボボックスとテキストボックスの連携させていのですが
VB.NETを各サイトを参考にしようと探していたのですがこれだという結果が得られません。

皆さんのお知恵をお借りできればと思います。

###求めている動作のイメージ
コンボボックス：￥
テキストボックス：108

入力された数値が￥108として
この数値を＄に変換する。

ラベルに＄１を表示する。

レートは下記の通りで宣言しています。
＄=108
€=120

###その後
求めておりました動作は何とかできるようになりました。
zuishinさんのアドバイスを組めたかどうかですが・・・。

ソースコード記載いたします。

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

        Dim strData() As String = {"\", "$", "€"}
        'コンボボックスにアイテムを追加する
        ComboBox1.Items.AddRange(strData)
        ComboBox2.Items.AddRange(strData)
        ComboBox3.Items.AddRange(strData)

    End Sub


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click '円に変換
        Dim Dollar As String = 108
        Dim EUR As String = 120

        'テキストボックス1の円変換

        If ComboBox1.SelectedIndex = 0 Then
            Label1.Text = ("\" & TextBox1.Text)
        ElseIf ComboBox1.SelectedIndex = 1 Then
            Label1.Text = ("\" & TextBox1.Text * Dollar)
        ElseIf ComboBox1.SelectedIndex = 2 Then
            Label1.Text = ("\" & TextBox1.Text * EUR)
        End If

        'テキストボックス2を円変換

        If ComboBox2.SelectedIndex = 0 Then
            Label2.Text = ("\" & TextBox2.Text)
        ElseIf ComboBox2.SelectedIndex = 1 Then
            Label2.Text = ("\" & TextBox2.Text * Dollar)
        ElseIf ComboBox2.SelectedIndex = 2 Then
            Label2.Text = ("\" & TextBox2.Text * EUR)
        End If

        'テキストボックス3を円変換

        If ComboBox3.SelectedIndex = 0 Then
            Label3.Text = ("\" & TextBox3.Text)
        ElseIf ComboBox3.SelectedIndex = 1 Then
            Label3.Text = ("\" & TextBox3.Text * Dollar)
        ElseIf ComboBox3.SelectedIndex = 2 Then
            Label3.Text = ("\" & TextBox3.Text * EUR)
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click '＄に変換
        Dim Dollar As String = 108
        Dim EUR As String = 120

        'テキストボックス1のドル変換

        If ComboBox1.SelectedIndex = 0 Then
            Label1.Text = Format((TextBox1.Text / Dollar), "0.00")
            Label1.Text = CStr("$" & Label1.Text)
        ElseIf ComboBox1.SelectedIndex = 1 Then
            Label1.Text = CStr("$" & TextBox1.Text)
        ElseIf ComboBox1.SelectedIndex = 2 Then
            Label1.Text = Format((TextBox1.Text * EUR / Dollar), "0.00")
            Label1.Text = CStr("$" & Label1.Text)
        End If

        'テキストボックス2をドル変換

        If ComboBox2.SelectedIndex = 0 Then
            Label2.Text = Format((TextBox2.Text / Dollar), "0.00")
            Label2.Text = CStr("$" & Label2.Text)
        ElseIf ComboBox2.SelectedIndex = 1 Then
            Label2.Text = CStr("$" & TextBox2.Text)
        ElseIf ComboBox2.SelectedIndex = 2 Then
            Label2.Text = Format((TextBox2.Text * EUR / Dollar), "0.00")
            Label2.Text = CStr("$" & Label2.Text)
        End If

        'テキストボックス3をドル変換

        If ComboBox3.SelectedIndex = 0 Then
            Label3.Text = Format((TextBox3.Text / Dollar), "0.00")
            Label3.Text = CStr("$" & Label3.Text)
        ElseIf ComboBox3.SelectedIndex = 1 Then
            Label3.Text = CStr("$" & TextBox3.Text)
        ElseIf ComboBox3.SelectedIndex = 2 Then
            Label3.Text = Format((TextBox3.Text * EUR / Dollar), "0.00")
            Label3.Text = CStr("$" & Label3.Text)
        End If
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click '€に変換

        Dim Dollar As String = 108
        Dim EUR As String = 120

        'テキストボックス1のユーロ変換

        If ComboBox1.SelectedIndex = 0 Then
            Label1.Text = Format((TextBox1.Text / EUR), "0.00")
            Label1.Text = CStr("€" & Label1.Text)
        ElseIf ComboBox1.SelectedIndex = 1 Then
            Label1.Text = Format((TextBox1.Text * Dollar / EUR), "0.00")
            Label1.Text = CStr("€" & Label1.Text)
        ElseIf ComboBox1.SelectedIndex = 2 Then
            Label1.Text = CStr("€" & TextBox1.Text)
        End If

        'テキストボックス2をユーロ変換

        If ComboBox2.SelectedIndex = 0 Then
            Label2.Text = Format((TextBox2.Text / EUR), "0.00")
            Label2.Text = CStr("€" & Label2.Text)
        ElseIf ComboBox2.SelectedIndex = 1 Then
            Label2.Text = Format((TextBox2.Text * Dollar / EUR), "0.00")
            Label2.Text = CStr("€" & Label2.Text)
        ElseIf ComboBox2.SelectedIndex = 2 Then
            Label2.Text = CStr("€" & TextBox2.Text)
        End If

        'テキストボックス3をユーロ変換

        If ComboBox3.SelectedIndex = 0 Then
            Label3.Text = Format((TextBox3.Text / EUR), "0.00")
            Label3.Text = CStr("€" & Label3.Text)
        ElseIf ComboBox3.SelectedIndex = 1 Then
            Label3.Text = Format((TextBox3.Text * Dollar / EUR), "0.00")
            Label3.Text = CStr("€" & Label3.Text)
        ElseIf ComboBox3.SelectedIndex = 2 Then
            Label3.Text = CStr("€" & TextBox3.Text)
        End If
    End Sub

End Class

ここから省く、もしくはより分かりやすくまとめる方法が
あるのでしょうが今の私の知識ではこれで何とかというところです。

御助力をお願いいたします。

Comments

[Zuishin]

どこがわからないんですか？
全部とか言わないでくださいよ。

[gyaSon]

ここで伺いたいのはコンボボックスとテキストボックスの連携の方法です。
ラベルに選択されたコンボボックスの値を表示はネットにて確認できたのですが
テキストとの連携がどうにもわからない状況です

[Zuishin]

イベントドリブンはわかりますか？

[gyaSon]

わかります。
クリック等でイベント発生し、処理を実行していく
という認識でいいですか？

[Zuishin]

そうですね。
コンボボックスの内容とテキストボックスの内容から結果を計算して表示するメソッドをまず作り、コンボボックスが変化した時とテキストボックスが変化した時の両方からそれを呼べばできると思います。

[Zuishin]

また、計算(ビジネスロジック)と表示(出力)は分離できます。
一般にこれらは一つのメソッドにまとめるのではなく、別のメソッドにするのが良い方法です。
まず計算から作ってみては？

[gyaSon]

かしこまりました！
まずはアドバイスいただきましたアプローチで
自分なりに作成していきます。

ありがとうございます。

[k.matsuda]

また、分からなければ作ったコードを記載して質問して下さいね。

[k.matsuda]

comboboxもtextboxもlabelもひとつづつで良いような気もしますが…
3つある理由はなんでしょうか？

[gyaSon]

作る仕様としてcombo,text,labelを3つ用意しろとのこと・・・。
理由は何なんでしょうね。。。

[Zuishin]

多分、共通する部分をメソッドにまとめなさいという課題ではないですか？
たとえばこの部分

If ComboBox1.SelectedIndex = 0 Then
Label1.Text = ("\" & TextBox1.Text)
ElseIf ComboBox1.SelectedIndex = 1 Then
Label1.Text = ("\" & TextBox1.Text * Dollar)
ElseIf ComboBox1.SelectedIndex = 2 Then
Label1.Text = ("\" & TextBox1.Text * EUR)
End If

これは次のように書き直すことができます。

var label = Label1;
If ComboBox1.SelectedIndex = 0 Then
label.Text = ("\" & TextBox1.Text)
ElseIf ComboBox1.SelectedIndex = 1 Then
label.Text = ("\" & TextBox1.Text * Dollar)
ElseIf ComboBox1.SelectedIndex = 2 Then
label.Text = ("\" & TextBox1.Text * EUR)
End If

これで Label1 が消えたので、label に Label2 を入れても Label3 を入れても同じように使うことができます。
このような共通部分を独立したメソッドに切り出して Label1, Label2, Label3 を引数に呼び出せばコードの量をかなり減らすことができます。
ラベルだけではなく、コンボボックスやテキストボックスについても引数で渡せば、メソッドは一つで済みます。

[k.matsuda]

ちなみに。IF文で分岐させていますが
select case文でも分岐させることが出来ますよ。
分岐数が3つなので、どちらを使うかは好みで良いと思いますが

変数DollarとEURは、クラスレベルで宣言すれば各イベントごとに宣言する必要はないかと・・・

[gyaSon]

貴重なご意見ありがとうございます。
こちらを参考にさらなる修正を加えていきます。

ちなみにい一旦、この質問を解決済みにしたいのですが
どのようにすれば解決済みにできますか？

[k.matsuda]

自己解決にコメントすれば、解決済みになりますよ。

[k.matsuda]

ああ、課題だったのですね。
不自然な仕様だと思いました。

Answer 1

皆様のアドバイスにより光明が見えてきました！
ありがとうございます。