PB中窗口自动居中

　在计算机软件开发的过程中，经常遇到计算机显示器的分辨率设置不一样的情况。如在程序设计中不注意，可能造成程序界面在不同分辨率下，显示不一致的现象。为了解决这个问题，我设计了一段程序，在每一个Windows的窗口打开之时，窗口自动位于屏幕中央。 　　下列代码放在Window对象的OPEN事件之中: 　　
/ Description: This will position the window in the center of the screen. 　　 Return: Boolean / 　　 //声明 　　
Environment envir 　　
Integer li_ReturnCode 　　 // Turn redraw off 　　
This.SetRedraw(False) 　　 // 获得屏幕分辨率的大小 　　
li_ReturnCode = GetEnvironment(envir ) 　　 // 把窗口移动到屏幕中央 　　

 li_ReturnCode=This.move((PixelsToUnits(envir.ScreenWidth, XPixelsToUnits!) -This.Width)/2 , ＆(PixelsToUnits(envir.ScreenHeight, YPixelsToUnits!) -This.Height)/2 ) 　　 // Turn redraw on 　　 This.SetRedraw(True) 　　
IF li_ReturnCode = 1 THEN

Return 1 　　
ELSE 　　
Return 0 　　
END IF