优于分割条的拖动例程,源码是易语言发送消息的例程。
.版本 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