| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 734 人关注过本帖
标题:如何自动调数组按钮位置
只看楼主 加入收藏
qinyun
Rank: 1
等 级:新手上路
帖 子:46
专家分:0
注 册:2008-6-6
结帖率:20%
收藏
 问题点数:0 回复次数:3 
如何自动调数组按钮位置
在我的窗体中有5个按钮,组成一个数组按钮,他们分别是A(0)、A(1)、A(2)、A(3)、A(4)    当我比如点击A(0)时将A(1)、A(2)的Visible 设置为False时,如何能让其它的几个按钮A(0)、A(3)、A(4)  自动调整位置使其向左边靠拢,也就是各工具栏中效果一样,隐藏按钮时自动调整其它按钮位置

A(0)、A(1)、A(2)、A(3)、A(4)                    五个按钮相邻靠拢  

A(1)、A(2)的Visible 设置为False时        点击A(0)隐藏其中几个按钮时

A(0)、A(3)、A(4)                                        剩余三个按钮相邻靠拢

按不同按钮时隐藏其中几个不同的按钮,如何让它们能自动调整各自位置
搜索更多相关主题的帖子: 位置 工具栏 False 如何 
2010-06-26 13:39
qinyun
Rank: 1
等 级:新手上路
帖 子:46
专家分:0
注 册:2008-6-6
收藏
得分:0 
为什么传不上附件啦
2010-06-26 15:07
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
需要重新排列位置时, 执行下面的命令段就是了.你可以定义为一个过程来执行


Dim i As Long
Dim x As Long
Dim y As Long

x = A(0).Left           '取初始坐标
y = A(0).Top

For i = 0 To A.Count - 1
    If A(i).Visible Then            '依次向左排列
        A(i).Move x, y
        x = x + A(i).Width
    End If
Next i

授人于鱼,不如授人于渔
早已停用QQ了
2010-06-26 17:21
qinyun
Rank: 1
等 级:新手上路
帖 子:46
专家分:0
注 册:2008-6-6
收藏
得分:0 
回复 3楼 风吹过b
谢谢版主,我要的就是这个效果
2010-06-27 18:43
快速回复:如何自动调数组按钮位置
数据加载中...
 
   



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

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