Question

vb代码，窗体Form1 如何 动态 复制 载入100个呀。

我的窗体Form1,上面有 命令按钮 Command1，文本输入框Text1,窗体载入时调用文件1.txt.
我程序运行时，希望窗体能自动 加载 复制Form1 ，名字分别为 Form1 Form2 。。。Form100 100个，唯一的 区别每个窗体载入时，调用的文本文件分别为 1.txt 2.txt 。。。。100.txt 代码怎么写呀。

Answer 1

没敢弄多,你自己2 to 100,想必你也有100个txt做测试

Dim f() As New Form1

Private Sub Command1_Click()
ReDim f(1000)
For i = 2 To 4
f(i).Caption = "Form" & i
Open App.Path & "\" & i & ".txt" For Input Access Read As #1
Do While Not EOF(1)
Line Input #1, strTxt
f(i).Text1.Text = f(i).Text1.Text & strTxt & vbCrLf
Loop
Close #1
f(i).Show
Next
End Sub