寫在前面

這是PB案例學(xué)習(xí)筆記系列文章的第8篇，該系列文章適合具有一定PB基礎(chǔ)的讀者。

通過一個個由淺入深的編程實戰(zhàn)案例學(xué)習(xí)，提高編程技巧，以保證小伙伴們能應(yīng)付公司的各種開發(fā)需求。

文章中設(shè)計到的源碼，小凡都上傳到了gitee代碼倉庫https://gitee.com/xiezhr/pb-project-example.git

需要源代碼的小伙伴們可以自行下載查看，后續(xù)文章涉及到的案例代碼也都會提交到這個倉庫【pb-project-example】

如果對小伙伴有所幫助，希望能給一個小星星?支持一下小凡。

一、小目標(biāo)

本篇文章，我們通過Send函數(shù)，實現(xiàn)各種控件的拖動，即按住鼠標(biāo)不放，將控件在窗口內(nèi)任意移動。

最終實現(xiàn)效果如下

二、Send函數(shù)簡介

Send 函數(shù)用于向窗口發(fā)送消息，并立即被執(zhí)行。這種方式無論是窗口中的控件還是窗口本事都適用

① 語法

Send(handle,messageno,word,long)

② 參數(shù)說明

參數(shù)	類型	說明
handle	Long	指定窗口的系統(tǒng)句柄，將向該窗口發(fā)送消息
messageno	UnsignedInteger	指定要發(fā)送消息號
word	Long	指定與消息一起發(fā)送的Word類參數(shù)值。如果messageno參數(shù)指定的消息不適用該參數(shù)，那么將這個參數(shù)的值設(shè)置為0
long	Long或String	指定與消息一起發(fā)送的Long型參數(shù)值活字符串

三、創(chuàng)建程序基本框架

① 創(chuàng)建examplework 工作區(qū)

② 創(chuàng)建exampleapp應(yīng)用

③ 新建w_main 窗口，Title 設(shè)置為“拖動控件”

如果以上步驟忘記的小伙伴，克參照第一篇文章

④ 添加控件，進行窗口布局

在窗口中新建一個SingleLineEdit控件、一個ComandButton 控件、一個CheckBox控件和一個RadioButton控件，

各個控件名稱依次為sle_1、cb_1、cbx_1和rb_1，調(diào)整控件，并設(shè)置控件屬性如下圖所示

⑤ 保存窗口

四、編寫代碼

① 在窗口中選擇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)

④ 在開發(fā)界面左邊的System Tree 中雙擊exampleapp應(yīng)用對象，在其Open事件中添加如下代碼

open(w_main)

五、運行程序

運行程序后，我們鼠標(biāo)選擇窗口上的任意一個控件，按住不放即可拖動控件

本期內(nèi)容到這兒就結(jié)束了，希望對您有所幫助。

我峨嵋你下期再見 ヾ(?ω?`)o (●’?’●)