子窗体响应主窗体事件

[dai78]

在主窗体定义事件并触发事件，子窗体如何响应事件？

[dai78]

Dim WithEvents mf As frmMain

Private Sub mf_OResize(ByVal str As String) Handles mf.OResize
MsgBox(str, MsgBoxStyle.Information, "子窗体显示字符串")
End Sub
为什么这样不行呢？

[wzuomin]

主窗体代码：
Public Class frmMain

Public Event MainEvent(ByVal str As String)

'打开子窗体
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim frm As New frmChild
frm.Show()
End Sub

'触发主窗体事件
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
RaiseEvent MainEvent("这里是你要显示的字符串信息!")
End Sub

End Class

子窗体代码：
Public Class frmChild

Private Sub frmChild_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AddHandler frmMain.MainEvent, AddressOf Me.ChildMethod
End Sub

Private Sub ChildMethod(ByVal str As String)
MsgBox(str, MsgBoxStyle.Information, "子窗体显示字符串")
End Sub

End Class

[chenxiaoguo20]

是句柄吧.