SendMessage API函數在PowerBuilder中應用[1]

　　一引言

　　在Powerbulider巧妙地調用API函數SendMessage可以完成Pb中的一些用常規的方法而很難實現的功能特將對該api函數在Powerbuilder中的使用例舉幾個方面的運用以期起到拋磚引玉的效果（以下代碼完全可以使用PowerBuilder中的Send函數替代SendMessage 這個Api函數因起稿比較匆忙代碼未經測試）

　　二函數說明

　　SendMessage函數說明

　　說明

　　調用一個窗口的窗口函數將一條消息發給那個窗口除非消息處理完畢否則該函數不會返回SendMessageBynum SendMessageByString是該函數的類型安全聲明形式

　　返回值

　　Long由具體的消息決定

　　參數表

　　參數 類型及說明

　　hwnd Long要接收消息的那個窗口的句柄

　　wMsg Long消息的標識符

　　wParam Long具體取決於消息

　　lParam Any具體取決於消息

　　Powerbuilder中已使用函數Send函數對其進行了封裝

　　函數原形Send （ handle message# lowword long ）

　　Send函數說明

　　說明

　　調用一個窗口的窗口函數將一條消息發給那個窗口除非消息處理完畢否則該函數不會返回

　　返回值

　　Long由具體的消息決定

　　參數表

　　參數 類型及說明

　　handle Long要接收消息的那個窗口的句柄

　　message# Long消息的標識符

　　lowword Long具體取決於消息

　　long long具體取決於消息

　　 應用舉例

　　定義外部函數引用聲明

　　funcation long SendMessage （long  hwnd As Longlong wMsg long wParamlong lParam） Library userdll Alias for  SendMessageA

　　funcation long ReleaseCapture（）  Library userdll

　　定義實例變量

　　Constant long LB_ITEMFROMPOINT =

　　Constant long HTCAPTION =

　　Constant long WM_NCLBUTTONDOWN =

　　Constant long EM_GETLINE =

　　Constant long EM_GETLINECOUNT =

　　Constant long EM_GETLINECOUNT =

　　Constant long EM_GETLINE =

　　Constant long TVM_SETITEMHEIGHT =

　　Constant long EM_LINESCROLL =

　　Constant long EM_LIMITTEXT=

　　列表框中鼠標移動時檢測位置項

　　Powerscript:

　　在列表框的自定義事件ue_mousemove（pbm_mousemove）中寫入如下代碼

　　pos = unitstopixels（parentpointerx（）XUnitsToPixels!）+ unitstopixels（parentpointery（）yUnitsToPixels!） *

　　idx = SendMessage（handle（this） LB_ITEMFROMPOINT pos） If idx < Then sle_Text = lb_text（idx）

　　在列表框中查找匹配的項目

　　Powerscript:

　　窗口的open事件

[]  []  

From:http://tw.wingwit.com/Article/program/PB/201311/24597.html