tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 複数のテキストボックスのコードをまとめられませんか?
投稿日: 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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。