VB如何实现记事本自动打字。 好了给搞分

Question

就是把一段文字输入保存txt，让后导入软件会自动打字。

Answer 1

Option Explicit

'Text2.MultiLine 属性设为 True

Private Const lpFileName = "D:\123.txt" '默认文件全路径

Private Const lpInterval = 100          '间隔100毫秒(0.1秒)

Public lpString As String

Public lpLenth As Long

Private Sub Command1_Click()

    If Dir(Text1.Text) = "" Then

        MsgBox "文件:" & Text1.Text & " 不存在!", vbCritical + vbOKOnly, "Error"

        Exit Sub

    End If

    Dim s As String

    lpString = ""

    Open Text1.Text For Input As #1

    Do While Not EOF(1)

    Line Input #1, s

    lpString = lpString & s & vbCrLf

    Loop

    Close #1

    lpLenth = Len(lpString)

    Timer1.Enabled = True

End Sub

Private Sub Form_Load()

    Text1.Text = lpFileName

    Timer1.Interval = lpInterval

    Timer1.Enabled = False

    Command1.Caption = "打开(&O)"

End Sub

Private Sub Timer1_Timer()

    Static i As Long

    i = i + 1

    If i > lpLenth Then

        i = 0

        Timer1.Enabled = False

        Exit Sub

    End If

    Text2.Text = Left(lpString, i)

End Sub

'如图,画好这些控件,就可以了