代码如下,按 *(106) 复位0,按 +(107)、- (109)控制显示的数字。
目前情况是每次按下控制键,屏幕只输出1帧后就消失(像素刷新就没了)。而不是无限循环输出。
如果对Call Plugin.Msg.ShowScrTXT进行单独高频For循环,可以任意实现在屏幕上持续输出。但是在循环结束前,代码不能接受新的按键控制。
求问:
REM-GOTO本身就是无限循环的,只要输入了*(106),Call Plugin.Msg.ShowScrTXT应该是持续输出的,为什么不能?
怎么写才能不影响代码接受按键又能持续输出在屏幕上。
Rem T
AJ = WaitKey()
If AJ = 106 Then
i = 0
ElseIf AJ = 107 Then
i = i+1
ElseIf AJ = 109 Then
i = i-1
End If
TracePrint i
Call Plugin.Msg.ShowScrTXT(20, 20, 1024, 768, i, "0000FF")
Goto T