ループ時のコントロールの名前 への返答

投稿で使用できる特殊コードの説明。(別タブで開きます。)
本名は入力しないようにしましょう。
投稿した後で削除するときに使うパスワードです。返答があった後は削除できません。
返答する人が目安にします。相手が小学生か社会人かで返答の仕方も変わります。
最初の投稿が質問の場合、質問者が解決時にチェックしてください。(以降も追加書き込み・返信は可能です。)
※「過去ログ」について書くときはその過去ログのURLも書いてください。

以下の返答は逆順(新しい順)に並んでいます。

投稿者 (削除されました)  () 投稿日時 2010/2/10 20:01:26
(削除されました)
投稿者 (削除されました)  () 投稿日時 2010/2/10 19:56:16
(削除されました)
投稿者 (削除されました)  () 投稿日時 2010/2/10 07:50:07
(削除されました)
投稿者 (削除されました)  () 投稿日時 2010/2/10 07:29:29
(削除されました)
投稿者 (削除されました)  () 投稿日時 2010/2/10 07:29:06
(削除されました)
投稿者 ゆう  (学生) 投稿日時 2010/2/10 05:34:40
ありがとうございます。
そんなやりかたがあるんですね。
調べてみます。
あと、本(逆引き大全?)は購入を検討させていただきます。
投稿者 daive  (社会人) 投稿日時 2010/2/9 11:15:56
遅くまで御苦労さま。
例えば、調べる項目としては、

Me.Controls( )
Me.Controls( ).Controls( )

参考の書き方としては、

Me.Controls("TextBox" & ...
Me.Controls("Panel1").Controls("TextBox" & ...
Me.Controls.Find("Chk" & i.ToString, True)
DirectCast(ControlArray(0), CheckBox).Checked
Me.Controls("TableLayoutPanel1").Controls("btt" & kk.ToString("00")).Enabled = False
'
Dim lLBL1(11) As Label
Dim lTXT1(11) As TextBox
'
Dim BndngSrc(10) As BindingSource
Dim DtGrdVw(10) As DataGridView
Dim DtTbl(10) As DataTable

TextBox も、Label もフォーム上のコントロールは、オブジェクトです。
Me.Controls.Find などは、過去ログ検索をすれば、出てくるかと。

Visual Basic 2008 逆引き大全555の極意 辺りは買っておきましょう。
あせらずに、このサイト(VisualBasic中学校)の、準備講座~中級講座まで、やってみましょう。
(というのは、優しい書き方、)
ググれカスとか、書かれても面喰わないこと。(ネット上には色々な人がいます。)
ググれカス:Googleで、検索しろや、カス。見たいな意味です。
投稿者 ゆう  (学生) 投稿日時 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