在TAB键按下时在运行时添加控件

Question

如何在运行时添加控件 - 自动添加文本框和其他控件，直到按TAB控件所需的数字？

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

然后在第3个文本框中自动按Tab键后3textbox在它们下面创建？

Answer 1

如果您想添加一些控件，例如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

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