如何动态产生控件

[Steel Ren]

我想再程序中动态产生控件，比如静态文本框，有是我只需要显示一个，有时需要许多个，请问如何实现。

[jackygan]

建议：没有必要动态生成动态控件，这样会在编程上添加不少麻烦。

下面以动态生成一个SingleLineEdit控件为例说明动态生成控件的方法：
SingleLineEdit lsle_1
OpenUserObject( lsle_1, "singlelineedit", 450, 450)
lsle_1.Width = 1200
lsle_1.Height = 100

lsle_1.TabOrder = 10
lsle_1.Border = TRUE
lsle_1.BorderStyle = StyleLowered!
lsle_1.text = "一剑飘香动态创建的控件！"
lsle_1.visible = TRUE
parent.control[ UpperBound( parent.control ) + 1] = lsle_1

[Steel Ren]

动态控件建好后，如何销毁呢

[jackygan]

问得好，呵呵，我忘记了，抱歉！应该补充如下：
先将SingleLineEdit isle_1 作为实例变量，为了不失程序的可读性，建议把程序里的动态声明变量lsle_1全部改为isle_1 .
在close事件里添加如下代码：
isle_1.visible=false
destroy isle_1

//有空到我主页走走,谢谢！ http://pbcorner.yeah.net/ PB程序员一角