Problemas con Tipos Definidos por el Usuaio
Publicado por SetFocus (183 intervenciones) el 27/07/2004 16:11:11
quiero hacer lo siguiente:
-----en Modulo1.bas declaro un Tipo y una variable publica de es tipo nuevo.
Public Type Mis_datos
Valor1 As String
Valor2 As String
Valor3 As String
End Type
Public Datos As Mis_datos
-----en la clase Class1 declaro un parametro con ese nuevo tipo.
Public Function HacerAlgo (ByVal Dato as Mis_datos) as Boolean
If Dato.Valor1 = "" Then
sentencias...
Else
mas sentencias.....
End If
End Function
Ahora supongamos que en el procedimiento Load de un form hago lo siguiente:
Dim MiClase as Class1
Set MiClase = New Class1
Datos.Valor1 = "HOLA" ' Variable publica declarada en Modulo1.bas
Datos.Valor2 = "CHAU"
' le paso a la clase la variable Datos como argumento
If MiClase.HacerAlgo(Datos) Then
.....
End if
Bueno el problema surge justamente al querer utilizar esto como en ejemplo del form, el error es el siguiente: "Solo los tipos definidos por el usuario publicos de modulos de objeto publicos se pueden usar como parametros, como tipos de retorno para procedimientos publicos de modulos de clase o como campos de TDU publicos." un poco dificil de interpretar... Resumiendo, quiero utilizar un tipo de dato definido por mí, en los parametros de las clases. Si alguin entendio el problema que intente explicar por favor me ayuda??? Gracias.
-----en Modulo1.bas declaro un Tipo y una variable publica de es tipo nuevo.
Public Type Mis_datos
Valor1 As String
Valor2 As String
Valor3 As String
End Type
Public Datos As Mis_datos
-----en la clase Class1 declaro un parametro con ese nuevo tipo.
Public Function HacerAlgo (ByVal Dato as Mis_datos) as Boolean
If Dato.Valor1 = "" Then
sentencias...
Else
mas sentencias.....
End If
End Function
Ahora supongamos que en el procedimiento Load de un form hago lo siguiente:
Dim MiClase as Class1
Set MiClase = New Class1
Datos.Valor1 = "HOLA" ' Variable publica declarada en Modulo1.bas
Datos.Valor2 = "CHAU"
' le paso a la clase la variable Datos como argumento
If MiClase.HacerAlgo(Datos) Then
.....
End if
Bueno el problema surge justamente al querer utilizar esto como en ejemplo del form, el error es el siguiente: "Solo los tipos definidos por el usuario publicos de modulos de objeto publicos se pueden usar como parametros, como tipos de retorno para procedimientos publicos de modulos de clase o como campos de TDU publicos." un poco dificil de interpretar... Resumiendo, quiero utilizar un tipo de dato definido por mí, en los parametros de las clases. Si alguin entendio el problema que intente explicar por favor me ayuda??? Gracias.
Valora esta pregunta


0