|
步骤1：建立新工程，在窗体上放置一个TextBox，一个按钮， 一个Timer控件；
步骤2：编写如下代码：
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
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
[1] [2] 下一页
|
