Nette Sprüche vom Office-Agent Ein Tipp, wie sich den Office-Agenten (z.B. Merlin) nette Sprüche beibringen lassen.
Autor:   Nils	Bewertung:     [ Jetzt bewerten ]	Views:  18.251
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 31 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.2 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Der nachfolgende Tipp zeigt, wie sich den Office-Agenten (z.B. Merlin) nette Sprüche beibringen lassen.

Zunächst müssen Sie Ihrem Projekt das Microsoft Agent Control x.0 hinzufügen. Das geht aber nur, wenn Sie das Office-Paket von Microsoft installiert haben.

Plazieren Sie das Agent-Control auf die Form und zusätzlich noch einen CommandButton. Beim Klicken auf den Button soll der Agent (in unserem Beispiel "Merlin") dann einen Spruch zufällig auswählen und "vortragen".

Alles was Sie tun müssen, ist die Alternativen mit einem Pipe-Zeichen (|) abzutrennen. Dann sucht sich der MS-Agent immer zufällig eine Möglichkeit aus.

Option Explicit
' Agent "Merlin" referenzieren
Dim Merlin As IAgentCtlCharacter
 
Private Sub Form_Load()
  On Error Resume Next
  Dim Animation As Variant
 
  ' Merlin wird geladen
  Agent1.Characters.Load "Merlin", "Merlin.acs"
 
  ' Agent-Character: Merlin
  Set Merlin = Agent1.Characters("Merlin")
 
  ' Pedy erscheint
  Merlin.Show
 
  On Error Goto 0
End Sub

' MS-Agent spricht
Private Sub Command1_Click()
  ' Alternativen werden durch das |-Zeichen 
  ' voneinander getrennt
  Merlin.Speak "Guten Tag|Hallo|" & _
    "WillkommenIch Grüße sie|Freut mich sie zu sehen"
End Sub

Einfach aber effektiv!