別のフォームからフォームを開き、値を取得して最初のフォームに戻します。

Question

2つのフォームにテキストボックスとボタンがあり、最初のフォームで2番目のフォームを開きます。次に、2番目のフォームのボタンをクリックすると、テキストボックスの値を最初のフォームのテキストボックスに渡して渡すように、2番目のフォームのテキストボックスに値を入力します。

Public Class Form1 

    WithEvents fr2 As New Form2 

    Private Sub btngetvalue_Click(sender As Object, e As EventArgs) Handles btngetvalue.Click 
     fr2.Show() 
    End Sub 

    Private Sub fr2_passvalue() Handles fr2.passvalue 
     Me.txtform1.Text = fr2.txtform2.Text 
    End Sub 

End Class 

Public Class Form2 

    Event passvalue() 

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

    End Sub 

    Private Sub btnpassvalue_Click(sender As Object, e As EventArgs) Handles btnpassvalue.Click 
     RaiseEvent passvalue() 
     Me.Close() 
    End Sub 

End Class 

：私は現在、ここでは2015

Visual Studioでvb.netを使用しています

私がこれまで運でこれをやろうとしてきた

は...私のコードです私はコントロールに直接アクセスしようとしましたが、vb.netがすべてのクラスを使用するようになっても機能しません。私はこれを回避する方法を理解していないようです。

Answer 1

イベントを再定義して文字列を渡します。 Form2イベントを使用して、ハンドラに値を渡します。

Public Class Form2 

    Public Event passvalue(text As String) 

    Private Sub btnpassvalue_Click(sender As Object, e As EventArgs) Handles btnpassvalue.Click 
     RaiseEvent passvalue(txtform2.Text) 
     Me.Close() 
    End Sub 

End Class 

Form1のTextBoxを更新してください。

Public Class Form1 

    WithEvents fr2 As Form2 

    Private Sub btngetvalue_Click(sender As Object, e As EventArgs) Handles btngetvalue.Click 
     fr2 = New Form2() 
     fr2.Show() 
    End Sub 

    Private Sub fr2_passvalue(text As String) Handles fr2.passvalue 
     Me.txtform1.Text = text 
    End Sub 

End Class 

以前のように、Form1はForm2のコントロールに直接アクセスしていたため、イベントの目的が壊れていました。

Answer 2

グローバル変数（Public）を定義するだけで、両方のフォームからアクセスできます。