プログラムソースの冗長化解消

Question

###現状
以前、ご指導いただきましたプログラムソースの発展？です。

else Ifにて書きまくった条件文の冗長化を解消したいです！
Functionを利用してみては？とアドバイスをいただきましたが
調べてみてもなかなか、コンパイルすら通らない状況です。

下記に条件文を記載いたします。
下線から各ボタンの条件文になります。

###ソース

    Private Const Dollar As Integer = 108
    Private Const EUR As Integer = 120
    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 '円に変換
        If ComboBox1.SelectedIndex = 0 Then 'テキストボックス1の円変換
            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

        If ComboBox2.SelectedIndex = 0 Then  'テキストボックス2を円変換
            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

        If ComboBox3.SelectedIndex = 0 Then  'テキストボックス3を円変換
            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 '＄に変換
        If ComboBox1.SelectedIndex = 0 Then 'テキストボックス1のドル変換
            Label1.Text = CStr("$" & (String.Format((TextBox1.Text / Dollar).ToString("F2"))))
        ElseIf ComboBox1.SelectedIndex = 1 Then

            Label1.Text = "$" & TextBox1.Text
        ElseIf ComboBox1.SelectedIndex = 2 Then
            Label1.Text = CStr("$" & (String.Format((TextBox1.Text * EUR / Dollar).ToString("F2"))))
        End If

        If ComboBox2.SelectedIndex = 0 Then 'テキストボックス2をドル変換
            Label2.Text = CStr("$" & (String.Format((TextBox2.Text / Dollar).ToString("F2"))))
        ElseIf ComboBox2.SelectedIndex = 1 Then
            Label2.Text = "$" & TextBox2.Text
        ElseIf ComboBox2.SelectedIndex = 2 Then
            Label2.Text = CStr("$" & (String.Format((TextBox2.Text * EUR / Dollar).ToString("F2"))))
        End If

        If ComboBox3.SelectedIndex = 0 Then 'テキストボックス3をドル変換
            Label3.Text = CStr("$" & (String.Format((TextBox3.Text / Dollar).ToString("F2"))))
        ElseIf ComboBox3.SelectedIndex = 1 Then
            Label3.Text = "$" & TextBox3.Text
        ElseIf ComboBox3.SelectedIndex = 2 Then
            Label3.Text = CStr("$" & (String.Format((TextBox3.Text * EUR / Dollar).ToString("F2"))))
        End If
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click '€に変換

        If ComboBox1.SelectedIndex = 0 Then 'テキストボックス1のユーロ変換
            Label1.Text = CStr("€" & (String.Format((TextBox1.Text / EUR).ToString("F2"))))
        ElseIf ComboBox1.SelectedIndex = 1 Then
            Label1.Text = CStr("€" & (String.Format((TextBox1.Text * Dollar / EUR).ToString("F2"))))
        ElseIf ComboBox1.SelectedIndex = 2 Then
            Label1.Text = "€" & TextBox1.Text
        End If


        If ComboBox2.SelectedIndex = 0 Then  'テキストボックス2をユーロ変換
            Label2.Text = CStr("€" & (String.Format((TextBox2.Text / EUR).ToString("F2"))))
        ElseIf ComboBox2.SelectedIndex = 1 Then
            Label2.Text = CStr("€" & (String.Format((TextBox2.Text * Dollar / EUR).ToString("F2"))))
        ElseIf ComboBox2.SelectedIndex = 2 Then
            Label2.Text = "€" & TextBox2.Text
        End If

        If ComboBox3.SelectedIndex = 0 Then 'テキストボックス3をユーロ変換
            Label3.Text = CStr("€" & (String.Format((TextBox3.Text / EUR).ToString("F2"))))
        ElseIf ComboBox3.SelectedIndex = 1 Then
            Label3.Text = CStr("€" & (String.Format((TextBox3.Text * Dollar / EUR).ToString("F2"))))
        ElseIf ComboBox3.SelectedIndex = 2 Then
            Label3.Text = "€" & TextBox3.Text
        End If
    End Sub
---------------------------------------------------------------------------------------------------------
End Class

コード
```

###したいこと
線内の各ボタンにあります条件分の冗長化の解消、スッキリまとめるにはどうしたら
いいのでしょうか。

足りない情報等ありましたら何なりとお聞きください。

ご指導の程宜しくお願い致します。

Comments

[y_waiwai]

このままではコードが見づらいので、質門を編集し、<code>ボタンで、出てくる’’’の枠の中にコードを貼り付けてください

[gyaSon]

再編集いたしました。
ご指摘ありがとうございます。

[PineMatsu]

これ、すっきりまとめる前に、テキストボックスの文字列(Textプロパティ）に直接数値(DollarやEUR)を掛けてるけど、まずは文字列を数値に変換してから掛け算しないとだめです。文字列が数値でない場合は、数値変換に失敗するので、その辺りの処理も必要です。

[gyaSon]

そういったあたりも御指南いただけますと幸いです。。。
思いつく限りの内容で書いていきましたので。。。

[k.matsuda]

例えば、Button1を押したときに実行される3つの作業は、
ComboBox・TextBox・Labelが違うだけで同じ内容ですよね。
これは、前回の質問でもあったと思いますが、メソッドでまとめることが出来ます。

メソッド　引数　戻り値　などで検索すれば出てくると思います。

[papinianus]

結局なんで3セットあるのですか？

Answer 1

変換元の単位、数字、変換先の単位が引数の関数を作成すればよろしいかと思います。
そうすれば、各ボタンの処理でそれを呼ぶだけになりますよね。