Option Explicit
 
Dim Peedy As IAgentCtlCharacterEx
 
Private Sub Form_Activate()
  Agent1.Characters.Load "Peedy", "Peedy.acs"
  Set Peedy = Agent1.Characters("Peedy")
 
  StartPeedyShow
End Sub
 
Private Sub StartPeedyShow()
  With Peedy
...
      End Sub
 
Private Sub Command1_Click()
  Peedy.Show
  If Dir(App.Path & "\SpeakText.txt") <> "" Then
    Shell "notepad.exe " & App.Path & "\SpeakText.txt", _
        vbNormalFocus
  Else
    MsgBox "Die Textdatei " & vbNewLine & _
        App.Path & "\SpeakText.txt" & vbNewLine & _
        "konnte nicht gefunden werden.", vbExclamation, "Abbruch"
    Exit Sub
  End If
 
   ' Text aus Textdatei sprechen lassen
  ' txtLine.Text = ReadLine(App.Path & "\speaktext.txt", 8)
  SpeakTextFile ReadLine(App.Path & "\SpeakText.txt", 8)
  ' SpeakTextFile App.Path & "\SpeakText.txt"
 
  Peedy.Hide
End Sub
 
Private Sub SpeakTextFile(file As String)
  Dim txt As String
  Dim FN As Integer
  FN = FreeFile
 
  ' Textfile vorlesen
  Open file For Input As #FN
  While Not EOF(FN)
  Line Input #FN, txt
    Peedy.Speak txt
  Wend
  Close #FN
End Sub
 
 
Private Sub Command2_Click()
  Dim Animation As Variant
  List1.Clear
  For Each Animation In Peedy.AnimationNames
    List1.AddItem Animation
  Next
End Sub
 
Private Sub List1_Click()
  On Error Resume Next
  Peedy.Stop
  With Peedy
    .Show
    .Play List1.List(List1.ListIndex)
  End With
End Sub
 
Private Sub Command3_Click()
  Peedy.Stop
  Peedy.Hide
End Sub
 
Private Sub Command4_Click()
  StartPeedyShow
End Sub
 
Private Sub Command5_Click()
  Unload Me
  End
End Sub
' VB-@rchiv
'  Bestimmte Zeile aus einer Textdatei lesen
Public Function ReadLine(ByVal sFile As String, _
  Optional ByVal nLine As Long = 1) As String
 
  Dim sLines() As String
  Dim oFSO As Object
  Dim oFile As Object
 
  '  Fehlerbehandlung aktivieren
  On Error GoTo ErrHandler
 
  '  Verweis auf das FileSystemObject erstellen
  Set oFSO = CreateObject("Scripting.FileSystemObject")
 
  '  Existiert die Datei überhaupt?
  If oFSO.FileExists(sFile) Then
    '  Datei öffnen
    Set oFile = oFSO.OpenTextFile(sFile)
 
    '  Alles lesen und in Array zerlegen
    sLines = Split(oFile.ReadAll, vbCrLf)
 
    '  Datei schließen
    oFile.Close
 
    Select Case Sgn(nLine)
       '  (nLine > 0)
      Case 1
        '  n-te Zeile von vorne beginnend
        ReadLine = sLines(nLine - 1)
 
      '  (nLine < 0)
      Case -1
        '  n-te Zeile von hinten beginnend
        ReadLine = sLines(UBound(sLines) + nLine + 1)
    End Select
  End If
 
ErrHandler:
  '  Objekte zerstören
  Set oFile = Nothing
  Set oFSO = Nothing
End Function
 
'  Beispiel für den Einsatz von "ReadLine":
'  8-te Zeile einer Datei lesen
'  txtLine.Text = ReadLine(App.Path & "\speaktext.txt", 8)
'  vorletzte Datei lesen
'  txtLine = ReadLine(App.Path & "\speaktext.txt", -2)