VB.NET Tips - 親フォームのコントロールを子フォームからアクセスする方法

ある親フォームから別の子フォームを表示し、その子フォームから親のフォームのコントロールをアクセスしたい場合があります。 親フォームに公開プロパティ及び公開メソッドを持ち、それを介してデータのやり取りを行います。

以下の例では、親フォームから子フォームを呼出した時に、子フォームから親フォームのテキストボックスの 「Text」を取得し、子フォームのテキストボックスの「Text」に初期設定します。
その後、子フォームのボタンを押下することで、親フォームのテキストボックスの「Text」に 子フォームのテキストボックスの「Text」を再設定します。

以下の画像は、親フォームのテキストボックスに「aaaaa」を入力し、子フォームを表示した子フォームを表示した様子です。

その後、子フォームのテキストボックスを「bbbbbbbb」と入力し、子フォームのボタンを押下し親フォームに戻った時を表示した画像です。

以下のソースは、親フォームのクラスの宣言ですが、子フォームから直接テキストボックスにアクセスせずに プロパティを介して行う様にしています。
また、プロパティではなくメソッドからアクセスできる様にもしてあります。 （内容的には自分自身のプロパティを利用してはいますが）

親フォームのクラス

子フォームの処理は以下の様になります。

子フォームのクラス

この子ウインドウのコンストラクタでは、引数の親フォームのオブジェクト参照を プライベート変数に退避しています。 この変数を介して親フォームクラスのプロパティ及び、メソッドにアクセスします。

フォームロード時には親フォームのテキストボックスの内容を、 自分自身のテキストボックスに設定しています。

「設定(プロパティ)」ボタンクリックイベントでは 自分自身のテキストボックスの内容を、親フォームのプロパティに設定し、 それにより親フォームのテキストボックスの内容が変更されます。 「設定(メソッド)」ボタンクリックイベントでは、 親フォームのメソッドを呼び出すことで 親フォームのテキストボックスの内容を変更しています。

通常ではコンストラクタを変更することは無いのですが、 コンストラクタに引数を持たせるための方法を説明します。

最初に子フォームのソース上で Sub New と入力した時点で 以下のソースまでは自動で生成されますので、あとは「呼び出しの後で初期化を追加します。」の 後に必要な処理を追加します。

今回の例ではクラス生成の時の引数として親フォームの参照を渡しますので、 ソースは以下の様になります。