log4j 显示代码行数_分享一个showmessage信息滚动显示的源码

说明一下：如果想要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

更多按键精灵安卓版的内容可以查看我的往期文章教程。