ThaiPBL.com

สวัสดีครับวันนี้ผมมีตัวอย่างในการทำ ScrollBar บน Listview ให้เป็นแบบ Flat แต่ตัวอย่างนี้จะใช้งานได้บน PB7 นะครับและที่สำคัญผมก็ยังไม่ได้ลองบน PB7 ด้วยก็เลยต้องรบกวนเพื่อนๆทุกท่านที่ใช้ PB7 ช่วยทดสอบให้แทนทีและผลออกมาเป็นอย่างไร รบกวนช่วยแจ้งให้ทราบหน่อยนะครับ

สำหรับสคริปต์ก็มีดังนี้นะครับ เขียนใว้ที่ Constructor event นะครับ

Long    ll_ExStyle

Constant Integer    LVM_SETEXTENDEDLISTVIEWSTYLE = 4150

Constant Integer    LVM_GETEXTENDEDLISTVIEWSTYLE = 4151

Constant Integer    LVS_EX_FLATSB = 256

ll_ExStyle    =    Send( Handle( This ) ,  LVM_GETEXTENDEDLISTVIEWSTYLE, 0, 0 )

ll_ExStyle += LVS_EX_FLATSB

ll_ExStyle    =    Send( Handle( This )  ,  LVM_SETEXTENDEDLISTVIEWSTYLE, 0, ll_ExStyle )