gestion de la durée d'Agent

Question

marcod59

Bonjour,

Dans VBA j'ai cr&#233;&#233; une userform avec un agent &#224; l'int&#233;rieur et voici le code que j'ai mis &#224; l'int&#233;rieur :
Private Sub UserForm_Activate()
UserForm1.Hide
    Dim Merlin As IAgentCtlCharacter
    chemin = Environ("windir") & "\msagent\chars\merlin.acs" 'peedy.acs pour le perroquet,robby pour le robot
    'chemin = Environ("windir") & "\msagent\chars\genie.acs" 'peedy.acs pour le perroquet,robby pour le robot
    'chemin = Environ("windir") & "\msagent\chars\peedy.acs" 'peedy.acs pour le perroquet,robby pour le robot
    'chemin = Environ("windir") & "\msagent\chars\robby.acs" 'peedy.acs pour le perroquet,robby pour le robot


    Agent1.Characters.Load "Merlin", chemin
    Agent1.Characters("Merlin").LanguageID = &H40C
    Set Merlin = Agent1.Characters("Merlin")
    Merlin.Show
    Merlin.Height = 200
    Merlin.Width = 200
        Merlin.MoveTo Int((500 * Rnd) + 1), Int((500 * Rnd) + 1)
            Merlin.Speak "Bonjour"
        On Error Resume Next '
        Merlin.Play "Announce"
        Merlin.Play "RestPose"


Unload Me


End Sub

Voil&#224; mon probl&#232;me : le Unload me d&#233;charge tout de suite la userform donc je n'ai pas merlin qui apparait. Comment g&#233;rer la dur&#233;e de l'animation et du parler de merlin afin de pouvoir fermer la userform qu'une fois qu'il a fini ?

Merci d'avance et bonne prog

@+++

cs_corsica · Answer

Ne peux-tu pas cacher la feuille au lieu de la d&#233;charger ?



<HR>

Life is Too Short ...
Enjoy Your Life ...

cs_corsica · Answer

Oups d&#233;sol&#233; , j'avais pas vu le hide au d&#233;but du code ...


<HR>

Life is Too Short ...
Enjoy Your Life ...

Gestion de la durée d'Agent

2 réponses

Discussions similaires