Ver Mensaje Individual
  #4 (permalink)  
Antiguo 27-09-2004, 14:45:24
acalanto acalanto is offline
Moderador
 
Registrado: dic 2002
Ubicación: Madrid
Posts: 4.271
acalanto ha deshabilitado la reputación
Predeterminado

Pues mira, para que comprendas lo que están tocando en el curso:

1) Inserta un módulo CLASS en el proyecto y lo llamas MyClass.

2) Genera el siguiente código

Código:
option explicit 'Directiva que me obliga a declarar atributos

    dim mi_num as long

Public property let numero(num as long)
    mi_num = num
end property
public property get numero() as long
    numero = mi_num
end property
public property get PI() as double
    PI = (355/113)
end property


Ahora en un módulo o formulario de VB declara 

option explicit

    dim mc as new Myclass 'Instanciamos el objeto de la clase my class.

private sub form_load
    dim md as double
    mc.numero = 30
    debug.print mc.numero()
    md = mc.pi()
end sub

En este código tiene un claro jemplo de propiedades. Una de ellas PI() te miestra la capacidad de encapsulamiento (No es lógico permitir que un usuraio diga que PI vale 83132) y de la herencia (más o menos de VB) ya que utilizas una clase, propiedadesy metodos, instanciándola como oMC


Espero que te resulte útil
__________________
Un cordial saludo
-Acalanto-

Madrid - España

Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion
Responder Con Cita