8. Finalización de un Control
Bueno muchachos no lo van creer, pero hemos terminado, lo único que falta es indicarle como compilar el control y utilizarlo en sus programas, increíble!!!. Para ser este ultimo paso hagan lo siguiente:
- Dale Click al menú en la parte de "PROYECTO", y ahí le das click a Propiedades del Proyecto en "Tipo de Proyecto", selecciona "Control Activex", en "Objeto Inicial" selecciona ninguno, y en nombre del proyecto Escribe "TextBE", y le das click a Aceptar.
- Ahora le das click a Archivo en el menú, y le selecciones "Generar Proyecto1.ocx…." verán que le aparece un error (UHY COMO SUFRI PARA SOLUCIONAR ESE ERROR), que le dice "No se ha detectado ningún control de usuario publico", para solucionar este error denle dobleclick al control en la Ventana de Proyecto, en la Ventana de propiedades, busquen la propiedad Public la cual debería de estar en False, y la cambian a True.
- Ahora intenta generar el ocx haciendo lo que indica el paso 2, veras que ahora te aparece un formulario donde decidirás la ubicación de tu ocx, vamos a guardarlo en WINDOWS/SYSTEM y en nombre de archivo coloca TextBE.ocx, y le dan click a Aceptar.
- Si no da ningún error, significa que todo salió perfecto, ahora se preguntaran como añadimos nuestro control a un proyecto, bueno en el menú Archivo, denle click a "Quitar Proyecto", cuando tengan todo en blanco, añaden un nuevo proyecto, que solamente tenga un formulario, vean en la ventana de controles que no aparece nuestro control. Para solucionar eso metanse en el menú Proyecto y le dan click a la opción de "Componentes……" y buscan por la letra T y verán que aparecerá en la lista TextBE lo seleccionan y luego Presionan el botón Aceptar.
- Verán que se añade un nuevo control, VAMOS PRUEBA EL CONTROL!!!!!!!!!.
- Para cambiar el icono que muestra el control, basta que cuando estén diseñando el control en la Ventana Propiedades, busques la propiedad "ToolboxBitmap" y le asignes una imagen.
Bueno señores ahora si terminamos, espero que haber dedicado tiempo a leer esta parte del curso le halla servido para aprender lo esencial de la creación de controles, cabe mencionar que este CONTROL TEXTBOX_ESPECIAL, puede tener muchas fallas, o cosillas que siempre se escapan, pero bueno eso les queda como tarea para que practiquen con los controles. Señores diseñando controles ustedes pueden hacer lo que quieren, ANIMACIONES, TEXBOX SUPER AVANZADOS, GRAFICOS, lo que sea, solo hace falta conocer como hace un control, y una gran imaginación para realizar los mejores controles. A continuación explicare como diseñar clases en Visual Basic, véanla miren que la clase de ejemplo es un asistente ANIMADO el cual habla y todo que TAL!!!!!, y le puede ser muy útil.
10 .Introducción a las Clases
Tal vez cuando le hablan de clases se empiezan a imaginar un código complicado, enredado, y abstracto, bueno desde una perspectiva lo es; pero en Visual Basic la definición o la creación de una clase es muy sencilla, cuando dije desde una perspectiva es que las clases son complicadas en Lenguajes que Requieren del 100% de ellas, como por ejemplo Visual C++, JAVA, en estos las clases presentan muchas características que no se presentan en visual basic.
Una clase no es nada mas que un Objeto, este objeto, tiene propiedades, funciones y métodos, ahora ustedes se preguntaran bueno esto mismo lo tienen presente los controles, entonces cual seria la diferencia entre un control y una clase, bueno para empezar la construcción de una clase no requiere de tanto "Protocolo" (ReadProperty, WriteProperty), ahora para la creación de propiedades si se utiliza Property Let y Property Get; la diferencia es casi nada, inclusive podría decir que una clase en visual basic, es casi lo mismo que un control, pero ahora nace una nueva pregunta, cuando utilizar un control y cuando utilizar una clase, bueno la opinión que voy a dar es desde mi perspectiva; yo usaría un control cuando quiere representar un objeto grafico en donde el usuario interactúa con él, y usuaria una clase para manipular la información interna de un programa, es decir normalmente una clase no suele ser una interfaz grafica, como por ejemplo, estaba visitando una pagina de Internet y vi una clase que manipula el DATAREPORT pero de una manera fenomenal, esta clase se le pasa la información a nivel de código y emite un reporte dependiendo de la información.
Un ejemplo mas claro de clase, imagínense que están diseñando un programa matemático, este programa tiene una parte en donde dibuja una figura geométrica, muy bien podrían diseñar un control pero no seria lo adecuado PORQUE?, bueno porque yo veo a un control como un objeto que el usuario manipula, usa e interactúa con él, el usuario no va interactuar con un dibujo de una figura geométrica, entonces es aquí donde diseñaría una clase, que realizara todos los cálculos para dibujar una figura geométrica, la clases también ayudan a mantener un código ordenado, y poder reutilizarlo en cualquier aplicación.
11. Propiedades, Funciones y Eventos.
Esto es exactamente igual que en los controles, pero tienen que tener un cuenta una cosa, que son las palabras PUBLIC y PRIVATE, cuando se diseña una clase tienen que tener cuidado cuando declaran funciones, métodos y variables, ya que ustedes tienen que saber que variable es privado y que variable es publica; una variable PUBLICA puede ser vista por aquellos quienes usen la clase y la PRIVADA no puede ser vista sino nada mas por la propia clase, cuando veamos el ejemplo se entenderá mejor.
12. Diseño de clase en Visual Basic
Microsoft saco un programa llamado Microsoft Agent, este software permite realizar programas en cualquier lenguaje, colocando un asistente animado en 3D, parecido a los que observamos en OFFICE 2000, para la realización de esta clase es OBLIGATORIO tener los siguientes componentes instalados:
- El programa Microsoft Agent
- Un idioma instalado para el uso de la voz
- UN asistente o como llama Microsoft en su pagina Web un "CHARS"
Si tienen el CD N.-3 de Visual Studio 6.0, metanse en la carpeta CommonToolsVBMSAgent, en esa carpeta tienen el programa, la documentación y los CHARS ( o como yo les dijo Asistentes) o pueden bajar el programa que no ocupa mucho desde la pagina web www.microsoft.com/msagent, ahí podrá conseguir todo para el uso del agente (DIFERENTES Lenguajes de Habla, el programa actualizado y los 4 Chars que solamente hay en la actualidad que son: Merlín, Genie, Peedy, Robby). Cuando instale el programa podrá notar que los Chars se instalan en la Carpeta de WINDOWS/MSAGENT/CHARS, esto es importante cuando establezcamos la ubicación a nivel de código.
Bueno suponiendo que ya tienen instalado todo esto, empecemos, esta clase puede ser muy útil para desarrollar programas animados o que requieren un asistente el cual van a ver que tiene muchas funciones y facilidades.
Para empezar ejecutemos el programa Visual Basic y cuando le aparezca la ventana "NUEVO PROYECTO" igual a la figura n.2, seleccionen el icono "DLL Activex", y le dan Doble Click.
Verán que le aparece un modulo de clase y en este caso cuando se compila no genera un OCX como el control sino un DLL. Y se ven los eventos de la clase notaran que nada mas hay INITIALIZE Y TERMINATE (QUE COMODIDAD). Bueno lo primero que tienen que tomar cuenta es que a la clase no se le pueden añadir controles, como verán no se presenta ningún formulario, y ni siquiera el fondo gris como el control, señores, aquí todo es a nivel de CODIGO, así que prepárense.
13. Creación de la 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 primeras variables 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.
Continuamos, vamos a declara ahora todas las variables que vamos a usar en el programa:
Enum Idioma ‘ Variable que nos permite saber el idioma en que hablara el CHAR
EnglishUS = &H409
EnglishGB = &H809
French = &H40C
Italian = &H410
Portuguese = &H816
Spanish = &HC0A
End Enum
Enum Muñeco ‘ Variable que no permite seleccionar que CHAR se ejecutara
Genie = 0
Merlin = 1
Robby = 2
Peedy = 3
End Enum
Enum Accion ‘ Las diferentes animación de los CHAR
Acknowledge
Alert
Announce
Blink
Confused
Congratulate
Decline
DoMagic1
DoMagic2
DontRecognize
Explain
GestureDown
GestureLeft
GestureRight
GestureUp
GetAttention
GetAttentionContinued
GetAttentionReturn
Greet
Hearing_1
Hearing_2
Hearing_3
Hide
Idle1_1
Idle1_2
Idle1_3
Idle1_4
Idle2_1
Idle2_2
Idle3_1
Idle3_2
LookDown
LookDownReturn
LookLeft
LookLeftReturn
LookRight
LookRightReturn
LookUp
LookUpReturn
MoveDown
MoveLeft
MoveUp
MoveRight
Pleased
Process
Processing
Read
ReadContinued
Reading
ReadReturn
RestPose
Sad
ShowA
Search
Searching
StartListening
StopListening
Suggest
Surprised
ThinkW
Thinking
Uncertain
Wave
WriteA
WriteContinued
WriteReturn
Writing
End Enum
Dim intAccion As Integer ‘ Determina que accion esta activo y lista para ejecutar
Dim strWindows As String ‘ Determina la carpeta donde esta instalado WINDOWS
Dim strMuñeco As String ‘ Determina que muñeco fue elegido por el usuario
Dim bytInicio As Byte ‘ Indica si hay un Muñeco activo
Dim Array_Accion(1 To 67) As String ‘ Lista de todas las acciones del CHAR
Dim bolBalloon As Boolean ‘ Determina se presenta un BALLON para presentar el texto (EL BALLON es como el globo que aparece en las tiras cómicas donde se escribe el mensaje)
Dim bolAutoHide As Boolean ‘ Determina si se esconde el BALLON cuando termina de presentar el mensaje
Dim bolAutoSpace As Boolean ‘ Determina el espacio entre las frases
Dim bolSonido As Boolean ‘ Determina si las animaciones presentaran sonidos
El uso de la variable lo pueden ver en el comentario que les coloco al lado. Recomiendo que antes de entrar mas al programa se lean un poco la documentación del Microsoft Agent, ya que lo que viene ahora es mas CODIGO que explicación, recuerden estoy explicando CLASES no AGENT.
Ahora en el evento Initialize de la clase "Asistente" coloque este código:
Private Sub Class_Initialize()
Set agnAsistente = New Agent
Carpeta_Windows
bytInicio = 0
bolAutoSpace = True
bolAutoHide = True
bolBalloon = True
Array_Accion(1) = "Acknowledge"
Array_Accion(2) = "Alert"
Array_Accion(3) = "Announce"
Array_Accion(4) = "Blink"
Array_Accion(5) = "Confused"
Array_Accion(6) = "Congratulate"
Array_Accion(7) = "Decline"
Array_Accion(8) = "DoMagic1"
Array_Accion(9) = "DoMagic2"
Array_Accion(10) = "DontRecognize"
Array_Accion(11) = "Explain"
Array_Accion(12) = "GestureDown"
Array_Accion(13) = "GestureLeft"
Array_Accion(14) = "GestureRight"
Array_Accion(15) = "GestureUp"
Array_Accion(16) = "GetAttention"
Array_Accion(17) = "GetAttentionContinued"
Array_Accion(18) = "GetAttentionReturn"
Array_Accion(19) = "Greet"
Array_Accion(20) = "Hearing_1"
Array_Accion(21) = "Hearing_2"
Array_Accion(22) = "Hearing_3"
Array_Accion(23) = "Hide"
Array_Accion(24) = "Idle1_1"
Array_Accion(25) = "Idle1_2"
Array_Accion(26) = "Idle1_3"
Array_Accion(27) = "Idle1_4"
Array_Accion(28) = "Idle2_1"
Array_Accion(29) = "Idle2_2"
Array_Accion(30) = "Idle3_1"
Array_Accion(31) = "Idle3_2"
Array_Accion(32) = "LookDown"
Array_Accion(33) = "LookDownReturn"
Array_Accion(34) = "LookLeft"
Array_Accion(35) = "LookLeftReturn"
Array_Accion(36) = "LookRight"
Array_Accion(37) = "LookRightReturn"
Array_Accion(38) = "LookUp"
Array_Accion(39) = "LookUpReturn"
Array_Accion(40) = "MoveDown"
Array_Accion(41) = "MoveLeft"
Array_Accion(42) = "MoveUp"
Array_Accion(43) = "MoveRight"
Array_Accion(44) = "Pleased"
Array_Accion(45) = "Process"
Array_Accion(46) = "Processing"
Array_Accion(47) = "Read"
Array_Accion(48) = "ReadContinued"
Array_Accion(49) = "Reading"
Array_Accion(50) = "ReadReturn"
Array_Accion(51) = "RestPose"
Array_Accion(52) = "Sad"
Array_Accion(53) = "Search"
Array_Accion(54) = "Searching"
Array_Accion(55) = "Show"
Array_Accion(56) = "StartListening"
Array_Accion(57) = "StopListening"
Array_Accion(58) = "Suggest"
Array_Accion(59) = "Surprised"
Array_Accion(60) = "Think"
Array_Accion(61) = "Thinking"
Array_Accion(62) = "Uncertain"
Array_Accion(63) = "Wave"
Array_Accion(64) = "Write"
Array_Accion(65) = "WriteContinued"
Array_Accion(66) = "WriteReturn"
Array_Accion(67) = "Writing"
End Sub
Aquí hay una línea de código que es importante explicarle que es:
Set agnAsistente = New Agent
Cuando nosotros declaramos un objeto:
Dim Nombre_del_Objeto as Objeto
En nuestra clase el ejemplo es:
Private WithEvents agnAsistente As Agent
El objeto agnAsistente todavía no se ha inicializado, es decir no esta en memoria, para iniciarlo o activarlo hay que hacer lo que se llama una referencia al objeto esto se logra de esta manera:
Set agnAsistente = New Agent
Es aquí cuando el objeto se inicializa en la memoria, si ustedes no hacen esto cuando vayan a usar el objeto para cualquier utilidad, Visual Basic les indicara un error, de que "la variable no ha sido establecida", esto es porque se "DECLARO", pero no se inicializo, para inicializarla tienen que escribir la línea antes expuesta, NOTA: Esto solo se hace cuando se hacen referencias a OBJETOS.
Vamos ahora a declarar las propiedades, para eso escriban lo siguiente:
Public Property Get Sound() As Boolean
Sound = bolSonido
End Property
Public Property Let Sound(ByVal NuevoValor As Boolean)
iaCargaAsistente.SoundEffectsOn = NuevoValor
End Property
Public Property Get Balloon() As Boolean
Balloon = bolBalloon
End Property
Public Property Let Balloon(ByVal NuevoValor As Boolean)
bolBalloon = NuevoValor
If bolBalloon Then
iaCargaAsistente.Balloon.Style = iaCargaAsistente.Balloon.Style Or 1
Else
iaCargaAsistente.Balloon.Style = iaCargaAsistente.Balloon.Style And 0
End If
End Property
Public Property Get AutoHide() As Boolean
AutoHide = bolAutoHide
End Property
Public Property Let AutoHide(ByVal NuevoValor As Boolean)
bolAutoHide = NuevoValor
If bolAutoHide Then
iaCargaAsistente.Balloon.Style = iaCargaAsistente.Balloon.Style Or 4
Else
iaCargaAsistente.Balloon.Style = iaCargaAsistente.Balloon.Style And -5
End If
End Property
Public Property Get AutoSpace() As Boolean
AutoSpace = bolAutoSpace
End Property
Public Property Let AutoSpace(ByVal NuevoValor As Boolean)
bolAutoSpace = NuevoValor
If bolAutoSpace Then
iaCargaAsistente.Balloon.Style = iaCargaAsistente.Balloon.Style Or 8
Else
iaCargaAsistente.Balloon.Style = iaCargaAsistente.Balloon.Style And -9
End If
End Property
Private Sub agnAsistente_Command(ByVal UserInput As Object)
If UserInput.Name = "Opciones" Then
agnAsistente.PropertySheet.Visible = True
End If
End Sub
Esto ya ustedes lo deben de saber de memoria, ya que es lo mismo que en los controles, con la diferencia que aquí los propiedades las vemos a nivel de código y no a nivel de diseño.
Ahora introduzcan los siguientes métodos y la única función de la Clase:
Public Sub Show(ByVal LenguajeID As Idioma, ByVal GUIA As Muñeco)
Select Case GUIA
Case 0
strMuñeco = "genie"
Case 1
strMuñeco = "merlin"
Case 2
strMuñeco = "peedy"
Case 3
strMuñeco = "robby"
End Select
If bytInicio = 1 Then
Unload
End If
agnAsistente.Characters.Load "CharacterID", strWindows & "msagentchars" & strMuñeco & ".acs"
Set iaCargaAsistente = agnAsistente.Characters("CharacterID")
iaCargaAsistente.Commands.Add "Opciones", "&Opciones Avanzadas"
iaCargaAsistente.LanguageID = LenguajeID
iaCargaAsistente.Show
iaCargaAsistente.Left = Screen.Width 15 – iaCargaAsistente.Width – 50
iaCargaAsistente.Top = Screen.Height 15 – iaCargaAsistente.Height – 50
bytInicio = 1
End Sub
Public Sub Unload() ‘ Metodo utilizado para quitar el CHAR
agnAsistente.Characters.Unload "CharacterID"
End Sub
Public Sub Speak(ByVal strOracion As String) ‘ Metodo utilizado para HABLAR
iaCargaAsistente.Speak strOracion
End Sub
Public Sub Think(ByVal strOracion As String) ‘ Metodo utilizado para PENSAR
iaCargaAsistente.Think strOracion
End Sub
Public Sub Move(x As Integer, y As Integer) ‘ Metodo para mover el Char
iaCargaAsistente.MoveTo x, y
End Sub
Public Sub Action(accNombre As Accion) ‘ Metodo para ejecutar una accion del Char
iaCargaAsistente.Play Array_Accion(accNombre + 1)
End Sub
Private Sub Carpeta_Windows() ‘ Metodo para localizar la carpeta de WINDOWS
Dim Temp As String
Dim Ret As Long
Const MAX_LENGTH = 145
Temp = String$(MAX_LENGTH, 0)
Ret = GetWindowsDirectory(Temp, MAX_LENGTH)
Temp = Left$(Temp, Ret)
If Temp <> "" And Right$(Temp, 1) <> "" Then
strWindows = Temp & ""
Else
strWindows = Temp
End If
End Sub
Public Function Animations(ByVal indice As Integer) as String ‘ Metodo para extraer el nombre de las animaciones
Animations = Array_Accion(indice)
End Function
Public Sub Stop_Asistente() ‘ Metodo que frena cualquier animiacion del CHAR cuando se ejecuta una animación continua
iaCargaAsistente.Stop
iaCargaAsistente.Play "RestPose"
End Sub
Bueno señores, estamos listo, ahora vamos a probar nuestra clase, noten que volvemos a usar el SET:
Set iaCargaAsistente = agnAsistente.Characters("CharacterID")
Recuerden que iaCargaAsistente nada mas se declaro y no se Referencio, bueno aquí es donde la estamos inicializando.,
Los métodos declarados son sencillos, lo que tienen es que documentarse un poco sobre como funciona el Microsoft Agent, después de eso, es fácil entender el código, y ni siquiera con tan solo ver el código ya se puede suponer para que sirve cada instrucción que usamos.
La única que se puede ver un poco extraña es el método "Carpeta Windows", este método establece el nombre de la carpeta donde fue grabado Windows, recuerden que mencione que el MS Agent, se instala en la carpeta de Windows, y nos es lo mismo el nombre en Windows 95/98 (C:/Windows) que NT/2000 (C:/WINNT), esa es la razón del porque es importante ubicar la carpeta de Windows.
Vamos a añadir un formulario en el proyecto donde tenemos nuestra clase, y en el formulario van a colocar un TextBox, 3 Botones, y un listabox.
En la parte de Declaraciones coloquen las siguiente línea de código:
Dim asis As New Asistente
Este es una forma de simplificar estas dos lineas en una sola:
Dim asis as Asistente
Set asis = New Asistente
Y en el evento click del botón (command1) colocan:
Private Sub Command1_Click()
asis.Show Spanish, Merlin
End Sub
NOTA: verán que cuando le dan a espaciadora después de escribir Show, se le mostrara una lista con las diferentes opciones del lenguaje y luego una lista de las CHARS que se pueden elegir, eso sucede debido a que declaramos las variables de tipo ENUM sino no!!, no aparecieran.
NOTA 2: Merlín es un Char el cual yo supongo que ustedes ya lo tienen instalado, si tienen otro cambien el nombre por el que tienen, y el idioma también supongo que la tienen instalado, aunque el idioma no afecta el funcionamiento de CHARS, sino afecta cuando el muñeco vaya a hablar.
Ahora para arrancar nuestro formulario sigan estos pasos:
- Denle click en "Proyecto" en el menú
- Luego en "Propiedades del Proyecto1…."
- En tipo de proyecto seleccionen EXE Estándar y en Objeto Inicial Form1
Ahora ejecuten el proyecto y denle click al botón Command1 verán que le aparece el CHARS en la esquina inferior derecha, IMPRESIONANTE NO!!. Salgan del formulario.
En el evento clic del Command2 coloquen:
Private Sub Command2_Click()
asis.Speak text1.Text
End Sub
Y en el Command3:
Private Sub Command3_Click()
asis.Think text1.Text
End Sub
Ejecuten el programa y coloquen en el TEXTBOX que esta en el formulario "HOLA", sin las comillas por supuesto. Y denle click primero al botón Command1 para que se cargue el Asistente o Char, luego denle al botón Command2 y verán que el CHARS habla lo que ustedes escribieron en el TEXTBOX, (eso si configuraron el idioma), y si le dan al botón Command3 el CHARS no hablara pero si mostrara el Texto, esto es porque ahí esta PENSANDO (THINK) y no HABLANDO (SPEAK).
Ahora vamos a ver las animaciones que tienen los CHARS:
Para ello agrega en el evento LOAD del formulario lo siguiente:
Private Sub Form_Load()
For i = 1 To 67
List1.AddItem asis.Animations(i)
Next
End Sub
Y en el evento DobleClick del control List1 agreguen lo siguiente:
Private Sub List1_DblClick()
asis.Action List1.ListIndex
End Sub
Y agrega dos botones Command4 y Command5 y en el evento Clic de cada uno coloca lo siguiente:
Private Sub Command4_Click()
asis.Move 150, 150
End Sub
Private Sub Command5_Click()
asis.Stop_Asistente
End Sub
Ahora ejecuten el proyecto verán que el cuadro List1 se lleno con las diferentes animaciones del CHAR ahora denle click a Command1, luego denle DobleClick a las diferentes animaciones que están en el List1 y verán como el CHAR se empieza a mover, después que maten su curiosidad denle Click a el Command4 para que vean como se mueva el CHAR de un sitio a otro.
Bueno señores, esto es toda la clase OBVIAMENTE, no esta lo suficientemente SÓLIDA, que quiero decir con esto, ahora ustedes le tienen que acomodar los detalles, como por ejemplo si le dan al botón Command2 sin escribir nada el CHAR les lanza un error ya que no acepta cadena NULLSTRING, o si le dan a cualquiera de las animaciones o le dan a los botones Command2, Command3 y Command4, antes de cargar el asistente también les dará un error, quedara de tarea para ustedes si consideran útil esta clase en acomodar esos pequeñísimos detalles.
Ahora vamos a dar los pasos para compilar una clase:
- Primero denle clic a "Proyecto" en el menú, y luego a "Propiedades del Proyecto….", en tipo de proyecto seleccionan DLL Activex y en objeto inicial ninguno y en nombre de proyecto ponen Asistente_Animado.
- Al igual que el control si lo intentan compilar les va a decir que el objeto no es publico y que no se puede compilar para solucionar eso, se meten en las propiedades del control, y en la propiedad INSTANCING seleccionan la opción 6 que es GLOBALMULTIUSE y ahora si pueden compilar, igual que el control seleccionen la carpeta de WINDOWS/SYSTEM y le colocan al nombre del archivo Asistente_Animado y le dan click a Aceptar.
- Entonces se procede a compilar el archivo.
- Para utilizarlo en sus proyectos solamente tienen que buscar en Referencias la librería Asistente_Animado, la seleccionan, y recuerdan que cuando declaran una variable que hace referencia a un objeto seria:
Dim Variable as Asistente
En Load del formulario:
Set Variable = New Asistente
Asistente es el nombre que le dimos a nuestra clase.
Bueno espero que le sea útil, lo que aprendieron con este curso FLASH sobre controles y clases, en realidad esto dos temas son muchos mas amplios pero aquí logre enfocarme en lo básico, ya los que le queda a ustedes es empezar a echar código, es importante, por que algunos se preguntaran PARA QUE APRENDER ESTO, con estas dos técnicas CONTROLES y CLASE desarrollamos códigos mas fácil de mantener, mas legibles, y la hora de conseguir una falla resulta mas rápido, estas técnicas nos ayudan a perfeccionar e idear nuevas técnicas que pueden beneficiar tanto a ustedes como a muchas personas, si poseen imaginación les aseguro que no habrá limite para la creación de nuevo objetos.
CATEGORIA:PROGRAMACION.
Que es un control?. Como diseñar un control en Visual Basic. Propiedades de un Control. Métodos de un control. Eventos. Detalles de la creación de un control. Que es una Clase?. Propiedades de una clase. Compilación de un control y una clase. Ejemplo de un control. Ejemplo de una Clase (Asistente Animado).
Trabajo enviado y realizado por: Eduardo Roa.
Caracas, Venezuela.
| Página siguiente |