Sub Propiedad en una Clase vb 6.0

[hugo180486]

Hola Buenos Dias, apenas me estoy iniciando con eso de las clases en vb6, por trabajo tengo que manejar este lenguaje.

La verdad conozco muy poco acerca de claes, y tengo una duda espero puedan ayudarme, y de antemano agradeso la atencion prestada.

La cuestion es la siguiente tengo una clase muy simplo llamada cls_ArchivoEnlace

Esta clase tiene una proiedad Nombre...

Mi pregunta es si es posible poner una sub propiedad en este caso a la prooiedad Nombre...

Código vb:

Dim Archivo as cls_ArchivoEnlace
 
Set Archivo =  New cls_ArchivoEnlace
 
Archivo.Name = "Config.dat"
 
Archivo.Name.User = "Hugo"
 

Miren explico la finalidad de la clase es crear un archivo de acceso aleatorio para porder trabajar entre 2 aplicaciones, dentro del archivo solo voy a guardar una linea, con el Estado de la Aplicacion1, Aplicacion2, y el Usuario de la Aplicacion1.

Es por eso que suena logico meter esos tres como una subpropiedad de la Propiedadad Nombre o al menos para mi.

Se que habra otras alternativas, quizas mas sencillas para lo que yo quiero hacer, pero el punto de esta pregunta es saber si se pueden poner Sub Propiedades o Sub Metodos, de poderse como se haria?, eh Googleado buscando informacion pero no encuentro.

ALgo ocmo esto Me.cboTipoDeForecast.BackColor

Tenemos que el combo es una propiedad del FOrmulario, QUe asu vez tiene una propiedad BackCOlor.

SI mi logica es erronea o rara acepto sugerencias... Gracias...

[JonathanB]

Saludos, pues lo lógico dice que la clase Archivo tiene un Nombre y un Usuario, por lo que deberias poder acceder a estas propiedades de la clase Archivo:

Código vb:

Dim cArchivo as cls_ArchivoEnlace
 
Set cArchivo = new cls_ArchivoEnlace
With cArchivo
     .Nombre = "Config.dat"
     .Usuario = "Hugo"
End With
 

Ahora si Usuario va a tener más propiedades o metodos, quiere decir que es una clase, por lo que crearias otra clase llamada Usuario y le agregas las propiedades que quieras.

Te quedaria algo asi:

Código vb:

Dim cArchivo as cls_ArchivoEnlace
 
Set cArchivo = new cls_ArchivoEnlace
With cArchivo
     .Nombre = "Config.dat"
     .Usuario.Nombre = "Hugo"
     .Usuario.Firma = "Algo"
End With
 

Espero que te sea de utilidad

[hugo180486]

Mira lo intente ocmo me dijiste y no funciono, como se supone que la clase Usuario se ligue con la cls_ArchivoEnlace. Es decir el IDE de VB6 es tan inteligente como para detectar que hay una clase Usuario y automaticament eme desplegara la spropiedades de esa clase usuario con solo haber delcarado la cls_ArchivoEnlace?, por que veo que tu no declaras la el objeto relaiconado con la clase Usuario...

COmo se logra exactamente, acaso la clase la declaras en el mismo modulo cls_ArchivoEnlace, es posible eso?...

Saludos, disculpa a lo mejor la esoty regando en algo, pero simplemente no mse sale y no me suena logico lo que me estas dicieno...

Agradeceria que me corrijieras.

[hugo180486]

Buenos Dias!, estuve buscando buscando respuesta a mi pregunta, veo que unas cuantas personas se interesaron en este tema, creo que la respuesta que yo buscaba es la herencia en la programaicon orientada a objetos, al parecer VB6 no admite la herencia, pero si se puede simular, para los que quieren profundizar mas en el tema, ponen en google vexpert y encontraran un sitio web que habla sobre esto, y muchas otras cosas muy interesantes.

Saludo.