jz
06 de Septiembre del 2004

Buenas ,a ver si alguien me ayuda con el siguiente error que lo logro averiguar:

difinitions of property procedures for the same property are inconsistent, or property procedures have an opcional parameter, parameterarray or invalid set final paramerter


las definiciones son:
Public Property Get CogerElemento(ByVal Índice As Integer) As String

Public Property Let CogerElemento(ByVal Item As String)

No veo el fallo,a ver si alguien lo ve.Gracias.

alex
06 de Septiembre del 2004

Public Property Get CogerElemento(ByVal Índice As Integer) As String

Será el acento de (ByVal Índice ??????

Bartolom
06 de Septiembre del 2004

Tienes un error de concepto. Al agregar propiedades en una clase, el procedimiento Let establece un valor Indice a la propiedad, en cambio el procedimiento Get, devuelve un valor de esa propiedad.
Deberías esribirlo así:

Public Property Let CogerElemento(Item As String)
'Tus instrucciones
End Property

Public Property Get CogerElemento() As String
'Tus instrucciones
End Property

Saludos!
Bartolom
Chile