请教，请教，请教，如何动态建立控件？

Question

可以实现，你先建立一个带有index的控件然后就可以动态增加

Answer 1

一个简单的方法：
先在窗体上建一个Label1(0),然后根据你的需要改好它的各种属性
代码 写:
Load Label1(1)' 第一个
Load Label1(2)' 第二个
Label1(1).Caption="你好"
Label1(2).Caption="他好"
Label1(1).Left=......
记得释放
Unload Label1(1)
Unload Label1(2)
0的不能释放

Answer 2

用createobject为什么不行呢？我是想把控件放到数组里。

Answer 3

Controls.Add "控件类名"，"控件名"dim label1 As LabelPrivate Sub Form_Load()
   Set label1 = Controls.Add("VB.Label", "label1")
   With label1
      .Visible = True
      .Width = 2000
'      .Caption = "label1"
      .Top = 1000
      .Left = 1000
   End With
End Sub

Answer 4

Set lblGeCtrl = fName.Controls.Add("VB.Label", CtrlName.name)
            lblGeCtrl.Move CtrlName.Left, CtrlName.Top, CtrlName.Width, CtrlName.Height
            lblGeCtrl.Caption = CtrlName.Caption

Answer 5

你想用数组那只能用
load lbl(nindex)

Answer 6

早说嘛！其实很多问题在以前的贴子里都有过很好的解答,我建议大家提问前先搜一下以前的贴子,会节约很多时间的.
'
'     Author:吴文智
'       Date:2001-11-15
'Description:要试用本例请在窗体中填加一个索引为0的名为Text1的文本框
'            然后在代码窗体中粘贴如下代码
'            Good luck!
'
Option ExplicitPrivate Sub Command1_Click()
    Dim lngIndex As Long
    
    lngIndex = Text1.ubound + 1
    
    '用Controls.Add方法不能指定索引
    Load Text1(lngIndex)
    
    Text1(lngIndex).Left = 0
    Text1(lngIndex).Top = Text1(lngIndex - 1).Top + Text1(lngIndex - 1).Height
    Text1(lngIndex).Visible = True
    Text1(lngIndex).Text = Text1(lngIndex).IndexEnd SubPrivate Sub Text1_Click(Index As Integer)
    MsgBox Text1(Index).Text
End SubPrivate Sub Form_Load()
    Text1(0).Visible = False
    Text1(0).Top = 0
End Sub

Answer 7

1。contral.add加的控件用释放么
2。如果不是lable,而是我自己做的控件，我该怎么写那个"VB.label"呢？
3。我是VB白痴，昨天才开始用VB的，请各位包涵。

Answer 8

1.要删除动态添加的控件，用“移除”方法。请注意，您只能删除那些用“添加”方法添加的控件（与用“Load”语句添加的控件进行对比)下面的示例删除一个动态添加的控件：Form1.Controls.Remove "ctl1" ' 该控件的名称为 ctl1。2.自己写的控件也有一个类名，指定相应的类名即可。