大家好，我是3分钟学堂的郭立员~
今天来做一个模拟手持弹幕效果的脚本，所谓手持弹幕就是手机屏幕上的滚动文字，如下图：
先来看看我做的模拟效果，然后再给大家讲怎么做的。
下面开始这一期脚本教程的讲解：
在按键中能够在屏幕上显示文字，主要有showmessage命令和悬浮窗命令，考虑到屏幕纯黑色，我们选择悬浮窗命令。
整个脚本的制作逻辑是这样的：
【1】模拟屏幕纯黑色背景，设置悬浮窗背景为黑色
【2】悬浮窗的大小要和屏幕一样，所以要获取屏幕的大小尺寸：
Dimx=GetScreenX()Dim y=GetScreenY()FW.NewFWindow"悬浮窗1",0,0, x, yFW.SetBackColor("悬浮窗1","000000")FW.Show ("悬浮窗1")
【3】设置要显示的文字及文字颜色大小
FW.AddTextView("悬浮窗1","文字","文字内容",x,500,width+x,500)FW.SetTextColor"文字","ffffff"FW.SetTextSize("文字",40)
【4】文字的起始位置，文字的滚动距离
这一步很关键，在观察别人做的手持弹幕后，发现弹幕是从屏幕右侧进入，向左滚动直到全部消失，然后重新从屏幕右侧进入，循环往复。
那么起始位置就是屏幕的右侧，也就是一个屏幕的宽度x，在有一个问题是文字的滚动距离。
通过图片可以看到，需要滚动距离是文字宽度和屏幕宽度之和。
屏幕宽度是x
文字宽度需要通过计算，先要知道单个文字的宽度，在乘以文字的数量。
Dim text="要显示的文字内容"Dim zi=60//单个字的宽度，和文字大小有关系Dim width=utf8.len(text)*zi
【5】怎么让文字滚动起来
循环修改文字的左侧的位置坐标
假设100毫秒滚动一次，每次滚动20像素，那么单位速度就是20，整个滑动需要的单位数量就是（文字宽度+屏幕宽度）/单位速度，用计次循环执行整个操作，如下所示：
Dimspeed=20Fori = 0 To int((width+x)/speed)FW.SetLeft"文字", x - speed * iDelay100Next
【6】让文字重复循环
每次整段文字滑出屏幕后，让文字的位置重新回到屏幕的右侧
FW.SetLeft"文字", x
完整代码如下：
Dim x=GetScreenX()Dim y=GetScreenY()Dim text="永恒荣耀，不灭星辰"Dim zi=60Dim width=utf8.len(text)*ziDim speed=20FW.NewFWindow"悬浮窗1",0,0, x, yFW.SetBackColor("悬浮窗1","000000")FW.AddTextView("悬浮窗1","文字",text,x,500,width+x,500)FW.SetTextColor"文字","ffffff"FW.SetTextSize("文字",40)FW.Show ("悬浮窗1")For5FW.SetLeft"文字", x For i =0Toint((width+x)/speed) FW.SetLeft"文字", x -20* i Delay100TracePrint x -20* i NextNext
补充说明：
测试设备：雷电模拟器
代码涉及到的一些可修改的参数，我都在最开始用变量定义了，包括文字内容，滚动速度等，这些都可以用界面输入框控制。
目前没找到自动旋转屏幕的命令，测试是竖屏显示的滚动，效果不太好，如果你知道此命令可以在文章留言区给我留言，当然我也会去搜索查找。
=正文完=
网友评论