vb.net动态生成控件并排版

关注

VIP免费原创最新推荐文章于 2025-09-30 16:01:56 发布 3.8k 阅读 AI 写同款· GEO 优化 ›

VB.NET中动态添加控件数组 VB.NET中的控件数组？项目的需求又变了，我必须要在我的窗口上根据读取的文件不同添加不同的checkbox，我本以为vb.net和vb一样一定会有控件数组呢，结果网上的高手们都说vb.net是没有控件数组这个概念的。不过可以自己写一个类来实现控件数组的功能。他们都有现成的代码，我拿来用了，很好用。这里我就只简单说一下我在用这个类的过程中出现的问题。应该比较值得提一下。阅读详情

''' <summary>
''' 动态生成控件并调整控件位置；
''' </summary>
Public Sub CreateControl(ByVal TextBoxTagContent As Dictionary(Of String, Integer), ByVal TextBoxType As List(Of Boolean))
Dim keyvalue As KeyValuePair(Of String, Integer)
TextBoxIndex.Clear()

'生成LabelBox和Textbox
'文本框区分为数字和文本两种
If TextBoxType.Count = TextBoxNum Then
For i As Integer = 0 To TextBoxNum - 1
Me.Controls.Add(New Label())

Me.Controls.Add(New TextBox())

Next
For j As Integer = 1 To TextBoxType.Count
If TextBoxType.Item(j - 1) = True Then
'添加默认值
If CType(Me.Controls.Item(2 * j - 1), TextBox).Text = "" OrElse IsNumeric(CType(Me.Controls.Item(2 * j - 1), TextBox).Text) = False Then
CType(Me.Controls.Item(2 * j - 1), TextBox).Text = "1.00"
End If
'是数字文本框时时添加事件处理
AddHandler CType(Me.Controls.Item(2 * j - 1), TextBox).LostFocus, AddressOf ActiveEvent
End If
N