PB应用程序总是显示在屏幕中心

PB窗口w_main的open()事件中加入以下代码：

Environment  var_en     //声明环境变量
int  sWidth,sHeight

setRedraw(False)      //关闭窗口刷新
GetEnvironment(var_en)    //获取当前屏幕的宽度和高度
sWidth = PixelsToUnits(var_en .ScreenWidth,XpixelsToUnits!)
sHeight = PixelsToUnits(var_en .ScreenHeight,YpixelsToUnits!)

//移动窗口到屏幕中心
move((sWidth - This.Width)/2,(sHeight - this.Height)/2)  
SetRedraw(True)    //打开窗口刷新