VB程序标题逐字显示

来源：百度知道 编辑：UC知道 时间：2024/06/07 09:37:42
要求：form1的caption当程序启动后逐字显示text中的内容，当全部显示完后，重新从头再来一遍，如此往复，更改text的内容按command后，改为显示新的text中的内容

添加控件timer，textbox ，commandbutton
复制以下代码
Option Explicit

Private Sub Command1_Click()
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
Static i As Integer
i = i + 1
Me.Caption = Mid(Text1, 1, i)'这里改为mid(text1,i,1)效果不同的，你自己试试看
If i > Len(Text1) Then i = 0
End Sub