tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： Re^4: テキストボックスの追加
投稿日： 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
こんな感じで読取出来ました。

ありがとうございました。
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。