ループ時のコントロールの名前 への返答
投稿で使用できる特殊コードの説明。(別タブで開きます。)
以下の返答は逆順(新しい順)に並んでいます。
投稿者 (削除されました) ()
投稿日時
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 逆引き大全５５５の極意 辺りは買っておきましょう。
あせらずに、このサイト（VisualBasic中学校）の、準備講座～中級講座まで、やってみましょう。
（というのは、優しい書き方、）
ググれカスとか、書かれても面喰わないこと。（ネット上には色々な人がいます。）
ググれカス：Googleで、検索しろや、カス。見たいな意味です。
例えば、調べる項目としては、
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 逆引き大全５５５の極意 辺りは買っておきましょう。
あせらずに、このサイト（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
どなたか、教えていただけると助かります。
ちなみにまだ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