ThaiPBL.com

PowerBuilder Library Thailand

อีเมล พิมพ์ PDF

จัดให้วินโดวส์นั้นๆอยู่ตรงกลางจอ

สคริปต์ข้างล่างนี้ให้ใส่ใว้ที่ Open Event ของทุกวินโดวส์ที่เราต้องการให้วินโดวส์นั้นๆอยู่ตรงกลางจอ ทุกครั้งที่เราเปิดวินโดวส์ขึ้นมาโดยไม่คำนึงถึงขนาดของ resolution

*********************************************************************************
Arguments:

Return: Boolean
**********************************************************************************

//กำหนดตัวแปร:
Environment env
Integer li_RtnCode

// ปิดการ redraw
This.SetRedraw(False)

// อ่านขนาดจอ
li_RtnCode = GetEnvironment(env)

// จัดวินโดวส์ให้อยู่ตรงกลางจอ
li_RtnCode = This.move((PixelsToUnits(env.ScreenWidth, XPixelsToUnits!) - This.Width)/2 , &
(PixelsToUnits(env.ScreenHeight, YPixelsToUnits!) - This.Height)/2 )

// เปิดการ  redraw
This.SetRedraw(True)

IF li_RtnCode = 1 THEN
Return 1
ELSE
Return 0
END IF