发布网友 发布时间:2022-05-01 05:01
共1个回答
热心网友 时间:2023-10-05 13:36
你能画出这样的界面相信就不需要怎么给你代码了吧!易语言它的控件都是可以取到鼠标的坐标的,应该只需要一个标签和一个按钮完事了,作出范围的判断让控件移动,超出一定范围让它弹回来就可以了!不过验证还是使用字符串验证吧!拖放什么的,完全跟没有一样,有能力搭建一个服务器,没能里接入第三方云验证都是可以实现字符串验证的!追答
.版本 2
.支持库 iext2
.程序集 窗口程序集_启动窗口
.程序集变量 _物体1, 整数型
.程序集变量 _是否移动, 字节型
.子程序 __启动窗口_创建完毕
' 需要为动画物体1添加一张图片才能体现出效果
_物体1 = 动画框1.创建物体 (动画物体1, 26, 26, 真, )
.子程序 _动画框1_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
' 在此添加一个范围判断即可
.如果真 (_是否移动 = 1)
动画框1.置物体位置 (_物体1, 横向位置, 纵向位置, 假)
.如果真结束
.子程序 _动画框1_物体左键被按下
.参数 物体标识值, 整数型
' 按下触发物体移动
.如果真 (物体标识值 = _物体1)
_是否移动 = 1
.如果真结束
.子程序 _动画框1_物体左键被放开
.参数 物体标识值, 整数型
.参数 已被按下物体, 整数型
' 放开触发取消物体移动
.如果真 (物体标识值 = _物体1)
_是否移动 = 0
--------------你只需要作出判断,鼠标是否已移动出你所需要的范围,如果是,则将物体弹回来就可以了,添加碰撞事件可判断是否拖放到位