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

谷歌一下很多，看到：

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

————————————————

版权声明：本文为CSDN博主「沐NeMo」的原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接及本声明。

原文链接：https://blog.csdn.net/linjimu/article/details/8738197