自定义窗口拖动

kzfc029

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
XX	整数型
YY	整数型
IsDown	逻辑型

子程序名	返回值类型	公开	备 注
_透明标签1_鼠标左键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

捕获鼠标 (透明标签1.取窗口句柄 ())
' 记录鼠标位置在窗口中的位置
XX ＝ 取鼠标水平位置 () － _启动窗口.左边
YY ＝ 取鼠标垂直位置 () － _启动窗口.顶边
IsDown ＝ 真

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

设置窗口透明度 (取窗口句柄 (), 150)

子程序名	返回值类型	公开	备 注
_透明标签1_鼠标左键被放开	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

释放鼠标 ()
IsDown ＝ 假

子程序名	返回值类型	公开	备 注
_透明标签1_鼠标位置被移动	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
Y_X	整数型
Y_Y	整数型

如果真 (IsDown)
' 根据当前鼠标位置计算窗口左边
Y_X ＝ 取鼠标水平位置 () － XX
Y_Y ＝ 取鼠标垂直位置 () － YY
移动 (Y_X, Y_Y, , )

i支持库列表	支持库注释
eAPI	应用接口支持库

.版本 2<br /> .支持库 eAPI<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 XX, 整数型<br /> .程序集变量 YY, 整数型<br /> .程序集变量 IsDown, 逻辑型<br /> <br /> .子程序 _透明标签1_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 捕获鼠标 (透明标签1.取窗口句柄 ())<br /> ' 记录鼠标位置在窗口中的位置<br /> XX ＝ 取鼠标水平位置 () － _启动窗口.左边<br /> <br /> YY ＝ 取鼠标垂直位置 () － _启动窗口.顶边<br /> <br /> IsDown ＝ 真<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 设置窗口透明度 (取窗口句柄 (), 150)<br /> <br /> <br /> <br /> <br /> .子程序 _透明标签1_鼠标左键被放开, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 释放鼠标 ()<br /> IsDown ＝ 假<br /> <br /> <br /> .子程序 _透明标签1_鼠标位置被移动, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 Y_X, 整数型<br /> .局部变量 Y_Y, 整数型<br /> <br /> .如果真 (IsDown)<br />     ' 根据当前鼠标位置计算窗口左边<br />     Y_X ＝ 取鼠标水平位置 () － XX<br />     Y_Y ＝ 取鼠标垂直位置 () － YY<br /> <br />     移动 (Y_X, Y_Y, , )<br /> <br /> .如果真结束

gxm01

感谢分享！

SHIWOOOO

好好好好

ks771435476

啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊

张张利利

看看支持下啊

lzbkunming

谢谢分享

lzbkunming

谢谢分享

zhaodong12

支持开源~！感谢分享

深圳梦

支持开源~！感谢分享

绯浪

666666666666666666