说明一下:如果想要showmessage信息一直在屏幕上显示,就需要用到多线程。
效果展示
滚动显示代码如下:(显示不全可向右滑动)
Dim msg_arr(),msg_arrj(),msg_m=0Thread.Start 主程序 Delay 1000Do dim msg=Thread.GetShareVar ("show") dim msg_n=0 If msg_m = 0 Then msg_arr(msg_m) = msg msg_m=msg_m+1 Else If msg_arr(msg_m-1) = msg Then TracePrint "没有变化" Else msg_arr(msg_m) = msg msg_m=msg_m+1 End If End If If UBOUND(msg_arr) < 5 Then msg_arrj = Clone(msg_arr) Else For j = UBOUND(msg_arr) - 5 To UBOUND(msg_arr) msg_arrj(msg_n) = msg_arr(j) msg_n=msg_n+1 Next End If ShowMessage Join(msg_arrj, "\n"), 1000, 0, 0 Delay 100LoopFunction 主程序()For i = 1 To 25 Thread.SetShareVar "show", "拼接内容显示第" & i & "次" Delay 1000 NextEnd Function
代码中有些可调的地方:
①显示内容获取周期,源码是100毫秒,在第27行代码
②显示的行数,默认是6行,在第18行和第21行中的5是控制参数,如果想显示10行,可以把5改成9
代码已经做了内容去重操作,所以不用担心一条重复信息“刷屏”
3分钟学堂vip②群(242971687)已经开通,在学习过程中有基础问题需要解答的朋友,可以加入此群,群费48.8元
加群联系我:
QQ:453485278
微信:xiaomu86119
更多按键精灵安卓版的内容可以查看我的往期文章教程。