怎么自动排列窗口下的控件
如何自动排列窗口上的控件?
一个窗口上有15个按钮排成一排,现在每个按钮的visible是不定的,我加了一个ue_fresh事件,想在窗口打开以后根据每个按钮的visible重新排列按钮,以达到目的:让每个可见的按钮排在一起,不会出现中间断开的情况。该怎么写?
按钮的次序是一定的,不能搞乱了。
谢谢!
------解决方案--------------------
一个窗口上有15个按钮排成一排,现在每个按钮的visible是不定的,我加了一个ue_fresh事件,想在窗口打开以后根据每个按钮的visible重新排列按钮,以达到目的:让每个可见的按钮排在一起,不会出现中间断开的情况。该怎么写?
按钮的次序是一定的,不能搞乱了。
谢谢!
------解决方案--------------------
integer li_Count
integer li_index
li_Count = UpperBound(window.Control[])
For li_index = 1 to li_Count
if parent.control[li_index].TypeOf() = CommandButton!then
if window.control[li_index].visible then
window.control[li_index].move(xx,yy)
xx=xx+window.control[li_index].width+10
end if
end if
next