ThaiPBL.com

PowerBuilder Library Thailand

อีเมล พิมพ์ PDF

วิธีเซตให้ Hourglass cursor


เรามีวิธีเซตให้ Hourglass cursor อยู่นิ่งๆได้ด้วย Function API โดยมีขั้นตอนดังต่อไปนี้

    กำหนดฟังก์ชั่นก่อนโดยทำการ declare external function ดังนี้

    Function ulong SetCapture(ulong a) LIBRARY "user32.dll"

    Function boolean ReleaseCapture() LIBRARY "user32.dll"

    เมื่อเสร็จแล้วก็เขียนสคริปต์ใน จุดที่เราต้องการได้ดังนี้ครับ

    ulong ll_handle, ll_rc

    ll_handle = Handle(this)

    ll_rc = SetCapture(ll_handle)

Setpointer(housrglass!)

จากนั้นก็เขียนสคริปต์งานของเราตามปกติ เมื่อเสร็จแล้วก็ใช้คำสั่ง

ReleaseCapture()

    เท่านี้ก็เป็นอันเสร็จเรียบร้อย


บทความนี้มาจาก www.soopawat.com