关于一个自定义事件的响应问题？
代码如下：
主窗口：
Public Class Form1
Public Event onclickbutton(ByVal value As Integer)
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Static count As Integer = 0
count += 1
RaiseEvent onclickbutton(count)
Form2.Show()
End Sub
End Class
从窗口
Public Class Form2
Public WithEvents mainform As Form1
Private Sub mainform_onclickbutton(ByVal value As Integer) Handles mainform.onclickbutton
Me.Label2.Text = CStr(value)
End Sub
End Class
本人想要的结果是把在主窗体的按钮点击次数通过从窗体显示出来。
可是运行了该代码后，从窗体就是不能接收count值。
我是要通过自定义时间来完成这一程序，希望有人给出问题的所在。
[解决办法]
Public Class Form1
Public Event onclickbutton(ByVal value As Integer)
private count As Integer = 0
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
count += 1
Form2.Owner=Me;
Form2.Show()
RaiseEvent onclickbutton(count)
End Sub
End Class
Public Class Form2
Private sub Form_Load(Byval Sender as obejct,byval e as System.eventargs) handles Mybase.Load
if not me.Owner is nothing then
addhandler me.Owner.onclickbutton,addressof mainform_onclickbutton
end if
end sub
Private Sub mainform_onclickbutton(ByVal value As Integer)
Me.Label2.Text = CStr(value)
End Sub
End Class
