タイトル | : Re^4: テキストボックスの追加 |
記事No | : 7949 |
投稿日 | : 2008/08/13(Wed) 16:30 |
投稿者 | : タロ |
魔界の仮面弁士さん、解決致しました。
Private field_txt() As System.Windows.Forms.TextBox Private field_pnl() As System.Windows.Forms.Panel
Me.field_txt = New System.Windows.Forms.TextBox(end_row - 1) {} Me.field_pnl = New System.Windows.Forms.Panel(end_row - 1) {}
For iRows = start_row To end_row Me.field_pnl(iRows - 1) = New System.Windows.Forms.Panel() With Me.field_pnl(iRows - 1) 'プロパティ設定 .Name = iRows.ToString() .BorderStyle = BorderStyle.FixedSingle .Location = New Point(0, 530 + 48 * (iRows - 1)) .Size = New Point(608, 49) End With
Me.field_txt(iRows - 1) = New System.Windows.Forms.TextBox With Me.field_txt(iRows - 1) 'プロパティ設定 .Name = "txt_KIROKU" + iRows.ToString() .Text = "" .Location = New Point(110, -1) .Multiline = True .Size = New Point(497, 49) End With
Me.Controls.Add(Me.field_pnl(iRows - 1)) field_pnl(iRows - 1).Controls.Add(field_txt(iRows - 1))
Next
Me.ResumeLayout(False)
こんな感じで無事に解決致しました。 追加ボタンを押下したら行がぺこぺこ増える仕様です。 増えた行のテキストを読み取るには、 For i = 0 To field_pnl.Count - 1 Dim cFindControl1 As Control = FindControl(Me, "txt_KIROKU" + (i + 1).ToString)
If Not cFindControl1 Is Nothing Then aa = cFindControl1.Text End If Next こんな感じで読取出来ました。
ありがとうございました。
|