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

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

为崂山等地区用户提供了全套网页设计制作服务，及崂山网站建设行业解决方案。主营业务为成都做网站、网站设计、崂山网站设计，以传统方式定制建设网站，并提供域名空间备案等一条龙服务，秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求，就会得到认可，从而选择与我们长期合作。这样，我们也可以走得更远！

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点虐 动态菜单如何在指定位置添加新项,并添加单击事件?

常见事件有鼠的标单击、双击、移动；

有键盘的键按下、键松开、按键；

有窗体加载、窗体卸载等等。

vb点虐 动态菜单click事件

先要新建一个index为0的菜单（设置为不可见），然后把动态生产的菜单加入进来，这样就可以使用遍历菜单的方法，并判读下当前按下的菜单名称。

参看：网页链接

vb点虐 动态菜单，如何添加事件？

动态生成的控件：

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

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

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 '添加事件

End Sub

处理事件的过程：

Private Sub mypic_Click() 'ByVal id As String

Dim bookInfo As New BookInfo

bookInfo.Show()

Me.Parent.Enabled = False

分享文章：vb点虐 动态添加事件的简单介绍
网页路径：http://lswzjz.com/article/ddeedio.html