consulta [sigo con cDOSNumeros]

21/04/2005 - 11:02 por Jordi Maycas | Informe spam
Hola! Tengo este codigo:

Dim co As Collection

Dim n1 As cDOSNumeros

co = New Collection

n1 = New cDOSNumeros

Dim cadena As String



'// Agregar objetos a la colección

n1.m_col1 = 54

n1.m_col2 = 34.971

co.Add(n1, "2") //ERROR Value of type 'Integer' cannot be converted to
'Microsoft.VisualBasic.Collection';



Y esta es la clase cDOSNumeros:

Option Strict Off

Option Explicit On

Friend Class cDOSNumeros


Public m_col1 As New Collection

Public m_col2 As New Collection


Public Sub Add(ByVal Clave As String, ByVal Num1 As Double, ByVal Num2 As
Double)

'si tenemos n numeros, necesitamos n colecciones

'Agregamos cada elemento relacionandolo con su clave

'UPGRADE_WARNING: Couldn't resolve default property of object m_col1.Add.
Click for more:
'ms-help://MS.VSExpressCC.v80/dv_vsexpc...37B2"'

m_col1.Add(Num1, Clave)

'UPGRADE_WARNING: Couldn't resolve default property of object m_col2.Add.
Click for more:
'ms-help://MS.VSExpressCC.v80/dv_vsexpc...37B2"'

m_col2.Add(Num2, Clave)

End Sub

End Class



¿Porque me da ese error: //ERROR Value of type 'Integer' cannot be
converted to 'Microsoft.VisualBasic.Collection'; ??

Preguntas similare

Leer las respuestas

#1 Tristan
22/04/2005 - 14:48 | Informe spam
El error dice exactamente lo que estás haciendo mal.

Dim n1 As new cDOSNumeros
n1.m_col1 = 54

Y esta es la clase cDOSNumeros:
Public m_col1 As New Collection

Estás tratando de asignar un entero a un campo público de
tipo Collection. No se puede convertir un entero en un
objeto de tipo Collection. Es decir, exactamente lo que te
dice el mensaje.

De todas formas, hay varias cosas en la clase que se
deberían cambiar.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida