优于分割条的拖动例程

优于分割条的拖动例程，源码是易语言发送消息的例程。

@易语言学习论坛

.版本 2
.支持库 iext

.子程序 _透明标签1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

透明标签1.发送信息 (161, 2, 0)
透明标签1.顶边 ＝ 编辑框1.顶边
编辑框1.宽度 ＝ 透明标签1.左边 － 6
编辑框2.左边 ＝ 透明标签1.宽度 ＋ 编辑框1.宽度 ＋ 6
编辑框2.宽度 ＝ _启动窗口.宽度 － 透明标签1.宽度 － 编辑框1.宽度 － 20

.子程序 __启动窗口_尺寸被改变

透明标签1.顶边 ＝ 编辑框1.顶边
编辑框1.宽度 ＝ 透明标签1.左边 － 6
编辑框2.左边 ＝ 透明标签1.宽度 ＋ 编辑框1.宽度 ＋ 6
编辑框2.宽度 ＝ _启动窗口.宽度 － 透明标签1.宽度 － 编辑框1.宽度 － 20
编辑框1.高度 ＝ _启动窗口.高度 － 50
编辑框2.高度 ＝ _启动窗口.高度 － 50  ' 本源码来自三叶资源网(www.sanye.cx)
透明标签1.高度 ＝ _启动窗口.高度 － 50