如何动态创建label标签？

Question

谢谢

Answer 1

Dim x As Label
  Set x = Me.Controls.Add("vb.label", "x", Me)
    
    x.Caption = "lable"
    x.Move 350, 500, 3000, 4000
    x.Visible = True

Answer 2

dim MyLab as new lablemylab.left=100
mylab.top=100
mylab.caption="aaaaa"

Answer 3

用数组控件把.在form上添加一个label,将index设为0.在程序中要添家是用
load label(x) ' x >0 的任意数
label(x).... 
label(x).visable=true卸载用unload label(x)

Answer 4

我得贴也许对你又帮助
http://community.csdn.net/Expert/topic/4687/4687223.xml?temp=.9467279

Answer 5

//如何删除已建立的控件。
Unload label(x)
好像只有数组控件才能删除

Answer 6

lv1(天下)的方法是运行中添加未引用的控件，删除方法
me.controls.remove "x"

Answer 7

//如何删除已建立的控件。
Unload label(x)
好像只有数组控件才能删除
=====================
用Controls.Add方法添加的可以用Controls.Remove方法删除

Answer 8

这种方法对编程比较方便,可以动态的控制窗体的内容设定，保存尤其结合treeview或listview控件，使用比较方便．
如用treeview或listview按组分类，一种组别lable的内容不一样，
Me.Controls.Add("vb.label", "x", Me)
可动态在窗体中显示相应内容．

Answer 9

Dim x As Label
  Set x = Me.Controls.Add("vb.label", "x", Me)
    
    x.Caption = "快结帖！！"
    x.Move 350, 500, 3000, 4000
    x.Visible = True

Answer 10

表单刷新一下就可以了
或者，visible=false