如果动态的添加控件(Label or Button etc.)
如果动态的添加标签控件(或别的控件)的数量呢???
我如果将标签控件设置为数组了,包含了两个label(0),label(1).
我想在程序运行过程中,动态的添加label(2),label(3),这样行吗?
不要说先将这两上隐藏起来,用的时候再显示出来,这个我也会..
不知道我的表达是否让大家明白...
问题点数：50、回复次数：4Top
1 楼Summer006（脸都丢尽了！闭关修练。。。。）回复于 2005-11-19 09:14:15 得分 30
参看这里
http://community.csdn.net/Expert/topic/4252/4252755.xml?temp=.4006616Top
2 楼Summer006（脸都丢尽了！闭关修练。。。。）回复于 2005-11-19 09:15:04 得分 0
如果我想创建这样一个控件数组呢?
--------------------------------------
'先添加一个COMMAND1,INDEX设为0
Private 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 Sub
Private Sub Command1_Click(Index As Integer)
MsgBox "you clicked command1(" & Index & ")"
End Sub
Top
3 楼myhgyp（也许是这样的，信不信由你）回复于 2005-11-19 10:25:39 得分 20
'类模块Class1代码：
Option Explicit
Private 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 Property
Private Sub mvarCmBtn_Click()
MsgBox mvarCmBtn.Name
End Sub
'测试窗体代码：
Option Explicit
Dim a() As Class1
Private Sub Command1_Click()
Me.Controls.Remove Me.Controls("cmdobj3") '删除控件
End Sub
Private 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
Top
4 楼cuizm（射天狼 http://www.j2soft.cn/）回复于 2005-11-19 12:18:00 得分 0
上我的网站看看。有动态加载控件的源码
http://www.j2soft.cn/
VB资料->查询“动态生成控件”。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
免费的学习交流网站，欢迎大家访问！
http://www.j2soft.cn/
Top
