ThaiPBL.com

เราสามารถอ่านตำแหน่งที่ คลิกเมาส์ได้โดยใช้ API function เข้ามาช่วย เพราะตำแหน่งที่เราจะอ่านนี้ไม่ใช่ตำแหน่งบน วินโดวส์ ของ PowerBuilder แต่เป็นตำแหน่งของจอภาพ

    รูปแบบของคำสั่งก็มีดังนี้

            FUNCTION boolean GetCursorPos(ref structure mousepos) LIBRARY "user32.dll"

โดยเราจะทำการเขียนเอาใว้ที่ Global External Functions หรือ Local External Functions ก็ได้

จากนั้นก็ให้สร้าง structure ขึ้นมาหนึ่งตัวกำหนดค่าลงไปดังนี้

xpos    long

ypos    long

เก็บ structure ลงชื่อ mousepos

กำหนดตัวแปรแบบ instance ขึ้นมาหนึ่งกำหนดค่าลงไปตามด้านล่าง

mosepos mouselocation

คราวนี้ก็มาลองใช้งานกันดูโดยเขียนสคริปต์ด้านล่างนี้ลงไป

IF NOT GetCursorPos( Mouselocation ) THEN
    // handle the error
ELSE
    MessageBox( "ตำแหน่งที่ท่านคลิกเมาส์คือ", "X: " + String( Mouselocation.xpos ) + " ,"Y: " + String( Mouselocation.ypos ) )
END IF

    ตัวที่จะบอกให้เราทราบถึงตำแหน่งก็คือ Mouselocation.xpos กับ Mouselocation.ypos
บทความนี้มาจาก www.soopawat.com