投稿者 ゆう  (学生) 投稿日時 2010/2/9 10:41:38
コントロールに連番(自分の場合TextBox1~20)で名前を付け(txtstu1~txtstu20)、繰り返しの中で番号だけ変えていきたい(txtstuXでXだけ変えていく)のですが、どのようにすればよいかわかりません。
どなたか、教えていただけると助かります。
ちなみにまだVBをはじめて2日なので、そもそもプログラムとしての書き方がよくわかっていません。
正しい書き方を教えていただけると嬉しいです。

   If Len(txtstu1) >= 1 Then
            Dim txtstu as
            Dim K As Integer
   =========Dim txtstu As Object??======>>ここ
            Dim stuname as String
            For K = 2 To 20
        ========stuname = txtstu(K).text====>>ここ
                If Len(stuname) >= 1 Then
                    K = K + 1
                Else
                    Dim Values(K - 2) As String
                    Dim L As Integer
                    Dim M As Integer
                    Dim N As Integer
                    N = 1
                    L = K - 2
                    For M = 0 To L
            ============Values(M) = N & txtstu(M + 1).Text====>>ここがよくわかりません…
                        N = N + 1
                    Next
                    ListBox1.Items.AddRange(Values)
                End If

            Next
        Else
            MsgBox("名前が入力されていません。")
        End If