PB中窗口自动居中

在计算机软件开发的过程中，经常遇到计算机显示器的分辨率设置不一样的情况。如在程序设计中不注意，可能造成程序界面在不同分辨率下，显示不一致的现象。为了解决这个问题，我设计了一段程序，在每一个Windows的窗口打开之时，窗口自动位于屏幕中央。

　　

下列代码放在Window对象的OPEN事件之中:

　　
EnvironmentGe_Env//EnvironmentVirable
INTEGERGi_ScreenH=0//Gi_ScreenH
INTEGERGi_ScreenW=0//Gi_ScreenW
GetEnvironment(Ge_Env)
Gi_ScreenH=PixelsToUnits(600,YPixelsToUnits!)
Gi_ScreenW=PixelsToUnits(800,XPixelsToUnits!)
This.Y=(Gi_ScreenH-This.Height)/2
This.X=(Gi_ScreenW-This.Width)/2