CLASE EN VISUAL BASIC

Clase "ASISTENTE"

Antes de empezar a codificar tenemos que hacer Referencia a una librería, así que sigan estos pasos:

Denle click a "Proyecto" en el menú.

Ahora le dan click a "Referencia..."

Busca Microsoft Agent 2.0 y lo seleccionan y luego le dan click a Aceptar.

Bueno empecemos, para comenzar llamen a la clase "Asistente" y declaramos nuestras primerasvariables que serán las siguientes:

Private WithEvents agnAsistente As Agent

Private iaCargaAsistente As IAgentCtlCharacterEx

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Notaran que la es declarado PRIVADA ya que estas variables solamente pueden ser vista por la CLASE y no por el programa. La primera variable es el objeto de Microsoft Agent, este objeto es necesario para invocar al asistente. Verán que hay una palabra que puede ser nueva para ustedes que es WITHEVENTS; si tuviésemos un formulario no tendríamos que poner esta línea de código, ya que Agent es un control, que con tan solo llamarlo y colocarlo en el formulario basta para acceder a sus propiedades, métodos, funciones y eventos, pero como esto es una clase y no podemos poner un control; si yo declarara la variables de esta manera Private agnAsistente As Agent, sin el WITHEVETNS, tendría acceso a las propiedades, métodos y funciones, PERO NO! A los eventos, para tener acceso a los eventos hay que colocar WITHEVENTS, por que resulta que si lo añadiera como un control en un formulario, cuando arranca el programa, el formulario se encarga de cargar todos los eventos, propiedades, etc, de ese control, pero como aquí todo es a nivel de código hay que ser un poco mas explicito.

La segunda variable es la que vamos a usar para manipular al CHARS o Asistente, con este objeto podremos moverlo, animarlo, etc.

Y la tercera variable es un API de Windows lo cual explicare cuando la utilicemos, nada mas le adelanto que esta API nos permite conocer el nombre del directorio en donde esta grabado WINDOWS