¿Te acuerdas del los muñequitos molestos de Office que supuestamente eran parte de la ayuda interactiva de office?

Pero antes de entrar en materia ¿como consigo este control?

Muy simple solo ve a la siguiente pagina Web Ir  y descarga la Dll, los personajes, los módulos de lenguaje (bueno esto es solo si quieres que hablen bien pero eso depende de ti) y husmea la pagina Web para ver que mas encuentras útil para ti.

Bueno entrando en materia todo sobre como cargar tu agente y utilizarlo

Bueno esta parte para los neófitos (principiantes):

1. Carguen el control en Vb6, hay dos formas de hacerlo, una es en el panel de los objetos hundan clic derecho y escojan el control Microsoft Agent Control 2.0 de la lista de controles y entonces escojan aceptar, la otra forma de hacerlo es meterse en la pestaña que dice proyecto, entonces allí escoger componentes y abrirá la lista de componentes y entonces escogen el control y listo.

2. Después Insértenlo en el formulario arrastrando el control de la barra de objetos al formulario.

Ahorra si para todos:

Advierto antes de empezar: Solo les diré como cargar al personaje, como hacer hablar al personaje (en este caso merlín) y como hacerlo ejecutar algunas acciones.

Cargando al Personaje en Vb6: Una vez insertado el control en el formulario, procedemos a introducir el siguiente código dentro del Option Explicit:

Option Explicit Const DataAtor = "merlin.acs" Dim merlin As IAgentCtlCharacterEx

Y para terminar de cargar el personaje en el evento load del formulario ponemos el siguiente código:

Private Sub Form_Load() Agent1.Characters.Load "merlin", DataAtor Set merlin = Agent1.Characters("merlin") End Sub

Haciendo un poco de magia (como hacer que aparezca Merlín, como hacerlo hablar y como ejecutar una acción o gesto con el): En el formulario incorporamos un commandbutton o un botón de comando llamado command1 e insertamos en el siguiente código:

Private Sub Command1_Click() merlin.Show merlin.Play ("Decline") merlin.Play ("GetAttentionContinued") merlin.Play ("GetAttentionContinued") merlin.Play ("GetAttentionContinued") merlin.Speak ("No me Hagas perder el Tiempo") merlin.Hide End Sub

Esto si vale la pena explicarlo, bueno empecemos:

Cuando se le da instrucción merlin.show esto hace que el personaje de Merlin aparezca (muy obvio ¿no?), cuando se le da la instrucción merlin.Play ("Decline") o merlin.Play ("GetAttentionContinued") es para que realice un gesto o una acción (bueno se estarán preguntando como diablos se que acciones puede hacer Merlin pues eso lo deberían de haber buscado en la pagina Web de Microsoft porque son mas 30 acciones y la verdad no tengo ganas de explicarlas) y cuando se le da la instrucción merlin.Speak ("No me Hagas perder el Tiempo") se le esta indicando que utilice una nube (como en las caricaturas) para que imprima el texto que le indicamos (en este caso "No me Hagas perder el Tiempo").

Bueno la verdad hay muchas cosas que este personaje puede hacer aparte de hablar, realizar acciones y ejecutar sonidos, pero eso se los dejo para que los descubran por si solos.