vb.net动态生成类,vb动态库制作

vb.net 动态生成的控件，事件也动态加，怎么做呢？

你需要的应该是反射，类似如下，我测试通过的：

Imports System.Reflection

Public Class Form1

    Public Sub MMMToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MMMToolStripMenuItem.Click

        MsgBox("menu click")

    End Sub

    '在按钮事件处理里面通过反射名称调用相应菜单事件

    Public Sub CallEventMethod(sender As Object, e As EventArgs)

        Dim b As Button = sender '获取点击的按钮

        '拼接菜单事件名称

        Dim MethodName As String = b.Name  "ToolStripMenuItem_Click"

        Dim t As Type = Me.GetType

        Dim m As MethodInfo = t.GetMethod(MethodName)

        '反射方法

        m.Invoke(Me, New Object() {Nothing, Nothing})

    End Sub

    '动态生成了按钮

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim btn As New Button

        btn.Location = New Point(100, 100)

        btn.Name = "MMM" '关键

        btn.Text = "MMM"

        '注册事件

        AddHandler btn.Click, AddressOf Me.CallEventMethod

        Me.Controls.Add(btn) 

    End Sub

End Class

相关问答

Q1: vb.net 自建类生成类e似xx.item(0).value或者xx.Name("zhangshan").Value

'这是数组的一个方法了，可是可以给数组定义扩展方法来实现这种形式。不过要给Item每个成员能动态生成相应方法，想不出其它简单点的办法，只能一个一个的添加扩展方法。

Namespace 测试

    Public Class Item

        Public Number() As String

        Public Name As String

        Public Symbol As String

        Public Value As Single

        Public Unit As String

        Public Description As String

        Public Remarks As String

    End Class

    Public Class XX

        Public tty() As Item

        Public Sub New()

            tty(0).Name = "Women"

            tty(0).Value = 198000

            tty(1).Name = "temen"

            tty.Name("temen").Value = 99999

        End Sub

    End Class

    Public Module Module1

        System.Runtime.CompilerServices.Extension() _ 

        Public Function Name(ByVal she As Item(), ByVal key As String) As Item '定义扩展方法功能 在net.3.5前的版本像似没有。

            For Each it In she

                If it.Name = key Then

                    Return it

                End If

            Next

            Return Nothing

        End Function

    End Module

End Namespace

Q2: 关于VB.net中动态生成的控件对象

增加事件用 AddHandler 语句

AddHandler xxxx.click Addressof xxxx()

一个 sub 可以接受多个 click 事件

Q3: VB.NET 如何引用动态生成控件？

似有控件遍历窗体控件集合，或在控件集合中查询该控件名字，公用控件直接名字