Question

如何运用控件数组实现多窗体控制

我在一个窗体中定义了一个命令按钮数组command1(0)-command1(29),如何实现分别调30个不同的窗体?我写的代码如下:但这句有错,N0(Index).Show(NO1...NO29为窗体名称)
Private Sub Command1_Click(Index As Integer)
Unload main
N0(Index).Show
Returnvalue = Shell("C:\Program Files\Microsoft Office\OFFICE11\FRONTPG.EXE")
End Sub
当然也可能不用按钮数组,就要用三十个子过程,我认为那太麻烦,请各位高手帮忙解决!

Answer 1

Private Sub Command1_Click(Index As Integer)

Load Form2(Index)
Form2(Index).Show

End Sub

Answer 2

窗体数组不能这么写吧。

Answer 3

建议定义变量，将变量实例化为窗体，然后show

Answer 4

Dim c As New Collection

Private Sub Command1_Click(Index As Integer)
Load c(Index)
End Sub

Private Sub Form_Load()
With c
.Add Form1
.Add Form2
.Add form3
End With
End Sub