none
VBで変数を用いてコントローラを指定したい RRS feed

  • 質問

  • 成績で例えると

    テキストボックス1~10に10人分の成績が入力されていて

            Dim Count1 As Long
            Dim seiseki(10) As Long

            For Count1 =  0 To 9
        seiseki(Count1) = テキストボックス + "Count1" .Text
            Next

    のようにいっぺんに読み込む方法は無いのでしょうか?

    2014年2月6日 8:52

回答

  • そのコードに一番近いやり方なら Controls プロパティを使う方法でしょう。

     For Count1 = 0 To 9
         seiseki(Count1) = Controls("TextBox" & (Count1 + 1)).Text
     Next
    
    タブコントロールやグループボックスの中に貼り付けている場合はそのコントロールの Controls プロパティから参照する必要があります。
    また、このコードでは暗黙の変換を利用しています。Text プロパティが数値変換不可能な文字列が入力されていた場合、例外が発生するので注意してください。
    • 回答の候補に設定 星 睦美 2014年2月7日 0:39
    • 回答としてマーク 星 睦美 2014年2月20日 4:22
    2014年2月6日 13:52
    モデレータ