按键精灵怎么写一个能调整画圈任意大小的脚本

更新时间2018-05-13 17:32:30

这个就是直接在屏幕上画圆的脚本,效果就是下面的图

如果要画在图画面板上,那么用这个脚本

Dim 圆心坐标X, 圆心坐标Y, 圆半径, 要画的角度,i

圆心坐标X = 400

圆心坐标Y = 400

圆半径 = 100

要画的角度 = 360//要画半个圆就180

For i = 0 To 要画的角度

    Call 圆(圆心坐标X, 圆心坐标Y, 圆半径, i)

MoveTo FX, FY

LeftClick 1

 

Next

Sub 圆(圆心坐标X, 圆心坐标Y, 圆半径, i)

    ang = (3.1416 * i / 180)//得到百分比圆弧    

    FX = cint(圆心坐标X - 圆半径 * sin(ang))

    FY = cint(圆心坐标Y + 圆半径 * cos(ang))

End Sub

你说的这个功能不行。

没有这个本

相关标签:按键精灵