同一のフォームを複数開いて

質問

まず、同一のフォームを複数開く。

そのフォームにテキストボックスがある時に、
複数開いた中から指定のフォームのテキストボックスに文字を挿入するにはどのようなプログラムを組めばよいでしょうか？

回答No.1

todo36 · ベストアンサー

複数起動するフォームに目印を付けておいて、
Formsコレクションから検索すればよい。

Private Sub Command1_Click()
Dim i As Integer
Dim f As Form2
For i = 1 To 3
Set f = New Form2
f.Show
f.Tag = i & "番目に起動したform2"
Next
End Sub

Private Sub Command2_Click()
Dim f As Form
For Each f In Forms
If (f.Tag = "2番目に起動したform2") Then
f.text1.Text = "Hello"
End If
Next
End Sub

回答No.2

taka_tetsu

では、複数開くときはどのように開いてますか？
できればその部分のソースを。
あと、挿入対象のフォームの指定方法は？

逆に、ここまでわかって質問されているのであれば、

フォームのインスタンス.テキストボックスの名前

で、参照できるはずです。