1,488
社区成员




'例:
public class form1
Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
init(me)
end sub
Public Sub PictureBoxClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
end sub
end class
public class form2
Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
init(me)
end sub
Public Sub PictureBoxClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
end sub
end class
'等等,有很多form要初始化。
model form_init
public sub init(byval form as object)
For Each pic In form.Controls.OfType(Of PictureBox)()
Dim picture As PictureBox
picture = pic
AddHandler picture.Click, AddressOf form.PictureBoxClick
Next
end sub
end model
'要达到的效果是,传递一个form1变量,这是类变量。动态根据我是from1还是from11,form21等等,为变量赋值。
'这个传递过来的变量是class类型的,不知道如何接受,像我上面的程序是有问题的。
'提示:错误“PictureBoxClick”不是“System.Windows.Forms.Form”的成员。