【原创】vb.net 动态控件事件添加

最新推荐文章于 2021-10-15 16:09:58 发布

池上好风

最新推荐文章于 2021-10-15 16:09:58 发布

阅读量5.4k

点赞数 4

分类专栏： windows 文章标签：控件动态管理

本文链接：https://blog.csdn.net/linczone/article/details/45918313

版权

本文介绍了如何在vb.net中动态创建控件，并详细讲述了绑定事件的相关代码，包括三个关键函数的实现。

摘要由CSDN通过智能技术生成

【原创】vb.net 动态控件事件添加

这里写图片描述
添加选项后：

为实现动态添加，所需代码如下(共三个函数)：

    Private selectcond1 As String = ""  '厂家
    Private selectcond2 As String = ""  '工程队
    Private selectcond3 As String = ""  '浮动标志
    Private selectcond4 As String = ""  '是否出账
    ''' <summary>
    ''' 选择项变化响应函数
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub cobCJ_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cobCJ.SelectedIndexChanged, cobGCD.SelectedIndexChanged, cobFDBZ.SelectedIndexChanged, cobCZ.SelectedIndexChanged
        '厂家
        If Not cobCJ.Text.ToLower.StartsWith("system") And cobCJ.Text.ToString <> "" And sender Is cobCJ Then
            If cobCJ.Text.Trim <> "" Then cbCJ.Checked = True
            flp1_add(cobCJ.Text.ToString)
            Dim x As Int16 = InStr(selectcond1, cobCJ.Text.ToStrin