E生相爱工作室

18778998308服务热线

好管家网络

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

作者: 发表时间:2020-04-21 21:48:56浏览量:1573

由于程序需要,在一个窗体中,读取数据库的记录内容,然后在界面中添加相应的按钮,供用户点击,响应对应的事件。谷歌一下很多,看到:http://developer.51cto.com/art/200910/155672.htmhttp://www.dotblogs.com.tw/yc421206/archive/2009/06/01/8636.aspxhttp://wenku.baidu.com/view/3f9d4ac39ec3d5bbfd0a749b.html参考第

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


谷歌一下很多,看到:


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




TAG:网站建设,网站推广,微信公众号开发、小程序开发、网站活动策划,H5制作,代运营,网站代运营,微信代运营,公众号代运营,网站定制,代维护
2020-04-21 21:48:56 1573浏览

联系我们

好管家网络工作室
电话:18778998308
邮箱:info@esxa.cn
地址:好管家网络工作室