Para DJ Miao

Flaco hay tienes.
Recuerda que tienes que registrar el dll.
'C:\InfoAnimal\dll\Interop.AgentObjects.dll

En mi caso lo puse en la carpeta del mismo programa .
Hay unos programas que te ensenan los nombres para las
las expreciones .
por ejemplo
Agente.Characters("peedy").Play("Greet")

Yo mas bien lo use para saber

Agente.Characters.Item("peedy").Height = 90
Agente.Characters.Item("peedy").Width = 112


Movia el parajo y el programa te dice el Height y el
Width .



Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click


Dim Agente As New AgentObjects.AgentClass
Agente.Connected = True

Agente.Characters.Load
("peedy", "C:\InfoAnimal\Peedy.acs")

Agente.Characters.Item("peedy").Height = 90
Agente.Characters.Item("peedy").Width = 112
Agente.Characters("peedy").Show()
Agente.Characters("peedy").Play("Greet")
Agente.Characters("peedy").Think("Comprate un
libro...")

End Sub





Miao...

Comprate un libro

Vi un post tuyo mas abajo sobre como poner un agente.
El caso es que despues de ponerlo me da un error
"El tipo agentobjects.agentclass no esta definido" ¿Me
falta algo?


Public Agente As New AgentObjects.AgentClass

If flagPeedy = False Then
flagPeedy = True
Agente.Characters("peedy").Show()
Agente.Characters("peedy").MoveTo(10, -2)
Agente.Characters("peedy").Play("Greet")
Agente.Characters("peedy").Think("Hola
bienvenido. Voy a estar monitoreando que todo te saga
bien.")
Me.RadioButton2.Checked = True
Else

flagPeedy = False
Agente.Characters("Peedy").Hide()
Me.RadioButton1.Checked = True
End If
.

Flaco otra cosa recuerda que esto es para darle una
apariencia llamativa. En mi caso lo uso como chulería y
el programa es para gente que no tienen experiencia en
esto de las pc.
No lo pongas en un sistema POS porque la cajera se queda
jugando con el pajarito.

Tambien te meciono que uso MoveTo y es porque en mi caso
el usuario puede escoger si quiere usar a peedy o
ErrorProvider. Lo que hago es que si escogen a peedy si
el usuario deja algo de poner peedy vuela hasta ese
control y le sale un mensaje como que ingrese el texto.
Es algo lento alo que el jodio parajo coje impulso para
volar. Pero el usuario que usara mi app no es critica y
para el hogar y para personas que no tienen experiencia.


Como comentario tambien se puden usar agentes en las
paginas web.

Vi un post tuyo mas abajo sobre como poner un agente.
El caso es que despues de ponerlo me da un error
"El tipo agentobjects.agentclass no esta definido" ¿Me
falta algo?


Public Agente As New AgentObjects.AgentClass

If flagPeedy = False Then
flagPeedy = True
Agente.Characters("peedy").Show()
Agente.Characters("peedy").MoveTo(10, -2)
Agente.Characters("peedy").Play("Greet")
Agente.Characters("peedy").Think("Hola
bienvenido. Voy a estar monitoreando que todo te saga
bien.")
Me.RadioButton2.Checked = True
Else

flagPeedy = False
Agente.Characters("Peedy").Hide()
Me.RadioButton1.Checked = True
End If
.

No encuentro la dll asi que he buscado por google
Interop.AgentObjects.dll y me sale solo una pagina
francesa que no me lo deja bajar sin un registro previo
que no consigo hacer, (esta todo en frances) Me harias el
favor de pasarmela por correo?
Te lo agradezco.

Vi un post tuyo mas abajo sobre como poner un agente.
El caso es que despues de ponerlo me da un error
"El tipo agentobjects.agentclass no esta definido" ¿Me
falta algo?


Public Agente As New AgentObjects.AgentClass

If flagPeedy = False Then
flagPeedy = True
Agente.Characters("peedy").Show()
Agente.Characters("peedy").MoveTo(10, -2)
Agente.Characters("peedy").Play("Greet")
Agente.Characters("peedy").Think("Hola
bienvenido. Voy a estar monitoreando que todo te saga
bien.")
Me.RadioButton2.Checked = True
Else

flagPeedy = False
Agente.Characters("Peedy").Hide()
Me.RadioButton1.Checked = True
End If
.

esa DLL te la crea automáticamente, lo que tendrás que hacer antes es añadir
una referencia a la dll COM que es la que te permitirá usar los "agentes" en
tus aplicaciones.

Nos vemos.
Guillermo
Microsoft VB MVP desde 1997
Te invito a mi sitio dedicado al VB y más...
http://www.elguille.info/
http://www.mundoprogramacion.com/
(puede que el correo usado sea anti-spam)


"Toni" wrote in message
news:2b5401c49b35$c6acc580$
No encuentro la dll asi que he buscado por google
Interop.AgentObjects.dll y me sale solo una pagina
francesa que no me lo deja bajar sin un registro previo
que no consigo hacer, (esta todo en frances) Me harias el
favor de pasarmela por correo?
Te lo agradezco.

Vi un post tuyo mas abajo sobre como poner un agente.
El caso es que despues de ponerlo me da un error
"El tipo agentobjects.agentclass no esta definido" ¿Me
falta algo?


Public Agente As New AgentObjects.AgentClass

If flagPeedy = False Then
flagPeedy = True
Agente.Characters("peedy").Show()
Agente.Characters("peedy").MoveTo(10, -2)
Agente.Characters("peedy").Play("Greet")
Agente.Characters("peedy").Think("Hola
bienvenido. Voy a estar monitoreando que todo te saga
bien.")
Me.RadioButton2.Checked = True
Else

flagPeedy = False
Agente.Characters("Peedy").Hide()
Me.RadioButton1.Checked = True
End If
.

Gracias Guille, ante todo agradecerte tu atencion. He
buscado esa dll en agregar componente COM y con la opcion
de busqueda del explorador y en mi disco no esta. Uso la
version 2003 de VS. Te agradezco si me haces alguna
indicacion o me puedes enviar la dll la verdad es que me
vendria bien añadir un agente a la app que hago.
Un saludo

esa DLL te la crea automáticamente, lo que tendrás que

hacer antes es añadir

una referencia a la dll COM que es la que te permitirá

usar los "agentes" en

tus aplicaciones.

Nos vemos.
Guillermo
Microsoft VB MVP desde 1997
Te invito a mi sitio dedicado al VB y más...
http://www.elguille.info/
http://www.mundoprogramacion.com/
(puede que el correo usado sea anti-spam)


"Toni" wrote in

message

news:2b5401c49b35$c6acc580$
No encuentro la dll asi que he buscado por google
Interop.AgentObjects.dll y me sale solo una pagina
francesa que no me lo deja bajar sin un registro previo
que no consigo hacer, (esta todo en frances) Me harias el
favor de pasarmela por correo?
Te lo agradezco.

Vi un post tuyo mas abajo sobre como poner un agente.
El caso es que despues de ponerlo me da un error
"El tipo agentobjects.agentclass no esta definido" ¿Me
falta algo?


Public Agente As New AgentObjects.AgentClass

If flagPeedy = False Then
flagPeedy = True
Agente.Characters("peedy").Show()
Agente.Characters("peedy").MoveTo(10, -2)
Agente.Characters("peedy").Play("Greet")
Agente.Characters("peedy").Think("Hola
bienvenido. Voy a estar monitoreando que todo te saga
bien.")
Me.RadioButton2.Checked = True
Else

flagPeedy = False
Agente.Characters("Peedy").Hide()
Me.RadioButton1.Checked = True
End If
.

.