c'est plutôt amusant, je l'es tester ce soir avec des fichiers telechargés depuis:
http://cantoche.com
Amusé vous aussi
Source / Exemple :
Dim caractere As IAgentCtlCharacterEx
Public EditListIndex As Integer
Dim change As Boolean
Private Sub Check1_Click()
caractere.SoundEffectsOn = Check1.Value
If Check1.Value = 0 Then
caractere.SoundEffectsOn = True
Check1.Caption = "Sound Effects On"
Else
caractere.SoundEffectsOn = False
Check1.Caption = "Sound Effects Off"
End If
End Sub
Private Sub Command1_Click()
'Enregistrement du patient
' Attribue à CancelError la valeur True
CMD.CancelError = True
On Error GoTo ErrHandler
' Définit la propriété Flags
CMD.Flags = cdlOFNHideReadOnly
' Définit les filtres
CMD.Filter = "Tous les fichiers (*.*)|*.*|Fichiers caractere " & _
"(*.acs)|*.acs"
' Définit le filtre par défaut
CMD.FilterIndex = 2
CMD.InitDir = App.Path + "*.rot"
' Affiche la boîte de dialogue Ouverture
CMD.DialogTitle = "Ouvrir caractere"
CMD.ShowOpen
' Affiche le nom du fichier sélectionné
MousePointer = 11
Text1.Text = CMD.FileName
' Ensure all the controls are sized as needed.
Agent1.Characters.Load Text1.Text, Text1.Text
Set caractere = Agent1.Characters(Text1.Text)
presence = True
caractere.MoveTo 300, 300
Check1_Click
S2.Value = caractere.Height
S1.Value = caractere.Width
change = True
On Error GoTo 1000
Combo1.Text = caractere.LanguageID
1000
caractere.Show
caractere.Speak "bonjour, utiliser les options disponibles pour me tester et regarder ce que je suis capable de faire. "
MousePointer = 0
Exit Sub
ErrHandler:
'L'utilisateur a cliqué sur Annuler
Exit Sub
End Sub
Private Sub Command2_Click()
Check1_Click
caractere.LanguageID = Combo1.Text
caractere.Speak (Text2.Text)
caractere.Play (List1.Text)
End Sub
Private Sub Command3_Click()
caractere.Show
End Sub
Private Sub Command4_Click()
caractere.Hide
End Sub
Private Sub Command5_Click()
Dim loge$
loge = loge & Chr$(13) & "Activation: " & caractere.Active
'loge = loge & Chr$(13) & caractere.AnimationNames
loge = loge & Chr$(13) & "AutoPopupMenu: " & caractere.AutoPopupMenu
'loge = loge & Chr$(13) & caractere.Balloon
'loge = loge & Chr$(13) & caractere.Commands
loge = loge & Chr$(13) & "description: " & caractere.Description
loge = loge & Chr$(13) & "extradata: " & caractere.ExtraData
loge = loge & Chr$(13) & "serial guid: " & caractere.Guid
loge = loge & Chr$(13) & "HasOtherClients: " & caractere.HasOtherClients
loge = loge & Chr$(13) & "nom: " & caractere.Name
loge = loge & Chr$(13) & "pitch: " & caractere.Pitch
loge = loge & Chr$(13) & "speed: " & caractere.Speed
loge = loge & Chr$(13) & "SRModeID: " & caractere.SRModeID
loge = loge & Chr$(13) & "SRStatus: " & caractere.SRStatus
loge = loge & Chr$(13) & caractere.TTSModeID
loge = loge & Chr$(13) & "Version: " & caractere.Version
loge = loge & Chr$(13) & caractere.VisibilityCause
Label7.Caption = loge
End Sub
Private Sub Command8_Click()
End
End Sub
Private Sub Command7_Click()
On Error GoTo 1002
caractere.Play List1.Text
Exit Sub
1002 MsgBox "il y a une erreur:" + Chr$(13) + Error
End Sub
Private Sub Form_Load()
Label7.Caption = ""
S1.Min = 0
S2.Min = 0
S2.Max = 10000
S1.Max = 10000
change = False
End Sub
Private Sub S1_Change()
If change = True Then caractere.Height = S2.Value
End Sub
Private Sub S2_Change()
If change = True Then caractere.Width = S1.Value
End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.