在我的窗体中有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)                                        剩余三个按钮相邻靠拢

按不同按钮时隐藏其中几个不同的按钮,如何让它们能自动调整各自位置

为什么传不上附件啦

需要重新排列位置时, 执行下面的命令段就是了.你可以定义为一个过程来执行


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

谢谢版主，我要的就是这个效果