UC知道如何运用控件数组实现多窗体控制
来源：百度知道 编辑：UC知道 时间：2024/09/24 14:04:34
我在一个窗体中定义了一个命令按钮数组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
当然也可能不用按钮数组,就要用三十个子过程,我认为那太麻烦,请各位高手帮忙解决!
Private Sub Command1_Click(Index As Integer)
Unload main
N0(Index).Show
Returnvalue = Shell("C:\Program Files\Microsoft Office\OFFICE11\FRONTPG.EXE")
End Sub
当然也可能不用按钮数组,就要用三十个子过程,我认为那太麻烦,请各位高手帮忙解决!
Private Sub Command1_Click(Index As Integer)
Load Form2(Index)
Form2(Index).Show
End Sub
窗体数组不能这么写吧。
建议定义变量，将变量实例化为窗体，然后show
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