809
社区成员
- 主页
- API 调用
- 基础类
- 控件与界面
- 数据库相关
- DataWindow
- 项目管理
- Web 应用
- 脚本语言
...全文
请发表友善的回复…
发表回复
jackygan 2003-01-06
问得好，呵呵，我忘记了，抱歉！应该补充如下：
先将SingleLineEdit isle_1 作为实例变量，为了不失程序的可读性，建议把程序里的动态声明变量lsle_1全部改为isle_1 .
在close事件里添加如下代码：
isle_1.visible=false
destroy isle_1
//有空到我主页走走,谢谢！ http://pbcorner.yeah.net/ PB程序员一角
先将SingleLineEdit isle_1 作为实例变量，为了不失程序的可读性，建议把程序里的动态声明变量lsle_1全部改为isle_1 .
在close事件里添加如下代码：
isle_1.visible=false
destroy isle_1
//有空到我主页走走,谢谢！ http://pbcorner.yeah.net/ PB程序员一角
Steel Ren 2003-01-06
动态控件建好后，如何销毁呢
jackygan 2003-01-06
建议：没有必要动态生成动态控件，这样会在编程上添加不少麻烦。
下面以动态生成一个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
下面以动态生成一个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