窗口(resize)后控件的大小位置随着变化！分数不够再加
各位大虾帮小弟下忙！给小弟出一个高招让（窗口(resize)后控件的大小位置随着变化），兄弟帮忙指点一条路！在下感激不尽！先谢谢啦！ 问题点数：0、回复次数：7Top
1 楼wkdcuiyi（cuiyi）回复于 2004-05-03 18:40:51 得分 0
那就在窗口的resized事件编程，要做得好的话可以根据不同的对象作调整。可以到网上找一下这样的例子。www.pdriver.comTop
2 楼klbt（快乐白兔）回复于 2004-05-03 21:42:54 得分 0
窗口有control[]控件数组，在resize事件编码，对宽度、高度控制Top
3 楼yewenlin（林子）回复于 2004-05-05 23:03:25 得分 0
我有这个代码，不过我觉得这个功能没有多在的实际用处。
由PB编程俱乐部编写的<<powerbuilder 8.0 进阶篇>>里有它的原码。到网上去找找吧。Top
4 楼10975037（猩猩）回复于 2004-05-09 15:08:15 得分 0
你的QQ 或mail, 我发给你Top
5 楼tommyhuanglei（汪洋里的海盗）回复于 2004-05-09 22:24:43 得分 0
用control[]控件数组对控件进行控制！Top
6 楼zmcant（好人）回复于 2004-05-10 10:24:07 得分 0
Long i,j,ll_index,ll_row
Integer li_width,li_height,li_objwidth,li_objheight
DragObject ldo_DragObject
Tab ltab_Object
UserObject luo_Object
ll_row = ids_wobjects.Find("tabname=objectname AND objectindex=0",1,ids_wobjects.rowCount())
IF ll_row<1 THEN
This.SetLastError("未找到窗口注册信息")
Return False
END IF
li_width = ids_wobjects.GetItemNumber(ll_row,"objectwidth")
li_height = ids_wobjects.GetItemNumber(ll_row,"objectheight")
FOR i=1 TO ids_wobjects.rowCount()
ll_index = ids_wobjects.GetItemNumber(i,"objectindex")
IF ll_index=0 THEN Continue
ldo_DragObject = iw_resize.control[ll_index]
li_objwidth = ids_wobjects.GetItemNumber(i,"objectwidth")*ai_width/li_width
li_objheight = ids_wobjects.GetItemNumber(i,"objectheight")*ai_height/li_height
ldo_DragObject.x = ids_wobjects.GetItemNumber(i,"objectxpos")*ai_width/li_width
ldo_DragObject.y = ids_wobjects.GetItemNumber(i,"objectypos")*ai_height/li_height
ldo_DragObject.width = li_objwidth
ldo_DragObject.height = li_objheight
//当对象为Tab控件时，对象内所有对象均为容器
IF typeof(ldo_DragObject)=tab! THEN
ltab_Object = ldo_DragObject
FOR j=1 TO UpperBound(ltab_Object.Control[])
luo_Object = ltab_Object.Control[j]
li_objwidth = ltab_Object.Control[j].Width
li_objheight = ltab_Object.Control[j].Height
This.of_ReSize(luo_Object,ltab_Object.Control[j].Classname(),li_objwidth,li_objheight)
END FOR
END IF
END FOR
Return True
//ids_wobjects是动态创建的dw，里面存放窗口对象的长宽Top
7 楼xyzliuin（我变，我变，我变变变）回复于 2004-05-10 11:30:33 得分 0
论坛内搜索，有很多Top
