Form間にてテキストボックスの値を操作する方法 (ID:107907)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 nanashiさん、魔界の仮面弁士さんどうもありがとうございました。 おっしゃる通り、以下のコードでは何度もForm_Loadが呼び出されていました。 > Sub Main() > Set Form1 = New Form1 > Form1.GetInstance '独自定義のメソッド > Load Form1 > Form1.Show > End Sub Formのメモリ上の状態についてきちんと把握していなかったためでした。 > Set Form1 = New Form1 自分の考えでは、以下のように理解したのですがどうでしょうか。 暗黙ででフォーム名の付いたオブジェクト（クラス）Ａが存在しているにも関わらず、上記の「Set = New」にてフォームのインスタンスＢを生成し、これに対してShowをした。 しかし、Form2ではShowされていない暗黙のオブジェクト（クラス）Ａに対して以下の処理を行ったため、 > Form1.Text1 = Text1 ← ① まだ、暗黙の宣言しかされていないオブジェクト（クラス）Ａが、まさに自動でロードされ、フォームのインスタンスＡが生成され、それに対して代入処理がなされた。しかし、インスタンスＡはShowされているわけではないため、単なる変数に見える。 ということで、シンプルに '標準モジュール Sub Main() Form1.Show End Sub 'form1 Private Sub Form_Load() '---処理--- End Sub Private Sub Command1_Click() Form2.Show End Sub 'form2 Private Sub Form_Load() '---処理--- End Sub Private Sub Text1_Change() Form1.Text1 = Text1 End Sub と変更しました。