Передача значений из (DataGridView1_Click) в форме в другую подпрограмму в другой форме

Question

Я хочу передать значение из (DataGridView1_Click) в другую подпрограмму в другой форме. Как этого добиться? Есть ли способ сделать это, пожалуйста, помогите мне

Public Class SearchCustomers
Private Sub SearchCustomers_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtCustomerSearchBox.Text = ""
        CBCustomerSearch.SelectedIndex = -1
        txtCustomerSearchBox_TextChanged(Nothing, Nothing)
    End Sub

Это событие клика

  '  Private Sub DataGridView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.Click
  'FrmCustomers mycustomers = New FrmCustomers()   
  '  mycustomers.show_data(DataGridView1.CurrentRow.Cells(1).Value.ToString)
  '  End Sub

    Private Sub DataGridView1_RowsAdded(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowsAddedEventArgs) Handles DataGridView1.RowsAdded
        For I = 0 To DataGridView1.Rows.Count - 1
            DataGridView1.Rows(I).Cells(0).Value = "Go"
            Dim row As DataGridViewRow = DataGridView1.Rows(I)
            row.Height = 25
        Next
    End Sub

    Private Sub DataGridView1_CellContentClick( ByVal sender As System.Object,  ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

     End Sub

Private Sub DataGridView1_Click( ByVal sender As System.Object,  ByVal e As System.EventArgs) Handles DataGridView1.Click
            Dim oForm As New FrmCustomers()
            Dim CustomerCode As String
            CustomerCode = (DataGridView1.CurrentRow.Cells(1).Value.ToString)
            oForm.show_data(CustomerCode)
            MsgBox(DataGridView1.CurrentRow.Cells(1).Value.ToString, MsgBoxStyle.Exclamation, "Warning Message")        
End Sub
End Class

это вспомогательный метод в форме 2, я хочу, чтобы этот метод для показать данные из базы данных в TextBox, как показано в коде ниже

 Sub show_data(CustomerCod)
        OpenFileDialog1.FileName = ""
        Dim sqls = "SELECT * FROM Customers WHERE CustomerCode=N'" & (CustomerCod) & "'"
        Dim adp As New SqlClient.SqlDataAdapter(sqls, SQLconn)
        Dim ds As New DataSet
        adp.Fill(ds)
        Dim dt = ds.Tables(0)
        If dt.Rows.Count = 0 Then
            MsgBox("no record found", MsgBoxStyle.Exclamation, "warning message")
        Else
            Dim dr = dt.Rows(0)
            On Error Resume Next
            CustomerCode.Text = dr!CustomerCode
            CustomerName.Text = dr!CustomerName
            Address.Text = dr!Address
            Country.Text = dr!Country
            City.Text = dr!City
            Fax.Text = dr!Fax
            Mobile.Text = dr!Mobile
            Email.Text = dr!Email
            Facebook.Text = dr!Facebook
            Note.Text = dr!Note
            '====================== Image Reincyrpation 
            If IsDBNull(dr!Cust_image) = False Then
                Dim imgByteArray() As Byte
                imgByteArray = CType(dr!Cust_image, Byte())
                Dim stream As New MemoryStream(imgByteArray)
                Dim bmp As New Bitmap(stream)
                Cust_image.Image = Image.FromStream(stream)
                stream.Close()
                Label16.Visible = False
                '================================================
            End If
            BtnEdit.Enabled = False
            BtnDelete.Enabled = False
            BtnSave.BackColor = Color.Red
            CustomerName.Focus()
            End If 
    End Sub

Answer 1

Вы можете сделать это (просто позвонить):

Private Sub DataGridView1_Click(sender As Object, e As EventArgs) Handles DataGridView1.Click
    FrmCustomers.Show()
    FrmCustomers.Hide()
    FrmCustomers.show_data(CustomerCod)
    FrmCustomers.Dispose()
End Sub