寫在前面
這是PB案例學習筆記系列文章的第8篇，該系列文章適合具有一定PB基礎的讀者。
通過一個個由淺入深的編程實戰案例學習，提高編程技巧，以保證小伙伴們能應付公司的各種開發需求。
文章中設計到的源碼，小凡都上傳到了gitee代碼倉庫https://gitee.com/xiezhr/pb-project-example.git
需要源代碼的小伙伴們可以自行下載查看，后續文章涉及到的案例代碼也都會提交到這個倉庫【pb-project-example】
如果對小伙伴有所幫助，希望能給一個小星星?支持一下小凡。
一、小目標
本篇文章，我們通過Send函數，實現各種控件的拖動，即按住鼠標不放，將控件在窗口內任意移動。
最終實現效果如下
二、Send函數簡介
Send 函數用于向窗口發送消息，并立即被執行。這種方式無論是窗口中的控件還是窗口本事都適用
① 語法
Send(handle,messageno,word,long)
② 參數說明
| 參數 | 類型 | 說明 |
|---|---|---|
handle | Long | 指定窗口的系統句柄，將向該窗口發送消息 |
messageno | UnsignedInteger | 指定要發送消息號 |
word | Long | 指定與消息一起發送的Word類參數值。如果messageno參數指定的消息不適用該參數，那么將這個參數的值設置為0 |
long | Long或String | 指定與消息一起發送的Long型參數值活字符串 |
三、創建程序基本框架
① 創建examplework 工作區
② 創建exampleapp應用
③ 新建w_main 窗口，Title 設置為“拖動控件”
如果以上步驟忘記的小伙伴，克參照第一篇文章
④ 添加控件，進行窗口布局
在窗口中新建一個SingleLineEdit控件、一個ComandButton 控件、一個CheckBox控件和一個RadioButton控件，
各個控件名稱依次為sle_1、cb_1、cbx_1和rb_1，調整控件，并設置控件屬性如下圖所示
⑤ 保存窗口
四、編寫代碼
① 在窗口中選擇sle_1控件，為控件添加【pbm_lbuttondown】 事件，事件起名為ue_mousemove 并添加如下代碼
send(handle(this),274,61458,0)
② 按照上面的方法，為控件cb_1、cbx_1 和rb_1添加事件，添加如下代碼
send(handle(this),274,61458,0)
③ 在窗口w_main 的MouseDown事件中添加如下代碼
send(handle(this),274,61458,0)
④ 在開發界面左邊的System Tree 中雙擊exampleapp應用對象，在其Open事件中添加如下代碼
open(w_main)
五、運行程序
運行程序后，我們鼠標選擇窗口上的任意一個控件，按住不放即可拖動控件
本期內容到這兒就結束了，希望對您有所幫助。
我峨嵋你下期再見 ヾ(?ω?`)o (●’?’●)
