【PB案例学习笔记】-08 控件拖动实现

写在前面

这是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 (●’◡’●)