４．Form2 からForm1 のテキストボックスの内容を読み書きする(34_Frm_04)　(旧、SampleNo.087)

１．Form2 からForm1 のテキストボックスの内容を読み書きする(34_Frm_04) ２． ３． ４． ５． ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU：x86 Option　：[Compare Text] [Explicit On] [Infer On] [Strict On] Imports ：追加なし 参照設定：追加なし 使用コン：Form1(Button1/TextBox1) 　Form2(Button1/Button2) トロール： このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので) 必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)

１．Form2 からForm1 のテキストボックスの内容を読み書きする

Form1 に記入する部分 'TextBox1のプロパティの値を設定及び取得するためのプロパティ Public Property MyForm1TextBox() As String     Get 'TextBox1.Text の内容を取得         Return TextBox1.Text     End Get     'TextBox1.Text に書き込み     Set(ByVal Value As String)         TextBox1.Text = Value     End Set End Property Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'Form2 を表示する     If f2 Is Nothing OrElse f2.IsDisposed Then         f2 = New Form2(Me)     End If     f2.Show() End Sub Private f2 As Form2 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load     'Form2 のコンストラクターのコードを記入すればエラーの波線は消えます     f2 = New Form2(Me)     f2.Show() End Sub Form2 に記入する部分 Private frm1 As New Form1 'Form2 のコンストラクター Public Sub New(ByVal f1 As Form1)     InitializeComponent()     '呼び出しの後にコンストラクターコードを追加     frm1 = f1 End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'Form2 からForm1 のテキストボックスに書き込み     frm1.MyForm1TextBox = "Form2 からの書き込みです。" End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 'Form2 からForm1 のテキストボックスの内容を読み込む     MessageBox.Show(frm1.MyForm1TextBox, "Form1 のテキストボックスの内容") End Sub

２．

３．

４．

５．

６．

検索キーワード及びサンプルコードの別名(機能名)

フォーム２からフォーム１のテキストボックスの内容を読み書きする