Vb.net 如何通过单击用户控件上的按钮来更新窗体上的文本框

当我点击用户控件上的按钮时，我需要更新文本框的文本

---

如何操作？

在用户控件中声明一个事件，并让按钮的单击事件引发该事件：

Public Class UserControl1
  Public Event MyButtonClick As EventHandler(Of MyButtonClickEventArgs)

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    RaiseEvent MyButtonClick(Me, New MyButtonClickEventArgs("nobugz"))
  End Sub

  Public Class MyButtonClickEventArgs
    Inherits EventArgs
    Private mText As String
    Public Sub New(ByVal text As String)
      mText = text
    End Sub
    Public ReadOnly Property Text() As String
      Get
        Return mText
      End Get
    End Property
  End Class

End Class

现在，承载用户控件的表单可以订阅事件并根据需要更新文本框：

  Private Sub UserControl11_MyButtonClick(ByVal sender As System.Object, ByVal e As WindowsApplication1.UserControl1.MyButtonClickEventArgs) Handles UserControl11.MyButtonClick
    TextBox1.Text = e.Text
  End Sub

---

在用户控件中声明一个事件，并让按钮的Click事件引发该事件：

Public Class UserControl1
  Public Event MyButtonClick As EventHandler(Of MyButtonClickEventArgs)

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    RaiseEvent MyButtonClick(Me, New MyButtonClickEventArgs("nobugz"))
  End Sub

  Public Class MyButtonClickEventArgs
    Inherits EventArgs
    Private mText As String
    Public Sub New(ByVal text As String)
      mText = text
    End Sub
    Public ReadOnly Property Text() As String
      Get
        Return mText
      End Get
    End Property
  End Class

End Class

现在，承载用户控件的表单可以订阅事件并根据需要更新文本框：

  Private Sub UserControl11_MyButtonClick(ByVal sender As System.Object, ByVal e As WindowsApplication1.UserControl1.MyButtonClickEventArgs) Handles UserControl11.MyButtonClick
    TextBox1.Text = e.Text
  End Sub

---

以及如何将字符串从用户控件发送到表单

我需要将数据从用户控件发送到thr表单，并在文本框中读取它。例如：

Private Sub UserControl11_MyButtonClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles UserControl11.MyButtonClick
    TextBox1.Text = e.mystring
End Sub

---

以及如何将字符串从用户控件发送到表单

我需要将数据从用户控件发送到thr表单，并在文本框中读取它。例如：

Private Sub UserControl11_MyButtonClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles UserControl11.MyButtonClick
    TextBox1.Text = e.mystring
End Sub