ThaiPBL.com

สวัสดีครับหายหน้าหายตาไปนานหน่อยครับ วันนี้มีเรื่องของการใช้ API ในการนำเอา Listbox ไปวางบน Toolbar มาบอกกล่าวน่ะครับ

อันดับแรกก็ให้ทำการเปิด window painter ขึ้นมาแล้วคลิกที่ new จากนั้น

-กำหนด Local external function ขึ้นมาดังนี้

Function uLong FindWindowExA( long hParent, long hChildAfter,String lpszClass,String lpszWindow) Library "user32.dll"
Function uLong SetParent( uLong hChild, uLong hWnd) Library "user32.dll"

อย่าลืมนะครับว่าตัวใหญ่ตัวเล็กมีผลนะครับ เมื่อกำหนดเสร็จแล้วก็ลงมือเขียนสคริปต์กันเลย ให้ทำการคลิกขวาแล้วเลือก script ทำการเลือกที่ open events  จากนั้นก็ลงมือเขียนสคริปต์กันเลย

String ls_ClassName, ls_Null
uLong lul_Toolbar, lul_Null, lul_Listbox
Listbox llb_1

Setnull( ls_null )
Setnull( lul_null )
ls_ClassName = "FNFIXEDBAR60"

//ถ้าใช้ pb7 ก็เปลี่ยนจาก bar60 เป็น bar70 แทน
lul_Toolbar = FindWindowExa( Handle (This ),lul_null,ls_Classname,ls_null)

//สร้าง listbox
OpenUserObject( llb_1,'lb_1',0 , 0)

//ตรงคำว่า lb_1 คือชื่อของ listbox ที่คุณมีอยู่โดยเราทำการซ่อนเอาใว้ก่อนก็ได้มันจะได้ไม่แสดงบน window แต่ไปแสดงบน toolbar แทน
lul_Listbox = Handle(llb_1)
SetParent(lul_Listbox,lul_Toolbar)


// กำหนดรายละเอียดต่างๆของ listbox บน toolbar
llb_1.y = 12
llb_1.x = 1000
llb_1.Width =600
llb_1.Height = 100
llb_1.visible = true


อ้อ อย่าลืมนะครับต้องกำหนดวินโดวส์ให้เป็นแบบ mdi ด้วยนะครับ