ひとつのフォームを複数個開くには？

ひろし 2004-11-05 19:07:06 No: 117385

ひとつのフォームを実行時に同時に複数個開くにはどうしたら
良いでしょうか？

nanashi 2004-11-05 19:33:10 No: 117386

VB6でしょうか？
例えばこんな感じ↓で出来ます。

Sub Main()
    Dim frm1(9) As Form1
    Dim lLp As Long

    For lLp = 0 To 9
        Set frm1(lLp) = New Form1

        Load frm1(lLp)

        frm1(lLp).Show
    Next
End Sub

あとのことを考えたらFormの宣言はプロシージャの外でPublicにした方が良いかもしれませんけど。

ひろし 2004-11-05 19:50:22 No: 117387

お返事ありがとうございます。VB6使ってます。
早速試してみます。