如果动态的添加控件(Label or Button etc.)

Question

如果动态的添加标签控件(或别的控件)的数量呢???我如果将标签控件设置为数组了,包含了两个label(0),label(1).
我想在程序运行过程中,动态的添加label(2),label(3),这样行吗?不要说先将这两上隐藏起来,用的时候再显示出来,这个我也会..不知道我的表达是否让大家明白...

Answer 1

参看这里
http://community.csdn.net/Expert/topic/4252/4252755.xml?temp=.4006616

Answer 2

如果我想创建这样一个控件数组呢?
--------------------------------------
'先添加一个COMMAND1,INDEX设为0Private Sub Form_Load()
Command1(0).Visible = False
For I = 1 To 5
Load Command1(I)
Command1(I).Move 0, I * 300, 1000, 300
Command1(I).Visible = True
Command1(I).ToolTipText = "command1(" & I & ")"
Next
End SubPrivate Sub Command1_Click(Index As Integer)
MsgBox "you clicked command1(" & Index & ")"
End Sub

Answer 3

'类模块Class1代码：
Option ExplicitPrivate WithEvents mvarCmBtn As Label
Public Property Set CmBtn(ByVal vData As Label)
    Set mvarCmBtn = vData
End Property
Public Property Get CmBtn() As Label    Set CmBtn = mvarCmBtn
End PropertyPrivate Sub mvarCmBtn_Click()
MsgBox mvarCmBtn.Name
End Sub
'测试窗体代码：
Option Explicit
Dim a() As Class1Private Sub Command1_Click()
Me.Controls.Remove Me.Controls("cmdobj3") '删除控件
End SubPrivate Sub Form_Load()
ReDim a(5)
Dim i As Integer
For i = 0 To 5
Set a(i) = New Class1
Set a(i).CmBtn = Me.Controls.Add("VB.Label", "cmdObj" & i)
a(i).CmBtn.Caption = "LbObj" & i
a(i).CmBtn.Visible = True
a(i).CmBtn.Top = i * 500
Next i
End Sub

Answer 4

上我的网站看看。有动态加载控件的源码http://www.j2soft.cn/VB资料->查询“动态生成控件”。＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
免费的学习交流网站，欢迎大家访问！
http://www.j2soft.cn/