以下是引用tennis在2015/2/26 15:28:00的发言:项目太大了,算了重新做一个 !!
请问如何知道按到pictureviewer 控件??
汗.....
全局代码
Public Sub PictureView1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
MessageBox.Show("点击了PictureView1")
End Sub
绑定事件代码
Dim c = forms("窗口1").Controls("PictureViewer1").basecontrol.Controls(0).panel1.controls("PictureSplitContainer").controls(0).Controls
Dim obj1 As Windows.Forms.Control = c(0)
Dim obj2 As Windows.Forms.Control = c(0).Controls(0)
Dim obj3 As Windows.Forms.Control = c(0).Controls(1)
Dim obj4 As Windows.Forms.Control = c(0).Controls(2)
addHandler obj1.Click, AddressOf PictureView1_Click
addHandler obj2.Click, AddressOf PictureView1_Click
addHandler obj3.Click, AddressOf PictureView1_Click
addHandler obj4.Click, AddressOf PictureView1_Click
c = forms("窗口1").Controls("PictureViewer1").basecontrol.Controls(0).panel1.controls("PictureSplitContainer").controls
Dim obj5 As Windows.Forms.Control = c(1)
For Each obj6 As Windows.Forms.Control In c(1).Controls(0).Controls
addHandler obj6.Click, AddressOf PictureView1_Click
Next
addHandler obj5.Click, AddressOf PictureView1_Click