-1

如何在运行时添加控件 - 通过按 TAB 控件自动添加文本框和其他控件到所需的数量?

示例我必须添加 3 个文本框 - lname、lfname、ladd

然后在自动按下选项卡后的第三个文本框 3textbox 在它们下面创建?

4

1 回答 1

0

如果您想在您的:上添加一些控制,例如TextBox使用KeyDown事件Form

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs)
Dim c As Integer = 0
If e.KeyCode = Keys.Tab Then
    Dim txtRun As New TextBox()
    txtRun.Name = "txtDynamic" & System.Math.Max(System.Threading.Interlocked.Increment(c),c - 1)
    'name
    txtRun.Location = New System.Drawing.Point(20, 18 + (20 * c))
    ' Location of new control
    txtRun.Size = New System.Drawing.Size(200, 25)
    ' size
    Me.Controls.Add(txtRun)
End If
End Sub

如果我没有回答您的问题,请提供更多信息,以便我可以更准确地回答。

于 2013-11-15T08:46:06.667 回答