以编程方式创建文本框

时间:2015-09-25 13:10:05

标签: vb.net

我需要读取数据网格数量的项目,并以编程方式将标签添加到一个tabControl。读取数据网格没问题,在tabcontrol中创建模型没问题。因此,我读取项目数,相应地创建选项卡,所有文本框都已具有正确的值,依此类推。 此时,用户将更新创建的选项卡上的一些信息,并需要单击“更新”按钮。此时,我需要逐个读取所有选项卡,访问所有创建的文本框,并将其发送到我的数据库。 我到目前为止唯一没有结果的是“如何访问这些以编程方式创建的文本框?

这就是我在TabControl

中创建文本框的方法
    Dim TXT As New TextBox
        TXT = New TextBox
        TXT.Location = New System.Drawing.Point(213, 25)
        TXT.Width = 303
        TXT.TextAlign = HorizontalAlignment.Center
        TXT.Name = "TXT_02_" & tab_counter
        TXT.Text = MAT_DTCP(1) 'ABERTURA
        TXT.BackColor = ColorTranslator.FromOle(RGB(128, 255, 255))
        FORM_01.TBC_DTCP.SelectedTab.Controls.Add(TXT)

1 个答案:

答案 0 :(得分:0)

您可以使用LINQ:

Dim allTextBoxes = From tab In FORM_01.TBC_DTCP.TabPages.Cast(Of TabPage)()
                   From txt In tab.Controls.OfType(Of TextBox)()
                   Where txt.Name.StartsWith("TXT_02_")
                   Select txt
For Each txt As TextBox In allTextBoxes
    ' ...  '
Next