PB中窗口自动居中在线教程
减小字体
增大字体 在计算机软件开发的过程中，经常遇到计算机显示器的分辨率设置不一样的情况。如在程序设计中不注意，可能造成程序界面在不同分辨率下，显示不一致的现象。为了解决这个问题，我设计了一段程序，在每一个Windows的窗口打开之时，窗口自动位于屏幕中央。
下列代码放在Window对象的OPEN事件之中:
/* Description: This will position the window in the center of the screen.
Return: Boolean */
//声明
Environment envir
Integer li_ReturnCode
This.SetRedraw(False) // Turn redraw off
li—ReturnCode = GetEnvironment(env) // 获得屏幕分辨率的大小
li—ReturnCode=This.move((PixelsToUnits(envir.ScreenWidth, XPixelsToUnits!) － This.Width)/2 , ＆(PixelsToUnits(envir.ScreenHeight, YPixelsToUnits!) － This.Height)/2 ) // 把窗口移动到屏幕中央
This.SetRedraw(True) // Turn redraw on
IF li—ReturnCode = 1 THEN
Return 1
ELSE
Return 0
END IF
请扫描二维码添加站长微信