易语言中的按钮怎么做就可以变成圆形的,上面是图片下面是文字

方法如下：

//设置圆心坐标

x0=bkx1+370:y0=bky1+250

//设置递增半径

rr=20

//设置点间距

l=20

//初始化角度

n=2

//设置第一圈半径

r=30

//设置画蚂枯圆圈数

For 8

While n<3.1415926*2

//画扒碧圆公式

x=x0+r*cos(n)

y=y0-r*sin(n)

MoveToS x,y

Delay 10

n=n+l/r

Wend

//画完一圈后重置角度

n=0

//闷此洞画完一圈后半径递增rr

r=r+rr

Next

一直转圈圈那是鼠标等待状态,但是让鼠标不动,那真的好吗?写程序的不是应该就算自己的程序崩溃结束了也不能让用户的其它 *** 作出错不是吗?

给你提供了两个函数,一个是获取鼠标状态的,65561就是鼠标等待状态,还有一个就是锁定鼠标键盘的,复制下面代码粘贴到易语言上就可以用了

.版本 2

.子程序 取鼠标指针形状, 整数型

.局部变量 a, CURSORINFO

GetCursorPos (a.ptScreenPos)

a.cbSize ＝ 20

GetCursorInfo (a)

返回 (a.hCursor)

.子程序 锁定鼠标键盘

BlockInput (1) ' 锁定

BlockInput (0) ' 解锁

.版本 2

.DLL命令 GetCursorPos, 整数型, "user32", "GetCursorPos", 公开

.参数大帆 POINTAPI, POINTAPI, 传址

.DLL命令 GetCursorInfo, 整数型, "user32", "GetCursorInfo", 公开

.参绝好数 piconinfo, CURSORINFO, 传址

.DLL命令 BlockInput, 整数型, , "BlockInput", 公开

.参数 fBlock, 整数型

.版并仿铅本 2

.数据类型 POINTAPI

.成员 X, 整数型

.成员 Y, 整数型

.数据类型 CURSORINFO

.成员 cbSize, 整数型

.成员 flags, 整数型

.成员 hCursor, 整数型

.成员 ptScreenPos, POINTAPI

您好，我刚才测试了一下是可以正常退出的

有可能是消世皮杀毒软件阻止，建议您退出杀毒软件

还有尽量不要用破解版的易语拿差言，有些破解版并不返携完美

再者检查您的系统环境

---