图片框里的图片怎么随鼠标动

紫色星辰

怎么写按住图片框后里面的图片随鼠标动，放开左键就回到原位

凌木

uuu.zip (2.12 KB, 下载次数: 6)

2015-3-3 22:34 上传

点击文件名下载附件

宇智波·晓易

http://pan.baidu.com/s/1bn1xmgf

狼啸天

.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 x, 整数型
.程序集变量 y, 整数型

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

时钟1.时钟周期 ＝ 1

.子程序 _图片框1_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

图片框1.移动 (0, 0, 152, 152)
时钟1.时钟周期 ＝ 0

.子程序 _时钟1_周期事件

.如果真 (x ＝ 0)
    x ＝ 取鼠标水平位置 () － 图片框1.左边
    y ＝ 取鼠标垂直位置 () － 图片框1.顶边
.如果真结束
图片框1.左边 ＝ 取鼠标水平位置 () － x
图片框1.顶边 ＝ 取鼠标垂直位置 () － y

怪伱过分羙丽

  

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

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

移动 ＝ 真
x ＝ 取鼠标水平位置 () － 图片框1.左边
y ＝ 取鼠标垂直位置 () － 图片框1.顶边

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

如果真 (移动 ＝ 真)
图片框1.左边 ＝ 取鼠标水平位置 () － x
图片框1.顶边 ＝ 取鼠标垂直位置 () － y

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

移动 ＝ 假
图片框1.左边 ＝ 50 ' 原位置
图片框1.顶边 ＝ 50 ' 原位置

.版本 2<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 _图片框1_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 移动 ＝ 真<br /> x ＝ 取鼠标水平位置 () － 图片框1.左边<br /> y ＝ 取鼠标垂直位置 () － 图片框1.顶边<br /> <br /> .子程序 _图片框1_鼠标位置被移动, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> .如果真 (移动 ＝ 真)<br /> 图片框1.左边 ＝ 取鼠标水平位置 () － x<br /> 图片框1.顶边 ＝ 取鼠标垂直位置 () － y<br /> .如果真结束<br /> <br /> <br /> .子程序 _图片框1_鼠标左键被放开, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 移动 ＝ 假<br /> 图片框1.左边 ＝ 50 ' 原位置<br /> 图片框1.顶边 ＝ 50 ' 原位置