如何在运行时添加控件 - 通过按 TAB 控件自动添加文本框和其他控件到所需的数量?
示例我必须添加 3 个文本框 - lname、lfname、ladd
然后在自动按下选项卡后的第三个文本框 3textbox 在它们下面创建?
如何在运行时添加控件 - 通过按 TAB 控件自动添加文本框和其他控件到所需的数量?
示例我必须添加 3 个文本框 - lname、lfname、ladd
然后在自动按下选项卡后的第三个文本框 3textbox 在它们下面创建?
如果您想在您的:上添加一些控制,例如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
如果我没有回答您的问题,请提供更多信息,以便我可以更准确地回答。