网站 › 『 Sybase PowerBuilder 』 › [转帖]PB设计窗口按比例缩放

ehxz 发表于 2007-4-28 15:09:39

[转帖]PB设计窗口按比例缩放

<p>1.实例变量：Int&nbsp;ii_width,ii_height<br/><br/><br/>2.OPEN事件加入：<br/><br/>ii_width&nbsp;=&nbsp;This.Width<br/>ii_height&nbsp;=&nbsp;This.Height<br/><br/><br/>3.<br/><br/>在RESIZE事件中加入：<br/>Int&nbsp;li_value<br/>DragObject&nbsp;lw_obj<br/>For&nbsp;li_value&nbsp;=&nbsp;1&nbsp;To&nbsp;UpperBound(This.Control[])<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;lw_obj&nbsp;=&nbsp;control<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;lw_obj.x&nbsp;=&nbsp;lw_obj.x&nbsp;*&nbsp;(NewWidth&nbsp;/&nbsp;ii_width)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;lw_obj.width&nbsp;=&nbsp;lw_obj.width&nbsp;*&nbsp;(NewWidth&nbsp;/&nbsp;ii_width)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;lw_obj.y&nbsp;=&nbsp;lw_obj.y&nbsp;*&nbsp;(NewHeight&nbsp;/&nbsp;ii_height)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;lw_obj.height&nbsp;=&nbsp;lw_obj.height&nbsp;*&nbsp;(NewHeight&nbsp;/&nbsp;ii_height)<br/>Next<br/>ii_width&nbsp;=&nbsp;NewWidth<br/>ii_height&nbsp;=&nbsp;NewHeight<br/><br/>可以了！！</p><p>原来不是很麻烦~~自己却一直没有搞定</p>

查看完整版本: [转帖]PB设计窗口按比例缩放