14.txt

来自「介绍VB里的各种控件的使用方法,窗口控制,图像编程以及OCX等内容,还提供了一个」· 文本 代码 · 共 43 行

TextBox实现打印机效果 
     利用TextBox可以实现打印机效果的显示信息。
请看下例：
>>步骤1----建立新工程，在窗体上放置一个TextBox，一个CommandButton按钮， 一个Timer控件。设置Timer的Enable=false;Interval = 200;
>>步骤2----编写如下代码：

Private Sub Command1_Click()
    Timer1.Enabled = True
    Text1.SetFocus
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 = "程序编制：小马哥"
    Str2 = "EMail:[e-mail]"
    Str3 = "Http://MaJiFeng.top263.net"
    Len1 = Len(StrConv(Str1, vbFromUnicode))
    Len2 = Len(Str2):Len3 = Len(Str3)

    With Text1
        .FontSize = 20
        .FontName = "黑体"
        .ForeColor = &HFF0000
        .BackColor = &HFFFF&
    End With

    Str2 = Mid$(Str1 + Str2 + Str3, i + 1, 1)
    SendKeys Str2
    i = i + 1

    If i = Len1 + 1 Then
        Text1.Text = ""
    ElseIf i = Len1 + Len2 + 1 Then
        Text1.Text = ""
    ElseIf i = Len1 + Len2 + Len3 + 1 Then
        i = 0
        Text1.Text = ""
    End If
End Sub