VB.Net程序设计：动态添加按钮或者控件

由于程序需要，在一个窗体中，读取数据库的记录内容，然后在界面中添加相应的按钮，供用户点击，响应对应的事件。

谷歌一下很多，看到：
http://developer.51cto.com/art/200910/155672.htm http://www.dotblogs.com.tw/yc421206/archive/2009/06/01/8636.aspx http://wenku.baidu.com/view/3f9d4ac39ec3d5bbfd0a749b.html
参考第一篇文章，已经够我用的了。

测试项目：vs2008 用到的主要控件：FlowLayoutPanel 作为按钮的容器（有将容器里面的控件自动摆放排列的功能）。

IDE设计界面：



运行结果界面：



扩大窗口宽度：部门8和部门9的两个按钮自动排列到部门7后面。



点击某个按钮：响应的事件。



已经够用了。

源代码：

Public Class FrmAddBtns

Dim index As Integer = 1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'創建一個按鈕
Dim btn As New Button
'修改按鈕屬性
btn.Text = "部門" & index
btn.Height = 30
btn.Tag = index
index += 1
'綁定點擊按鈕事件
AddHandler btn.Click, AddressOf Btns_Click
'把控件添加到容器中 FlowLayoutPanel1 （有將容器裏面的控件自動擺放排列的功能）
'聽說windows 8 的初始介面也是用這個控件的。
FlowLayoutPanel1.Controls.Add(btn)
End Sub

Private Sub Btns_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
'判斷鼠標點擊的是否是按鈕控件
If Not sender.GetType() Is GetType(Button) Then
MessageBox.Show("觸發的不是按鈕控件")
Return
End If
'設置觸發物對象給臨時變量 btn
Dim btn As Button = sender
'顯示你點擊的對象的相關屬性，或者處理其他相關按鈕對應的事件。如某個部門的所有員工。
MessageBox.Show("你點擊的按鈕: " + btn.Text & " tag值: " & btn.Tag.ToString, "觸發事件：")
End Sub

End Class