frmMain のテキスト ボックスの値を frmDepartment のテキスト ボックスに渡そうとしています。うまくいくと思った次のコードを試しましたが、うまくいきません。私は VB の新規ユーザーであり、シーションを設定するだけの単純な作業であった PHP のバックグラウンドから来ました。誰でもこれを手伝ってもらえますか?さらにコードを表示する必要がある場合は、お問い合わせください。どうもありがとう
txtDeptCustomer.Text = frmMain.txtCustomerActive.Text
frmMain では、次のような値を取得しています。
Dim value As Object = UserDataGridView.Rows(e.RowIndex).Cells(0).Value
txtCustomerActive.Text = CType(value, String)
Private Sub btnDepts_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDepts.Click
frmDepartment.Show()
End Sub
frmMainに表示されているものは大丈夫です。
frmDepartment には、このコードがあります
Private Sub txtDeptCustomer_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtDeptCustomer.TextChanged
'Dim customer As String
txtDeptCustomer.Text = frmMain.txtCustomerActive.Text
End Sub