タイトル : 複数のテキストボックスのコードをまとめられませんか? 投稿日 : 2008/08/15(Fri) 15:58 投稿者 : イチノセ
みなさま、お世話になっております Textbox_Aに数字を打ち込むとTextbox_Bに文字が出るよう 下記のコードを組んでいます (textbox_A内) If textbox_A.Text = Nothing Then Textbox_B.Text = " " ElseIf textbox_A.Text = "1" Then Textbox_B.Text = "あ" ElseIf textbox_A.Text = "2" Then textbox_B.Text = "い" Then 'あ行からか行まで続きます End If これ一つならばこのままでもいいのですが、 textbox_Aとtextbox_Bが1ペアとして数十ペアある場合、 一つ一つ記述していったり、変更する際にかなりの時間を 費やすと思うのですが、これを一つにまとめる方法はありませんでしょうか? 本や、ネットで検索・模索しているのですが見つけられません。 [値渡し]が有効的と思い記述して、実際にTextbox_Aへ打ち込んで 見るものの反応なしです。。 下記がそのコードです Public Sub sp(ByVal i) Dim TextBox_(i) As String '入力側 Dim TextBox_(i)As String ’表示側 Dim inpt As String ’入力 Dim outp As String ’表示 outp = TextBox_(i) + ".Text" ’表示 inpt = TextBox_(i) + ".Text" ’入力 If inpt = Nothing Then outp = " " ElseIf inpt = "1" Then outp = "あ"Then ElseIf inpt = "2" Then outp = "い"Then ’あ行からか行まで続きます End If End Sub TextBox_Aには sp(A)と記述 どうかよろしくお願いします。 WinVista、VB2008 |