Question

易语言 求大侠帮助一下 。编辑框复制组件看不到

.版本 2
.支持库 iext
.支持库 iext3

.程序集 窗口程序集1
.程序集变量 窗口数, 整数型
.程序集变量 动态浏览框, 编辑框, , "0"
.程序集变量 动态浏览框1, 透明标签, , "0"
.程序集变量 动态浏览框2, 分组框, , "0"
.程序集变量 动态浏览框3, 按钮, , "0"

.子程序 __启动窗口_创建完毕

_启动窗口.可视 ＝ 真
_启动窗口.宽度 ＝ 取屏幕宽度 ()
_启动窗口.高度 ＝ 取屏幕高度 () － 30
_启动窗口.左边 ＝ 0
_启动窗口.顶边 ＝ 0
高级选择夹1.左边 ＝ 0
高级选择夹1.顶边 ＝ 0
高级选择夹1.高度 ＝ _启动窗口.高度
高级选择夹1.宽度 ＝ _启动窗口.宽度
编辑框1.左边 ＝ 80
编辑框1.顶边 ＝ 160
编辑框1.高度 ＝ 24

.子程序 _添加_被选择

窗口数 ＝ 取数组成员数 (动态浏览框)
重定义数组 (动态浏览框, 真, 窗口数 ＋ 1)
复制窗口组件 (编辑框1, 动态浏览框 [窗口数 ＋ 1])
高级选择夹1.加入子夹 (“aaaa”, , , , )
高级选择夹1.现行子夹 ＝ 高级选择夹1.取子夹数目 () － 1
动态浏览框 [窗口数 ＋ 1].可视 ＝ 真
动态浏览框 [窗口数 ＋ 1].宽度 ＝ 高级选择夹1.宽度
动态浏览框 [窗口数 ＋ 1].高度 ＝ 高级选择夹1.高度

高级选择夹1.隐藏子夹 (0, 真)

.子程序 _高级选择夹1_子夹头被点燃
.参数 子夹索引, 整数型

动态浏览框 [高级选择夹1.现行子夹].可视 ＝ 真

.子程序 _退出_被选择

销毁 ()

Answer 1

已验证代码没有问题，可能你没有设置编辑框1的“是否允许多行”为真，所以复制出来的编辑框看上去就是一个黑框，无法输入内容。

追问

我是连复制出来的编辑框都看不到呢。

追答

怎么可能呢？画一个高级选择夹，在选择夹上画一个编辑框，选用菜单编辑器，编写一个菜单，再试试,只是下面的代码要修改一下：

子程序 _高级选择夹1_子夹头被点燃
‘不能让“高级选择夹.现行子夹＝0”
.判断开始 (高级选择夹1.现行子夹>0)
动态浏览框 [高级选择夹1.现行子夹].可视 ＝ 真
.默认

Answer 2

复制完组件后，是需要把可视设置为真的。。 所有的窗口组件复制完都需要修改可视。。。