VB 动态生成控件.pdf

动态生成控件

例子1：
VB编一个动态生成控件的程序
悬赏分：20-解决时间：2007-4-2118:03
在窗体中先放一个COMMAND1，INDEX设为0，现在要通过编程用数组动态生成共20个COMMAND，
和COMMAND1一模一样大小，4*5紧密排列，请帮忙编下吧~~~~~详细点的~~~~~~谢谢了~~！！！！
提问者：juv10delpiero-试用期一级

最佳答案
PrivateSubCommand1_Click(IndexAsInteger)
DimiAsLong
DimjAsLong
DimkAsLong
DimxAsLong,yAsLong
k=0
y=Command1(0).Top-Command1(0).Height
Fori=1To4
x=Command1(0).Left-Command1(0).Width
y=y+Command1(0).Height
Forj=1To5
k=k+1
x=x+Command1(0).Width
LoadCommand1(k)
WithCommand1(k)
.Left=x
.Top=y
.Width=Command1(0).Width
.Height=Command1(0).Height
.Caption="Command"&k
.Visible=True
EndWith
Next
Next
EndSub

例子2：

VB动态生成与删除控件收藏

生成控件有两种方法：

1.使用控件数组

先声明控件数组,要有个index=0的控件

然后

loadtext(1)

text(1).move1000,1000

text(1).visible=true

删除:

unloadtext(1)

2.使用Controls集合的Add方法，例：

DimaAsCommandButton

Seta=Controls.Add("VB.CommandButton","a2")'a2是这个控件的名称，即name属性

a.Left=0

a.Top=0

a.Caption="a2"

a.Visible=True

例2：

DimaAsVScrollBar

Seta=Controls.Add("VB.VScrollBar","vsbar")

a.Left=7485

a.Top=3945

a.Visible=True
删除：

Controls.Removea

Seta=Nothing

以下内容摘自：千千VB论坛www.thousandvb.com

1.新建一个工程，窗体Form1为缺省窗体，Form1的属性项Caption=″动态增减控件的例子″。

2.加入两个命令按钮（CommandButton）,其中：

Command1的属性项Caption=″增加控件″;

Command2的属性项Caption=″删除控件″。

3.加入如下代码，运行该工程，单击″增加控件″则出现新增按钮。若单击″新增按钮″时会出现对

话框，表明你触发的是动态增加控件的单击事件。

OptionExplicit

′通过使用WithEvents关键字声明一个对象变量为新的命令按钮

PrivateWithEventsNewButtonAsCommandButton

′增加控件

PrivateSubCommand1_Click()

IfNewButtonIsNothingThen

′增加新的按钮cmdNew

SetNewButton=Controls.Add(″VB.CommandButton″,″cmdNew″,Me)

′确定新增按钮cmdNew的位置

NewButton.MoveCommand1.Left＋Command1.Width＋240,Command1.Top

NewButton.Caption=″新增的按钮″

NewButton.Visible=True

EndIf

EndSub

′删除控件(注：只能删除动态增加的控件)

PrivateSubCommand2_Click()

IfNewButtonIsNothingThen

Else
Controls.RemoveNewButton

SetNewButton=Nothing

EndIf

EndSub

′新增控件的单击事件

PrivateSubNewButton_Click()

MsgBox″您选中的是动态增加的按钮！″

EndSub

注意：如果你希望添加一个用户控件或任何ActiveX控件到您的窗体，必须把这个控件添加到“工

具箱”，或者把控件的License关键字添加到Licenses集合中。而且，你不能选定“工