PB的resize事件问题

eastseaofdragon 2001-10-08 10:58:34
在窗口大小改变时,有没有在窗口里所有控件都随之改变的通用事件呢?最好能提供代码
...全文
886 19 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
19 条回复
切换为时间正序
请发表友善的回复…
发表回复
Gw0317wzgzs 2010-06-11
  • 打赏
  • 举报
回复
看看 好不好用
eastseaofdragon 2001-10-12
  • 打赏
  • 举报
回复
up
sbks 2001-10-12
  • 打赏
  • 举报
回复
gz
yshaw 2001-10-12
  • 打赏
  • 举报
回复
把上面代码的第一段修改一下就可以了,resize前后的长宽比率要特别注意
yshaw 2001-10-12
  • 打赏
  • 举报
回复
做一个自适应屏幕分辨率的窗口,当成一个应用程序中所有窗体的基类。这样整个程序可以很好的适应屏幕分辨率的改变。实现的原理很简单,就是在窗口打开的时候去RESIZE窗口和窗口中的控件大小,位置。参看下面的源代码,可以很容易的看懂。

1。新建一个窗口。

为窗口写一个函数f_resize()大部分工作就在这里。
无输入参数
返回值为整形:

environment env
integer ii_ScreenWidth,ii_ScreenHeight
double WRadio,HRadio,Radio
integer ii_WinBolderWidth,ii_WinBolderHeight
getenvironment(env)
ii_WinBolderWidth=this.width - this.WorkSpaceWidth()//取得窗体的边框宽度
ii_WinBolderHeight=this.height - this.WorkSpaceHeight()
ii_ScreenWidth=env.screenwidth
ii_ScreenHeight=env.screenheight
//compute the radio that need be resize

WRadio=ii_ScreenWidth/800 //标准认为屏幕分辨率为800*600
HRadio=ii_ScreenHeight/600//计算出屏幕相对800*600分辨率的变化量
Radio=Min(WRadio,HRadio)
if Radio=1.0 then //if the screen is default 800*600
return 0
end if
this.hide()
this.width=(this.width - ii_WinBolderWidth)*Radio + ii_WinBolderWidth
this.height=(this.height - ii_WinBolderHeight)*Radio + ii_WinBolderHeight
integer i
dragobject temp//用于取各种控件

for i=1 to upperbound(this.control)
temp=this.control[i]//调整大小,位置
temp.width=temp.width*Radio
temp.x=temp.x*Radio
temp.y=temp.y*Radio
temp.Height=temp.Height*Radio
choose case typeof(temp)
case tab!
tab mtab
mtab=temp
mtab.textsize = mtab.textsize*Radio//设置字体
case commandbutton!
commandbutton cb
cb = temp
cb.textsize = cb.textsize*Radio

case singlelineedit!
singlelineedit sle
sle = temp
sle.textsize=sle.textsize*Radio
case editmask!
editmask em
em = temp
em.textsize = em.textsize*Radio

case statictext!
statictext st
st = temp
st.textsize = st.textsize*Radio

case datawindow! // datawindows get zoomed
datawindow dw
dw = temp
dw.Object.DataWindow.zoom = string(int(Radio*100))//注意DATAWINDOW与其它控件的不同

case picturebutton!
picturebutton pb
pb = temp
pb.textsize = pb.textsize*Radio

case checkbox!
checkbox cbx
cbx = temp
cbx.textsize = cbx.textsize*Radio

case dropdownlistbox!
dropdownlistbox ddlb
ddlb = temp
ddlb.textsize = ddlb.textsize*Radio

case groupbox!
groupbox gb
gb = temp
gb.textsize = gb.textsize*Radio

case listbox!
listbox lb
lb = temp
lb.textsize = lb.textsize*Radio

case multilineedit!
multilineedit mle
mle = temp
mle.textsize = mle.textsize*Radio

case radiobutton!
radiobutton rb
rb = temp
rb.textsize = rb.textsize*Radio

end choose
next
this.show()
return 0

函数写好以后,在窗体的OPEN事件里调用该函数即可.



http://www.csdn.net/develop/read_article.asp?id=9558
eastseaofdragon 2001-10-11
  • 打赏
  • 举报
回复
up
咖啡 2001-10-10
  • 打赏
  • 举报
回复
pb本身没有提供这个功能,用pfc可以很好的解决这个问题.
你也可以自己写代码.
eastseaofdragon 2001-10-10
  • 打赏
  • 举报
回复
up
eastseaofdragon 2001-10-10
  • 打赏
  • 举报
回复
up
lovettforever 2001-10-10
  • 打赏
  • 举报
回复
控件不多的话自己写代码比较好
jackygan 2001-10-10
  • 打赏
  • 举报
回复
可以用PFC来完成,不过我用不惯那PFC,我通常是自已开发,对你的情况的在窗口的resize事件中写语句.
whitegourd 2001-10-09
  • 打赏
  • 举报
回复
就这样吧
eastseaofdragon 2001-10-09
  • 打赏
  • 举报
回复
我也尝试一下PFC
Functions 2001-10-08
  • 打赏
  • 举报
回复
同意killerdanny(danny)
使用PFC的Resize服务,对于需要改变大小的,只需注册一下就可以了。
searoom 2001-10-08
  • 打赏
  • 举报
回复
自己写啰
killerdanny 2001-10-08
  • 打赏
  • 举报
回复
pfc
eastseaofdragon 2001-10-08
  • 打赏
  • 举报
回复
也就是说:datawindow、tab等控件能随着窗口的大小改变而同时相应扩大或缩小呢
ldk 2001-10-08
  • 打赏
  • 举报
回复
关注
pbsql 2001-10-08
  • 打赏
  • 举报
回复
若不用PFC,那就只有在resize事件里写代码实现啦

1,108

社区成员

发帖
与我相关
我的任务
社区描述
PowerBuilder 相关问题讨论
社区管理员
  • 基础类社区
  • WorldMobile
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧