文本框【逐字显示】文本小源码、

淡然出尘

示例

[Visual Basic] 纯文本查看 复制代码

 '有关设置 text1 text2 timer1 command1 
Private str As String
Dim i As Integer
Private Sub Command1_Click()
str = Text1.Text
Text2.Text = Mid(str, 1, 1)
End Sub
Private Sub Timer1_Timer()
If i <= Len(str) Then
    i = i + 1
   Call dazi
   End If
End Sub
Private Sub dazi()
Dim str1 As String, str2 As String
str1 = Mid(str, i, 1)
Text2.Text = Text2.Text & str1
End Sub

--------------------------------
期待新的 更好的思路及源码分享 跟帖有加分啊 以作集思广益、

xingchao0203

[C#] 纯文本查看 复制代码

    public partial class Form1 : Form
    {
        private char[] arr;

        public Form1()
        {
            InitializeComponent();
        }

        private void button1_Click(object sender, EventArgs e)
        {
            richTextBox2.Clear();

            arr = richTextBox1.Text.ToCharArray(0, richTextBox1.Text.Length);

            Thread newThread = new Thread(new ThreadStart(Print));
            newThread.IsBackground = true;
            newThread.Priority = ThreadPriority.Lowest;
            newThread.Start();
            //PrintChar(arr, richTextBox2);
        }

        private void Print()
        {
            if (this.InvokeRequired)
            {
                BeginInvoke(new EventHandler(PrintPrint), null);
            }
            else
            {
                //PrintPrint(this, null);
            }
        }

        private void PrintPrint(object sender, EventArgs e)
        {
            foreach (char item in arr)
            {
                richTextBox2.Text += item;
                richTextBox2.Update();
                Thread.Sleep(1000);
            }
        }

        //private void PrintChar(char[] arr, RichTextBox textbox)
        //{
        //    foreach (char item in arr)
        //    {
        //        textbox.Text += item;
        //        Update();
        //        Thread.Sleep(1000);
        //    }
        //}
    }
}

本来想用多线程来让程序在执行的过程中可以关闭,结果还是没有实现...
求多线程玩得明白的指导~

小歆

我的也VB，比较简单，代码如下：

[Visual Basic] 纯文本查看 复制代码

Private Sub Command1_Click()
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    Static i As Long
    If i <= Len(Text1.Text) Then
        Text2.Text = Left(Text1.Text, i)
        i = i + 1
    Else
        Timer1.Enabled = False
    End If
End Sub

哎呀 不会做动态图，就这样样子吧...

控件：text两个，command一个，timer一个（属性如下图）。

ξ粲ξ

这是VB吧……

1354669803

师傅怎么开始玩VB了

Outku

哈哈,不错,挺好玩的

怀念、

感谢楼主奉献，我只会用E写这玩意

eyesstworld

学习了。。感谢LZ分享