AGENT MICROSOFT

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
 

Télécharger le zip