Metodo Wait
[Microsoft Agent è deprecato a partire da Windows 7 e potrebbe non essere disponibile nelle versioni successive di Windows.]
-
Descrizione
-
Causa il completamento della coda di animazione per il carattere specificato fino al completamento della richiesta di animazione specificata.
-
Sintassi
-
agent**. Caratteri ("CharacterID"). Wait**Request
Parte Descrizione Richiesta Oggetto Request che specifica un'animazione specifica.
Usare questo metodo solo quando si supportano più caratteri simultanei e si sta tentando di sequenziare l'interazione dei caratteri. Per un singolo carattere, ogni richiesta di animazione viene riprodotta in sequenza dopo il completamento della richiesta precedente. Se si hanno due caratteri e si vuole che la richiesta di animazione di un carattere attendi fino al completamento dell'animazione dell'altro carattere, impostare il metodo Wait sull'oggetto Request dell'animazione di altri caratteri. Per specificare il parametro della richiesta, è necessario creare una variabile e assegnare la richiesta di animazione che si desidera interrompere:
Dim GenieRequest
Dim RobbyRequest
Dim Genie
Dim Robby
Sub window_Onload
Agent1.Characters.Load "Genie", "https://agent.microsoft.com/characters/v2/genie/genie.acf"
Agent1.Characters.Load "Robby", "https://agent.microsoft.com/characters/v2/robby/robby.acf"
Set Genie = Agent1.Characters("Genie")
Set Robby = Agent1.Characters("Robby")
Genie.Get "State", "Showing"
Robby.Get "State", "Showing"
Genie.Get "Animation", "Announce, AnnounceReturn, Pleased, _
PleasedReturn"
Robby.Get "Animation", "Confused, ConfusedReturn, Sad, SadReturn"
Set Genie = Agent1.Characters ("Genie")
Set Robby = Agent1.Characters ("Robby")
Genie.MoveTo 100,100
Genie.Show
Robby.MoveTo 250,100
Robby.Show
Genie.Play "Announce"
Set GenieRequest = Genie.Speak ("Why did the chicken cross the road?")
Robby.Wait GenieRequest
Robby.Play "Confused"
Set RobbyRequest = Robby.Speak ("I don't know. Why did the chicken _
cross the road?")
Genie.Wait RobbyRequest
Genie.Play "Pleased"
Set GenieRequest = Genie.Speak ("To get to the other side.")
Robby.Wait GenieRequest
Robby.Play "Sad"
Robby.Speak "I never should have asked."
End Sub
È anche possibile semplificare il codice chiamando Wait direttamente usando una richiesta di animazione specifica.
Robby.Wait Genie.Play "GestureRight"
Ciò evita di dover dichiarare in modo esplicito un oggetto Request .