殆ど同じフォームを複数同時に画面に表示するには？ (ID:87420)

名前

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

本文 プロジェクトウィザードで、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