| 网站首页 | 业界新闻 | 群组 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 455 人关注过本帖
标题:怎么改变 Controls 对应的控件名称?
只看楼主 收藏
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:72
帖 子:2410
专家分:5765
注 册:2015-3-25
结帖率:98.86%
  已结贴   问题点数:20  回复次数:1   
怎么改变 Controls 对应的控件名称?
Controls 用于存取容器对象中控件的数组。


上面第1个图是设计界面,第7个是最后加上去的。第2个图是运行效果图,最后加的那个图跑到最后去了。
要怎么修改,在能保持他的位置不变?
我是这样遍历的。
LOCAL nLeft
nLeft = 5

FOR EACH oBar IN this.Controls &&遍历整个 Cnt_Bar
    IF oBar.Visible = .t.
       oBar.Left = nLeft
       nLeft = nLeft + oBar.Width + 5

    ENDIF
    IF LOWER(oBar.Class) = LOWER("Container") &&容器的图片
       IF oBar.image1.Enabled = .f.
          oBar.image1.Picture = "img\ToolBar\" + oBar.Name + "02.png"
       ELSE
          oBar.image1.Picture = "img\ToolBar\" + oBar.Name + "01.png"
       ENDIF
    ENDIF
ENDFOR
this.Width = nLeft + 5

附件: 您没有浏览附件的权限,请 登录注册
搜索更多相关主题的帖子: 效果图  图片  
2017-05-14 11:21
xinjie
Rank: 6Rank: 6
等 级:贵宾
威 望:17
帖 子:227
专家分:436
注 册:2007-8-11
  得分:20 
删除文本框和查找,保存
再打开,再依次加文本框和查找,保存。
试试。
2017-05-14 11:28







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.064209 second(s), 9 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved