いつもお世話になっております。
環境：Windows2000 VB6.0SP5
現在、ポップアップで小さなフォームを複数(20個)同時表示させるために、
デザイン時に２０個のフォームを作成しています。
殆ど内容は同じなので、
何とかまとめられないものかと色々考え調べていたのですが、
ソースのほうが複雑になってしまったりと、行き詰っております。
どなたかヒントを頂けないでしょうか。
プロジェクトウィザードで、MDIタイプを選択すると、
同等のフォームを複数作成する方法がわかりますよ。
イメージ的には、
Public F1 As Form1, F2 As Form1
Set F1 = New Form1
Set F2 = New Form1
F1.Show
F2.Show
のような感じです。これで、Form1が2つ表示されます。
# この場合、Form1.Show や Form1.TextBox1.Text などの構文は
# 併用しないで下さい。併用すると、Form1が「F1」「F2」「Form1」という
# 3つのキーワードで管理される事になってしまいます。
20個固定という事であれば、配列で管理しても良いかも知れませんね。
Public MyForm(19) As Form2
Private Sub Form_Load()
Dim I As Integer
For I = 0 To 19
Set MyForm(I) = New Form2
Load MyForm(I)
MyForm(I).Caption = CStr(I) & "番目のフォーム"
MyForm(I).Show
Next
End Sub
魔界の仮面弁士様
御助言感謝致します。
>プロジェクトウィザードで、MDIタイプを選択
大変参考になりました。
New Form を使用して、配列で考えてみようと思います。
はやくお尋ねすれば良かった．．．。
ありがとう御座いました！