迷茫......

[panda_lees]

在FORM中怎样动态创建一个LABEL控件？

[hhbll_2001]

Private WithEvents newlabel As Label

Private Sub Command1_Click()
If newlabel Is Nothing Then
Set newlabel = Controls.Add("vb.label", "lblnew", Me)
newlabel.Move Form1.Left + 500, 500
newlabel.Caption = "New Lable"
newlabel.Visible = True
Else
MsgBox "New Lable"
End If
End Sub

[sonicdater]

先 建了 label控件 数组。
如 Name ： lblArray(0)

加载时: Load lblArray(1)
lblArray(1).Caption = "Ok! I am the 2nd Label"
不用时：Unload lblArray(1)

[panda_lees]

请问：怎样创建label控件数组
在MSDN上没找到. :(

[foolishtiger]

在窗体上画一个Label控件,然后把它的Index属性值设为0,就是控件数组了,就可以用sonicdater(发呆呆)的方法了.

[panda_lees]

foolishtiger:
在窗体上画一个Label控件,它的Index属性值设为0,名字为：lblArray
Private Sub Form_Load()
lblArray(0).Caption = "11111"
Load lblArray(1)
lblArray(1).Caption = "dddd"
End Sub
可还是要报错。。。
:(

[panda_lees]

在窗体上画一个Label控件,它的Index属性值设为0,名字为：lblArray
Private Sub Form_Load()
lblArray(0).Caption = "11111"
Load lblArray(1)
lblArray(1).visible=true
lblArray(1).Caption = "dddd"
End Sub


OK.......