运行时动态添加和删除控件

weixin_33725239

于 2005-10-15 15:40:00 发布

阅读量156

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/qiyuan/archive/2005/10/15/255443.html

博客介绍了运行时动态添加和删除控件的方法。一是使用控件数组，通过 load 加载控件并设置属性，用 unload 删除；二是利用 controls 集合添加控件，还可对控件事件进行响应，同时展示了检查控件的代码。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1、使用控件数组。
dim i as int
load optch(1)
optch(1).visible=true
i=i+1
load optch(i)
with optch(i)
       .caption"button" &i
       .top=optch(i-1).top+300
       .visible=true

end with

unload optch(i)

2、controls集合来添加控件
     检查控件
    dim on as contro
   for each on in me.controls
       on.enabled=true
   next

private mop as optionbutton
private withevents mtxt as textbox   '对事件进行响应
set mop=contros.add("vb.optionbutton","mopnew",fracolors)
mopnew.caption="new color"

set mtxt=controls.add("vb.textbox","mtxtname")

转载于:https://www.cnblogs.com/qiyuan/archive/2005/10/15/255443.html