按键精灵在屏幕上显示文本渐开脚本代码
//上=0,右=1,下=2,左=3 /* 上:y-1 右:x + 1 下:y + 1 左:x-1 */ 方向 = - 1 x = 0 y = 0 颜色=Array("DC143C","FF00FF","FF00FF","E6E6FA","FF00FF","708090","00FA9A","FFFFE0","FF00FF") //Dim 颜色(9) //颜色(0)="DC143C" //颜色(1) = "FF1493" //颜色(2) = "FF00FF" //颜色(3) = "FF00FF" //颜色(4) = "E6E6FA" //颜色(5) = "FF00FF" //颜色(6) = "708090" //颜色(7) = "00FA9A" //颜色(8) = "FFFFE0" //颜色(9) = "FF00FF" For i = 1 To 20 TracePrint i For 2 方向 = 方向 + 1 For i Select Case 方向 Mod 4 Case 0 y = y - 1 TracePrint "↑" Case 1 x = x + 1 TracePrint "→" Case 2 y = y + 1 TracePrint "↓" Case 3 x = x - 1 TracePrint "←" End Select Call Plugin.Msg.ShowScrTXT(200 + (x * 12), 200 + (y * 12), 2000, 2000, "*", 颜色(i)) //MoveTo 500+(x * 12), 500 + (y * 12) Delay 500 Next Next Next //PU=0 //For 10 // //下面这句是直接对屏幕进行刷新清除 // Call Plugin.Msg.HideScrTXT() // //延迟半秒等待刷新完毕 // Delay 500 // //下面这句是在屏幕上范围位置(0, 0, 1024, 100)进行输出内容("屏幕内容填写") // Call Plugin.Msg.ShowScrTXT(0, 0, 1024, 100, "屏幕内容填写 "&PU, "0000FF") // //延迟半秒可以让你看的清楚 // Delay 500 // PU=PU+1 //Next
上一篇:
通过多线程提高代码的执行效率例子