Form間で複数の変数を渡したい

Question

visual studio 2019
windows10

Form1の二つのTextBoxの値をForm2の二つのTextBoxへ変数を渡したいのです。
参考になるサイトを見つけ、必要事項を変更してみました。

Form1が、

        Dim f As Form2 = New Form2(社員番号.Text, 社員名.Text)   '値を渡す

        'モーダル開き、戻り値を受け取る
        If f.ShowDialog = DialogResult.OK Then
            '値を受け取る
            社員番号.Text = f.GetValue
            社員名.Text = f.GetValue
        End If
        f.Dispose()

    End Sub

Form2が、

    Friend GetValue As String
    Private 社員番号, 社員名 As Object

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'テキストボックスを入力不可にするために、EnableプロパティをFalseに設定します。
        社員番号2.Enabled = False
        社員名2.Enabled = False

    End Sub

    Public Sub New(ByVal Value As String, text As String)

        InitializeComponent()

        社員番号2.Text = Value
        社員名2.Text = Value
    End Sub

End Class

ところが、Form2の二つのTextBoxにはForm1の「社員番号.text」がそれぞれ入ってしまいます。
Forms2の「社員名2.text」にForm1の「社員名.text」を入れるにはどのようにすればよろしいでしょうか。

Answer 1

こうじゃないですか。

    Public Sub New(ByVal Value As String, text As String)

        InitializeComponent()

        社員番号2.Text = Value
-       社員名2.Text = Value
+       社員名2.Text = text
    End Sub

Valueとかtextという中身のわからない引数名にしているから混乱するんだと思います。
もうちょっと具体的な命名にしましょう。

あと

        If f.ShowDialog = DialogResult.OK Then
            '値を受け取る
            社員番号.Text = f.GetValue
            社員名.Text = f.GetValue
        End If

この部分もおかしいと思います。
GetValueが何を返すのか書かれていないんでわかりませんが、同じ値をセットしてます。

Comments

[Umeda2019]

回答ありがとうございます。
ご指摘いただいた内、上段の部分を下記の通り修正しました。

Public Sub New(ByVal 社員番号 As String, 社員名 As String)

'この呼び出しは Windows フォーム デザイナで必要です。
InitializeComponent()

社員番号2.Text = 社員番号
社員名2.Text = 社員名
End Sub

下段については変更していませんが、これで狙い通りの動きとなりました。