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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!