怎么改变 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