ThaiPBL.com

สวัสดีครับ วันนี้มีเรื่องเกี่ยวกับ API มาฝากกันนะครับ เป็นการทำให้ Path ที่ยาวๆของเราสั้นลงเพื่อที่จะสะดวกในการแสดงผลน่ะครับ เริ่มแรกก็ทำการกำหนด External function กันดังนี้ครับ

Function long GetDC( long hWnd ) Library "user32"
Function long PathCompactPathA( long lhDC,ref string as_text,long al_len ) Library 'shlwapi'
Function long ReleaseDC(long hWnd,uint hDC ) Library "user32"

    เสร็จแล้วก็ทำการทดลองการใช้งานกันโดยเขียนสคริปต์ขึ้นมาลองกันโดยวางเอาใว้ที่ clicked event ของ command button ก็ได้ดังนี้ครับ

Long ll_hdc
String ls_text = "c:\Program files\powerpig\powerpig.exe"
Long ll_pixels = 150

ll_hdc = GetDC( handle ( parent ) )
PathCompactPathA( ll_hdc,ls_Text,ll_Pixels )
ReleaseDC( Handle (Parent ),ll_HDC)

Messagebox('text',ls_text)

เท่านี้ก็เป็นอันเรียบร้อยลองเล่นดูนะครับ

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