ループ時のコントロールの名前
投稿者 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で、検索しろや、カス。見たいな意味です。
例えば、調べる項目としては、
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/10 05:34:40
ありがとうございます。
そんなやりかたがあるんですね。
調べてみます。
あと、本(逆引き大全?)は購入を検討させていただきます。
そんなやりかたがあるんですね。
調べてみます。
あと、本(逆引き大全?)は購入を検討させていただきます。
投稿者 (削除されました)  ()
投稿日時
2010/2/10 07:29:06
(削除されました)
投稿者 (削除されました)  ()
投稿日時
2010/2/10 07:29:29
(削除されました)
投稿者 (削除されました)  ()
投稿日時
2010/2/10 07:50:07
(削除されました)
投稿者 (削除されました)  ()
投稿日時
2010/2/10 19:56:16
(削除されました)
投稿者 (削除されました)  ()
投稿日時
2010/2/10 20:01:26
(削除されました)
どなたか、教えていただけると助かります。
ちなみにまだ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