[按键精灵]在屏幕上做辅助参考线(附源码)

PutAttachment "/sdcard/pictures/", "左下方.png"PutAttachment "/sdcard/pictures/", "右下方.png"Dim x1 = 193Dim y1 = 800Dim x2 = 670Dim y2 = 503Dim x, yIf x1 < x2 Then     x = x1Else     x = x2End IfIf y1 < y2 Then     y = y1Else     y = y2End IfDim w = Abs(x2 - x1)Dim h = Abs(y2 - y1)Dim pic_path If x1 < x2 and y1 < y2 Then     pic_path = "/sdcard/pictures/右下方.png"Else     pic_path = "/sdcard/pictures/左下方.png"End IfFW.NewFWindow("浮窗名", x, y, w, h)FW.SetPicture("浮窗名", pic_path)FW.Show("浮窗名")Dim 显示时间 = 5For i = 1 To 显示时间    ShowMessage "显示倒计时:" & 显示时间 - i    Delay 1000NextFW.Close ("浮窗名")

Dim x1 = 300Dim y1 = 100Dim x2 = 550Dim y2 = 200Dim x, yIf x1 < x2 Then     x = x1Else     x = x2End IfIf y1 < y2 Then     y = y1Else     y = y2End IfDim w = Abs(x2 - x1)Dim h = Abs(y2 - y1)If w = 0 Then     w = 3 	End IfIf h = 0 Then 	h = 3End IfFW.NewFWindow("浮窗名", x, y, w, h)FW.Opacity "浮窗名", 0If w > h Then     For i = 1 To w Step 3        FW.AddButton("浮窗名", "点阵"&i, "", i, Abs(y-y1 +int(i*h/w)) , 5, 5)        FW.SetBackColor "点阵" & i, "0000FF"        FW.Show ("浮窗名")    NextElse     For i = 1 To h Step 3        FW.AddButton("浮窗名", "点阵"&i, "", Abs(x-x2 + int(i*w/h)) , i , 5, 5)        FW.SetBackColor "点阵" & i, "0000FF"        FW.Show ("浮窗名")    NextEnd IfDim 显示时间 = 5For i = 1 To 显示时间    ShowMessage "显示倒计时:" & 显示时间 - i    Delay 1000NextFW.Close ("浮窗名")

Dim x1 = 300Dim y1 = 40Dim x2 = 600Dim y2 = 500Dim w = (x2 - x1) / 20Dim h = (y2 - y1) / 20For i = 1 To 20    FW.NewFWindow("浮窗名"&i, x1+int(i*w), y1+int(i*h), 10, 10)    FW.SetBackColor("浮窗名"&i, "0000FF")    FW.Show("浮窗名"&i)NextDim 显示时间 = 5For i = 1 To 显示时间    ShowMessage "显示倒计时:" & 显示时间 - i    Delay 1000NextFW.Close ("浮窗名")