16,552
社区成员
发帖
与我相关
我的任务
分享
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim F2 As New Form2
F2.Show()
AddHandler F2.SendEvent, New Form2.Form2Delegate(AddressOf SubReceiveMessage)
End Sub
Sub SubReceiveMessage(ByVal m As String)
TextBox1.Text = m
End Sub
End Class
Public Class Form2
Public Delegate Sub Form2Delegate(ByVal str As String)
Public Event SendEvent As Form2Delegate
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
RaiseEvent SendEvent(TextBox2.Text & "(sent by Event! )")
End Sub
End Class