读书人

关于一个自定义事件的响应有关问题

发布时间: 2012-03-06 20:47:55 作者: rapoo

关于一个自定义事件的响应问题?
代码如下:
主窗口:
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

读书人网 >VB Dotnet

热点推荐