不看会后悔的Windows XP之经验谈	简单快捷DIY实用家庭影院

如何控制弹出窗口在屏幕的正中间啊？

楼主njscorpio（潜水王）2002-04-17 22:07:54 在 PowerBuilder / 基础类提问

如何控制弹出窗口在屏幕的正中间啊？问题点数：20、回复次数：13Top

1 楼swjtu95（老狼）回复于 2002-04-17 22:09:00 得分 5

environment env_g
int screenheight, screenwidth

if GetEnvironment(env_g) =1 then
screenheight = PixelsToUnits(env_g.screenheight,YPixelsToUnits!)
screenwidth = PixelsToUnits(env_g.screenwidth,XPixelsToUnits!)
this.x=(screenwidth - this.width)/2
this.y=(screenheight - this.height)/2
end ifTop

2 楼dibov（迪波威）回复于 2002-04-17 22:10:07 得分 0

同上Top

3 楼swjtu95（老狼）回复于 2002-04-17 22:13:38 得分 0

:)Top

4 楼samuria（呵呵）回复于 2002-04-17 22:37:59 得分 2

同上，在PFC里，有一个父类窗口W_center，好象叫这个名字，继承它就可以保证你的窗口出现在正中间了Top

5 楼liulee（流方）回复于 2002-04-17 23:07:32 得分 2

8.0中直接有center属性．
Top

6 楼njscorpio（潜水王）回复于 2002-04-18 00:52:31 得分 0

不是窗口的中间，是屏幕的中间。

弹出窗口是用来输入用户名和密码的Top

7 楼njscorpio（潜水王）回复于 2002-04-18 00:53:20 得分 0

版主啊，我用的是6.5

：（Top

8 楼xjbs（大鱼）回复于 2002-04-18 01:06:02 得分 0

设计时把它放到正中间，，
PB自带的例子里有一个放到正中间的，，Top

9 楼xjbs（大鱼）回复于 2002-04-18 01:18:32 得分 5

/**************************************************************/
// 说明
// 此函数用于将窗体移到屏幕正中间
// HTW****Xjbs
/**************************************************************/
// 说明
// 此函数用于将窗体移到屏幕正中间
// HTW****Pzs
// 2001.03.24
/**************************************************************/
int i_ScreenHeight,i_ScreenWidth,i_WindowX=1,i_WindowY=1
int i_W_MoveReturn
environment lenv_obj

//检查WINDOW是否已生成
if isnull(this) or not isvalid(this) then return -1
//获取环境变量
If GetEnvironment ( lenv_obj ) = -1 Then Return -1
//获取屏幕宽度
i_ScreenHeight = PixelsToUnits ( lenv_obj.ScreenHeight, YPixelsToUnits! )
i_ScreenWidth = PixelsToUnits ( lenv_obj.ScreenWidth, XPixelsToUnits! )
If Not ( i_screenheight > 0 ) Or Not ( i_screenwidth > 0 ) Then Return -1
//获取屏幕/窗体中心点
if i_ScreenHeight>this.height then
i_WindowY=i_ScreenHeight/2 - this.height/2
end if
if i_ScreenWidth>this.width then
i_WindowX=i_ScreenWidth/2 - this.width/2
end if

//移动窗体
i_W_MoveReturn=this.move(i_WindowX,i_WindowY)
if i_W_MoveReturn<>1 then return -1

return 1
Top

10 楼powerbu（变）回复于 2002-04-18 01:20:45 得分 0

收工！Top

11 楼njscorpio（潜水王）回复于 2002-04-22 22:15:15 得分 0

to xjbs(大鱼)

在什么地方写啊，我写了，提示好多错误啊Top

12 楼swjtu95（老狼）回复于 2002-04-22 22:17:45 得分 1

把我写的放在window的open中Top

13 楼xiaoxianhe（笑仙鹤）回复于 2002-04-22 22:55:14 得分 5

在窗口的Open里写“
environment env_g
int screenheight, screenwidth

if GetEnvironment(env_g) =1 then
screenheight = PixelsToUnits(env_g.screenheight,YPixelsToUnits!)
screenwidth = PixelsToUnits(env_g.screenwidth,XPixelsToUnits!)
this.x=(screenwidth - this.width)/2
this.y=(screenheight - this.height)/2
end if

Top