สวัสดีครับ วันนี้มีเรื่องเกี่ยวกับ API มาฝากกันนะครับ เป็นการทำให้ Window มี effect ต่างๆเช่นขณะเปิดวินโดวส์ขึ้นมาก็ให้มีการเปิดจากซ้ายมาขวา เป็นต้น
วิธีการก็ไม่ยากครับ อันดับแรกก็กำหนด Global External Function ขึ้นมาก่อนดังนี้เลยครับ
Function boolean AnimateWindow( long lhWnd, long lTm, long lFlags) library 'user32'
เสร็จแล้วก็ไปที่ open event ของวินโดวส์ตัวที่เราต้องการให้มี effect โดยเขียนสคริปต์ลงไปตามแต่ที่เราต้องการจาก ซ้ายไปขวา
Constant Long AW_HOR_POSITIVE = 1
จาก ขวาไปซ้าย
Constant Long AW_HOR_NEGATIVE = 2
จากบนลงล่าง
Constant Long AW_VER_POSITIVE = 4
จากล่างขึ้นบน
Constant Long AW_VER_NEGATIVE = 8
เปิดจากตรงกลางขยายออก
Constant Long AW_CENTER = 16
ซ่อน
Constant Long AW_HIDE = 65536
Activate
Constant Long AW_ACTIVATE = 131072
Slide
Constant Long AW_SLIDE = 262144
Fade
Constant Long AW_BLEND = 524288
สคริปต์ที่ใช้ในการเรียก ฟังก์ชั่นขึ้นมาทำงานก็มีดังนี้ครับ
AnimateWindow ( Handle( this ),500,AW_CENTER)
ตัวเลขยิ่งมากก็จะเกิด effect นานขึ้น