如何在 vb.net 中将值从一种形式检索到另一种形式

Question

我无法将字符串从一种形式检索到另一种形式。这是我的代码：这有什么问题？

Public Class Form3

    Dim unit As String

    Public itmname As String
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim obj1 As New Form4
        itmname = tb1.Text
        MessageBox.Show(itmname)
        obj1.Label1.Text = itmname
        obj1.Show()

    End Sub
End Class
Public Class Form4
 Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With Form3
            MessageBox.Show("item name:" + .itmname)
           Label1.Text = .itmname
        End With
    End Sub
End Class

Answer 1

您不必在 Form4 中执行任何特殊代码来设置值。您已经从 from3 的按钮单击事件中设置了文本框值。再次设置只是用新实例化表单中的空白值覆盖它。只需清除您在 Form4 的加载事件中列出的所有代码，它应该可以工作。