VB.NET：从第二个表单检索值的最佳方法是什么？

Question

我正在自学 VB.Net。

这是我最近遇到的一个问题。 假设我的申请中有一个主 Form1。 Form1 调用第二个 LoginForm（顾名思义）是一个带有用户名/密码类型字段的登录窗口。 预期的行为是 LoginForm 将捕获登录详细信息并将其传递回 Form1。

做这个的最好方式是什么？

在我看来，我正在考虑像“doLogin”这样的函数调用，它将“显示”登录表单，捕获输入的数据，处理表单并返回登录详细信息（可能在某种bean中）。 不知怎的，我不认为这是可能的，

我目前拥有的不太优雅。 LoginForm由Form1模态显示（即showDialog）； “me”引用被传递到第二个窗口。 在 LoginForm 上收到用户输入后，我在 Form1 上设置一个值，然后进行处理。

每个人都是这样做的吗？

Answer 1

虽然这是用 C# 编写的，但很容易转换： C# 初学者帮助，如何将值从子窗体传递回父窗体？

Answer 2

我总是将委托传递给第二个表单，可以调用该委托将第二个表单中的值“传回”到第一个表单中。

这样你就可以避免任何紧密耦合。

经典的观察者模式。

---

示例实现如下：

向 Form1 添加委托签名。 在 Form1 的按钮单击事件处理程序中，实例化 Form2 类和 Form1 的委托。 将 Form2 的函数分配给委托，并调用委托：

'Form1.vb
Public Delegate Sub delPassData(ByVal text As TextBox)

Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click
  Dim frm As Form2 = New Form2
  Dim del As delPassData = New delPassData(AddressOf frm.funData)
  del(Me.textBox1)
  frm.Show()
End Sub

在 Form2 中，添加委托将指向的函数。 该函数会将textBox1 的文本分配给label1。

'Form2.vb
Public Sub funData(ByVal text As TextBox)
  label1.Text = text.Text
End Sub

要将数据传回 Form1，只需将 funData 设为返回所需值的函数即可。

Answer 3

您还可以使用“My.Forms”在 VB.NET 中检索数据。

下面从 LoginForm 中的文本框中获取文本，并将其放入主窗体中的文本框中。

Me.RetrievedDataTextBox.Text = My.Forms.LoginForm.Textbox1.Text