Значения не заполняются в форме

Question

Использование VB.Net (Приложение Windows)

В форме (называемой FirstForm) я использую текстовое поле, кнопку добавления формы, кнопку поиска.

Когда я нажимаю кнопку добавления формы, она дает новую форму (такую ​​же, как FirstForm)

Код для добавления новой формы

 Private Sub btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click
        Dim SecondForm As New FirstForm
        SecondForm.Show()
    End Sub

Код кнопки поиска

Private Sub Search_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Search.Click
     If FirstForm.Focus = True Then
                FirstForm.textbox1.Text = gridview1.Rows(crRow).Cells("code").Value.ToString().Trim()
            Else
                Dim SecondForm As New FirstForm
                SecondForm.textbox1.Text = gridview1.Rows(crRow).Cells("code").Value.ToString().Trim()

            End If
End Sub

Приведенный выше код работает, но если я нахожусь во второй форме, когда я нажимаю кнопку поиска и выбираю значение, тогда значение появляется в текстовом поле FirstForm, оно не отображается в текстовом поле SecondForm.

Если отображается SecondForm, выбранное значение должно отображаться в текстовом поле SecondForm, а не в текстовом поле FirstForm.

Как решить эту проблему.

Нужен Vb.net код справки

Answer 1

Использование «я» не решит проблему ??почему вы ссылаетесь на форму статически?

Private Sub Search_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Search.Click
     textbox1.Text = gridview1.Rows(crRow).Cells("code").Value.ToString().Trim()
End Sub

Answer 2

Использовать Me - Ссылочная переменная, которая содержит ref. текущей формы.

 Dim frm As FirstForm
 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If IsNothing(frm) OrElse frm.IsDisposed Then
            frm = New FirstForm
        End If
        frm.Show()
 End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
   Me.textbox1.Text = gridview1.Rows(crRow).Cells("code").Value.ToString().Trim()      
End Sub