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

最新推荐文章于 2021-10-15 16:09:58 发布

風雲工作室

最新推荐文章于 2021-10-15 16:09:58 发布

阅读量3.5k

点赞数 1

分类专栏： vb.net 文章标签： vb.net textbox integer string dictionary object

本文链接：https://blog.csdn.net/angxiao/article/details/7069722

版权

该代码段展示了如何在VB.NET中动态创建Label和TextBox控件，并根据指定的标签内容和控件类型进行布局。它还包含了事件处理，如确保数字文本框输入为正数，以及将Enter键响应转换为Tab键操作。

摘要由CSDN通过智能技术生成

''' <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
Next