装载控件的问题？？？？？？？？？？？？？？？？？

Question

如果我要向窗体装载一个Line1(0)控件怎么办呢？？？？？？？
一开始窗本没有Line1对象哦．

Answer 1

要动态生成一个控件可以.
但动态生成一个控件数组却可能...1.无中生有:
Private Sub Command1_Click()
       Dim smLine As Control
       Set smLine = Me.Controls.Add("VB.Line", "smLine", Me)
       smLine.X1 = 10
       smLine.Y1 = 10
       smLine.X2 = 1000
       smLine.Y2 = 1000
       smLine.Visible = True
End Sub2.控件数组
Private Sub Command1_Click()
        Dim ID As Long
        
        ID = Line1.Count
        Load Line1(ID)
        Line1(ID).X1 = 20
        Line1(ID).Y1 = 20
        Line1(ID).X2 = 2000
        Line1(ID).Y2 = 2000
        Line1(ID).Visible = True
        
End Sub

Answer 2

比如创建了一个smLine的时候．再要创建smLine(0)呢？？？

Answer 3

//比如创建了一个smLine的时候．再要创建smLine(0)呢？？？很难。你可以事先在窗体上放一个控件，把Index属性设为0（表示这是控件数组），同时隐藏起来，然后在程序里面动态加载。