如何在 vb.net 为动态生成的控件添加事件并传递数据

'把图片的声明放在外面，类里面过程外面，而且要用As，不然等会儿没法用

创新互联是一家专业提供桥东企业网站建设,专注与成都网站设计、成都网站建设、H5建站、小程序制作等业务。10年已为桥东众多企业、政府机构等服务。创新互联专业网络公司优惠进行中。

Dim myPicture As New System.Windows.Forms.PictureBox()

'动态生成的控件，加一行

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

Me.Panel3.Controls.Add(myPicture)

myPicture.Size =New System.Drawing.Size(115, 160)

myPicture.TabStop =False

myPicture.Name ="p"

myPicture.Cursor = Cursors.Hand

AddHandler myPicture.Click, AddressOf mypic_Click '添加事件

AddHandler returnid, AddressOf idReturned '绑定事件和过程

End Sub

'再来个事件，放在声明的地方，就是类里面、过程外面

Private Event returnid(ByVal id As String) '这个事件可以传递值哦~

'普通的单击事件

Private Sub mypic_Click()

RaiseEvent returnid(myPicture.Name)

End Sub

'会传值的事件过程

Private Sub idReturned(ByVal id As String)

Dim bookInfo As New BookInfo

bookInfo.Show()

Me.Parent.Enabled = False

'用id变量做点什么吧

End Sub

如果要改事件的签名（参数一类的）的话，得重写控件。你可以这样自己弄一个事件。

vb.net动态遍历已知父类的所有子类?

as3遍历对象所有属性的方法（包含Flex）

1、所有对象，包括静态属性和动态属性

ObjectUtil.getClassInfo(this._arr[0]).properties as Array

2、仅能遍历静态属性

var o:Object=new Object();

o.name='mm';

o.type='size';

o.size='32D';

for (var i:String in o)

{

trace(i);

trace(o[i]);

}

3、可以遍历所有属性，需要解析XML，比较麻烦

flash.utils.describeType

var oXml:XML=describeType(o);

如何在VB.NET中使用动态属性

　Visual Basic .NET支持动态属性，其动态属性储存在一个应用程序配置文件中，该文件在应用程序执行时将会被读到。使用动态属性可以在不重新编译应用程序的情况下改变一些属性值。你可以使用它们保存数据库连接字符串、应用程序日志信息或者服务器连接信息。

要看动态属性的例子，首先在Visual Basic中创建一个Windows应用程序。添加一个TextBox到默认窗体中；确认TextBox是被选中的，然后在属性窗口中定位Dynamic属性。

点击Advanced标签旁边的省略号按钮，打开一个对话框，该对话框中列出了TextBox所有的属性，选择Text属性，键映射框将会被激活。键映射决定了键储存在配置文件中的值。点击确定关闭对话框。

名称栏目：vb.net动态代码,vb动态变量
分享地址：http://ybzwz.com/article/hdjgse.html