# Re: Text控制项文字如何传达另一个Text.Text....（有问题）

Posted by 纪文和 on July 24, 1999 at 05:21:17:

In Reply to: Re: Text控制项文字如何传达另一个Text.Text....（有问题） posted by NewProgame on July 23, 1999 at 22:07:02:

我以一次在 Text2 中出现一个字为例,程式大概如下:
先在 Form 上放二个 TextBox (Text1, Text2) 及一个 Timer (Timer1)

Private Sub Form_Load()
Text1 = "响应网路环保，除非必要的说明，本站将尽可能少用图片。"
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
Static i As Long
Text1.SelStart = i
Text1.SelLength = 1
Text2 = Text1.SelText
i = i + 1
End Sub

若是一次不只一个字, 只要稍微修改即可!!

Follow Ups: