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 SubEnd Class