手机录屏有字幕滚动,手机录屏怎么设置不带字幕

首页 > 实用技巧 > 作者:YD1662023-11-11 00:35:08

大家好,我是郭立员~

今天来做一个模拟手持弹幕效果的脚本,所谓手持弹幕就是手机屏幕上的滚动文字,如下图:

手机录屏有字幕滚动,手机录屏怎么设置不带字幕(1)

先来看看我做的模拟效果,然后再给大家讲怎么做的。

手机录屏有字幕滚动,手机录屏怎么设置不带字幕(2)

下面开始这一期脚本教程的讲解:

在按键中能够在屏幕上显示文字,主要有showmessage命令和悬浮窗命令,考虑到屏幕纯黑色,我们选择悬浮窗命令。

整个脚本的制作逻辑是这样的:

【1】模拟屏幕纯黑色背景,设置悬浮窗背景为黑色

【2】悬浮窗的大小要和屏幕一样,所以要获取屏幕的大小尺寸:

Dim x=GetScreenX() Dim y=GetScreenY() FW.NewFWindow "悬浮窗1", 0, 0, x, y FW.SetBackColor("悬浮窗1", "000000") FW.Show ("悬浮窗1")

【3】设置要显示的文字及文字颜色大小

FW.AddTextView("悬浮窗1","文字","文字内容",x,500,width x,500) FW.SetTextColor "文字", "ffffff" FW.SetTextSize("文字",40)

【4】文字的起始位置,文字的滚动距离

这一步很关键,在观察别人做的手持弹幕后,发现弹幕是从屏幕右侧进入,向左滚动直到全部消失,然后重新从屏幕右侧进入,循环往复。

那么起始位置就是屏幕的右侧,也就是一个屏幕的宽度x,在有一个问题是文字的滚动距离。

手机录屏有字幕滚动,手机录屏怎么设置不带字幕(3)

通过图片可以看到,需要滚动距离是文字宽度和屏幕宽度之和。

屏幕宽度是x

文字宽度需要通过计算,先要知道单个文字的宽度,在乘以文字的数量。

Dim text="要显示的文字内容" Dim zi=60 //单个字的宽度,和文字大小有关系 Dim width=utf8.len(text)*zi

【5】怎么让文字滚动起来

循环修改文字的左侧的位置坐标

假设100毫秒滚动一次,每次滚动20像素,那么单位速度就是20,整个滑动需要的单位数量就是(文字宽度 屏幕宽度)/单位速度,用计次循环执行整个操作,如下所示:

Dim speed=20 For i = 0 To int((width x)/speed) FW.SetLeft "文字", x - speed * i Delay 100 Next

【6】让文字重复循环

每次整段文字滑出屏幕后,让文字的位置重新回到屏幕的右侧

FW.SetLeft "文字", x

完整代码如下:

Dim x=GetScreenX() Dim y=GetScreenY() Dim text="永恒荣耀,不灭星辰" Dim zi=60 Dim width=utf8.len(text)*zi Dim speed=20 FW.NewFWindow "悬浮窗1", 0, 0, x, y FW.SetBackColor("悬浮窗1", "000000") FW.AddTextView("悬浮窗1","文字",text,x,500,width x,500) FW.SetTextColor "文字", "ffffff" FW.SetTextSize("文字",40) FW.Show ("悬浮窗1") For 5 FW.SetLeft "文字", x For i = 0 To int((width x)/speed) FW.SetLeft "文字", x - 20 * i Delay 100 TracePrint x - 20 * i Next Next

补充说明:

测试设备:雷电模拟器

代码涉及到的一些可修改的参数,我都在最开始用变量定义了,包括文字内容,滚动速度等,这些都可以用界面输入框控制。

目前没找到自动旋转屏幕的命令,测试是竖屏显示的滚动,效果不太好,如果你知道此命令可以在文章留言区给我留言,当然我也会去搜索查找。

=正文完=

栏目热文

文档排行

本站推荐

Copyright © 2018 - 2021 www.yd166.com., All Rights Reserved.