在程序运行时增加控件

翔羽

以下是我的程序：

先在userform1窗体中加入一个commandbutton1控件

然后输入如下代码

dim mycmd as control

dim a as textbox

private sub commandbutton1_click()

set mycmd=controls.add("forms.textbox.1")

set a=mycmd

a.left=18

a.top=150

a.height=20

a.text="hello"

a.visible=true

msgbox userform1!textbox1.text

end sub

程序运行正常，没有任何问题，但是在userform1窗体始终没有所添加的textbox1控件？

我用了a.visible=true也不行，不知道这是为什么？

请大家帮忙，谢谢

翔羽

怎么在窗体中没有出现所增加的文本框控件呢？

翔羽

怎么没有人回答阿？

wyj7485

程序没多久问题在啊，是你的窗体太小啦，显示不到啊

a.left=0

a.top=0

看看

lafare

用控件数组吧，先建一个TEXTBOX，INDEX项输入0

加载时用下面的语句：

load TEXTBOX(1)

TEXTBOX(1).left=0

TEXTBOX(1).top=0

TEXTBOX.show

jb