コントロール配列を引数にするには？

VB初心者 2002-08-26 20:12:08 No: 104759

作成したUserControlを配列にして、それをを引数にして、Function内で配列を増加したりしたいのですが、やり方がわかりません・・・。

FormにはUserControl1(0)だけを配置し、Functionにこの(0)を渡して、(1),(2),(3),....と増加したいのですが・・・。

おやじ 2002-08-27 18:47:24 No: 104760

UserControlのindexプロパティを0にしておいて、これでいかがでしょう。
Function AddControl(i)
    Load UserControl1(i)
    With UserControl1(i - 1)
       UserControl1(i).Top = .Top + .Height + 10
    End With                        'この3行はどうでも良い
    UserControl1(i).Visible = True  'これが必要
End Function

Private Sub Command1_Click()
Number = Number + 1
AddControl(Number)
End Sub