你搞个按钮在窗口上复制下面的代码可以实现自由拖动按钮的效果,其实就是设置按钮的左边和顶边参数的过程
——————————代码区———————————————
.程序集 窗口程序集1
.程序集变量 拖动, 逻辑型
.程序集变量 横位置, 整数型
.程序集變量 纵位置, 整数型
.子程序 _按钮1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.子程序 _按钮1_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.子程序 _按钮1_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 縱向位置, 整数型
.参数 功能键状态, 整数型
.判断开始 (拖动 = 真)
无须太复杂一句代码 控件.发送信息 (161, 2, 0)
.子程序 _按钮1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.子程序 _列表框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.子程序 _标签1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
|
|
|
|
|
|
|
|
|
|
|
加入VIP可以享受无广告视频播放!更可享受教程提前看!详情猛戳: