C# 文字一个一个显示(Alan Walker - Alone(Restrung) MV里的歌词显示特效)

我做聊天软件时很想做到跟 艾伦 · 走路人 的 MV 这样的逐字输出效果：

是我三年前太L了，明明非常简单但是偏要弄那么麻烦

现在的需求是点击按钮 button1 让 Label label1 逐字输出文字“Apart, but still together.”，先新建个 Timer timer1，然后代码如下

        private void button1_Click(object sender, EventArgs e){this.showText("Apart, but still together.");}String text = "";int nowPosition = 0;public void showText(string str){this.label1.Text = "";this.text = str;this.nowPosition = 0;}private void timer1_Tick(object sender, EventArgs e){if (nowPosition < text.Length){label1.Text += text.ToCharArray()[nowPosition];nowPosition++;}}

这么简单就能做到的事情，在三年前我竟然用下面这么长的代码？

旧代码：(不推荐使用)

当时不会弄，我就去百度知道提问。他说要用for和多线程。

然后我就慢慢地写了这代码：

using System;
using System.Windows.Forms;namespace WindowsFormsApplication1
{public partial class Form1 : Form{ListBox DelayShowText = new ListBox();public Form1(){InitializeComponent();DelayShowText.Visible = false;//不显示用于显示文字的控件DelayShowText.SelectedIndexChanged += new EventHandler(listBox1_SelectedIndexChanged);Control.CheckForIllegalCrossThreadCalls = false;//不捕捉对错误线程的控件}private void button1_Click(object sender, EventArgs e){string s = textBox1.Text;//声明将要被分隔的文本int a = s.Length;//声明引索while (true)//循环{s = s.Insert(a, "≌");//从后面开始插入分隔符(以免bug，而且分隔符最好不怎么常见)a--;//减少引索if (a == 0)//如果插入分隔符完成break;//跳出循环}string[] Stri = s.Split('≌');//将文本用写入组数(要输入上面的分隔符)foreach(string str in Stri)//遍历组数{DelayShowText.Items.Add(str);//加入组数到列表框}DelayShowText.SelectedIndex = 0;//选择第一个项以开始输出//richTextBox1.Text += textBox1.Text + "\n\r\n\r";//直接输出信息}/// <summary>/// 文字显示的延迟(单位:毫秒)/// </summary>int delay = 20;private void listBox1_SelectedIndexChanged(object sender, EventArgs e){System.Threading.Thread t1 = new System.Threading.Thread(() =>//使用多线程(否则会卡住一会){try//全程捕捉错误不提示，怕出bug{if (DelayShowText.SelectedIndex < DelayShowText.Items.Count)//如果没显示完成{System.Threading.Thread.Sleep(delay);//延迟richTextBox1.Text += DelayShowText.SelectedItem.ToString();//追加文本DelayShowText.SelectedIndex += 1;//下一个}}catch//捕捉到错误就算是显示完成了……  {DelayShowText.Items.Clear();//清空列表框  richTextBox1.Text += "\n\r\n\r";//换两行  }  }); t1.Start();//启动线程}}
}

已测试可用