VB窗体动态创建控件及控件事件VB窗体动态创建较少，今天，试着弄⼀个，专为解答之⽤。
⾸先创建⼀个空⽩窗体，调整⼤⼩，修改名称，双击窗体进⼊代码编辑界⾯：
Public Class VB解答专⽤窗体
Dim 数据列表 As DataGridView
Dim 输⼊框 As TextBox
Private Sub VB解答专⽤窗体_Load(sender As Object, e As EventArgs) Handles MyBase.Load 数据列表 = New DataGridView
数据列表.Parent = Me
数据列表.Columns.Add("序列", "序列")
数据列表.Columns.Add("内容", "内容")
'数据列表.Rows.Add(5)
AddHandler 数据列表.RowStateChanged, AddressOf 数据列表⾏状态更改
输⼊框 = New TextBox
输⼊框.Parent = Me
AddHandler 输⼊框.TextChanged, AddressOf 输⼊框输⼊更改
数据列表.Location = New Point(输⼊框.Width + 5, 2)
AddHandler 数据列表.CellDoubleClick, AddressOf 单元格双击发⽣
End Sub
Private Sub 数据列表⾏状态更改(sender As Object, e As DataGridViewRowStateChangedEventArgs)数据列表.Rows(e.Row.Index).Cells(0).Value = e.Row.Index
e.Row.HeaderCell.Value = String.Format("{0}", e.Row.Index + 1)
End Sub
Private Sub 输⼊框输⼊更改(sender As Object, e As EventArgs)
数据列表.Rows.Add(Integer.Parse(输⼊框.Text))
End Sub
Private Sub 单元格双击发⽣(sender As Object, e As DataGridViewCellEventArgs)
数据列表.Rows.Insert(e.RowIndex, 1)
End Sub
End Class
接着创建⼀个控件，并在窗体加载事件中对控件进⾏⼀些设置和添加⼀个事件：
从上图看到有波浪线，⿏标移动到波浪线处，在弹出的纠正错误框中选择⽣成⽅法存根：
删除⾃动⽣成事件中的Throw New NotImplementedException代码，写⾃⼰要处理的代码，这⾥以论坛提问为例，⿏标点击⾃动填充序号：
system的头文件
添加事件处理代码：
运⾏程序：
再次创建⼀个⽂本框控件，如上所述，同时简单设置2个控件的位置：
再次运⾏程序，在⽂本框中输⼊数字2，看运⾏效果图：

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。