通过一个个由浅入深的编程实战案例学习#xff0c;提高编程技巧#xff0c;以保证小伙伴们能应付公司的各种开发需求。

文章中设计到的源码#xff0c;小凡都上传到了gitee…写在前面

这是PB案例学习笔记系列文章的第8篇该系列文章适合具有一定PB基础的读者。

通过一个个由浅入深的编程实战案例学习提高编程技巧以保证小伙伴们能应付公司的各种开发需求。

文章中设计到的源码小凡都上传到了gitee代码仓库https://gitee.com/xiezhr/pb-project-example.git

需要源代码的小伙伴们可以自行下载查看后续文章涉及到的案例代码也都会提交到这个仓库【pb-project-example】

一、小目标

本篇文章我们通过Send函数实现各种控件的拖动即按住鼠标不放将控件在窗口内任意移动。

最终实现效果如下

函数用于向窗口发送消息并立即被执行。

这种方式无论是窗口中的控件还是窗口本事都适用

Send(handle,messageno,word,long)②

参数说明

参数类型说明handleLong指定窗口的系统句柄将向该窗口发送消息messagenoUnsignedInteger指定要发送消息号wordLong指定与消息一起发送的Word类参数值。

如果messageno参数指定的消息不适用该参数那么将这个参数的值设置为0longLong或String指定与消息一起发送的Long型参数值活字符串

三、创建程序基本框架

在窗口中新建一个SingleLineEdit控件、一个ComandButton

控件、一个CheckBox控件和一个RadioButton控件

各个控件名称依次为sle_1、cb_1、cbx_1和rb_1调整控件并设置控件属性如下图所示

保存窗口

在窗口中选择sle_1控件为控件添加【pbm_lbuttondown】

事件事件起名为ue_mousemove

send(handle(this),274,61458,0)②

和rb_1添加事件添加如下代码

send(handle(this),274,61458,0)③

在窗口w_main

send(handle(this),274,61458,0)④

Tree

中双击exampleapp应用对象在其Open事件中添加如下代码

open(w_main)五、运行程序

运行程序后我们鼠标选择窗口上的任意一个控件按住不放即可拖动控件

我峨嵋你下期再见