最美我中文

--------------------------------------------------------------------------------
作者：梦幻的羽 　来源于：中国VB网 　发布时间：2004-11-4
Option Explicit


Private Sub Command1_Click()
    If Text1.Width < 3000 Then Text1.Width = 3000
    Timer1.Enabled = True
    Text1.Text = ""
    Text1.SetFocus
End Sub

Private Sub Form_Load()
    Timer1.Enabled = False
    Timer1.Interval = 250
End Sub

Private Sub Timer1_Timer()
    Static i As Integer
    Dim Str1 As String, Str2 As String, Str3 As String, Str4 As String
    Dim Len1 As Integer, Len2 As Integer, Len3 As Integer
    Str1 = "中国VB网"
    Str2 = "E-Mail:chinavb@chinavb.net"
    Str3 = "Http://www.chinaVB.net"
    Len1 = Len(StrConv(Str1, vbFromUnicode))
    Len2 = Len(Str2)
    Len3 = Len(Str3)

    With Text1
        .FontSize = 12
        .FontName = "黑体"
        .ForeColor = RGB(0, 255, 0)
        .BackColor = RGB(0, 0, 0)
    End With
   
    Str4 = Mid$(Str1 + Str2 + Str3, i + 1, 1)
    SendKeys Str4    '将Str4以键盘输入的形式输出'
        i = i + 1
    '以下内容和Str1,Str2,Str3字符串的长度有关，不一样的长度，Len + 的值是不一样的'
    If i = Len1 + 2 Then  '在这里改正一下原作者的失误，原程序输出内容时不太完整。'
        Text1.Text = ""
    ElseIf i = Len1 + Len2 + 2 Then
        Text1.Text = ""
    ElseIf i = Len1 + Len2 + Len3 + 2 Then
        i = 0
        Text1.Text = ""
    End If
    '其实在这里程序是一个无限循环，不断的重复输出内容'
End Sub