Visual Basic - Ayuda con Dll modulo de clase y label VB6

Life is soft - evento anual de software empresarial
 
Vista:

Ayuda con Dll modulo de clase y label VB6

Publicado por Ziux_Neo (2 intervenciones) el 09/08/2005 09:18:27
Hola!

tengo un problema con una Dll que estoy haciendo para mi aplicacion, el problema esta en que no puedo establecer la propiedad Caption de un Label mediante datos en un array que le paso a una Clase desde mi aplicacion

no entiendo el porque no puedo establecer la propiedad caption!

este es mi codigo de mi aplicacion donde cargo la Dll:

'creo y meto los datos a un array llamdo datos
Dim datos As Variant

Private Sub datos_recibo(tabla As String)

Dim pRs As ADODB.Recordset

Set pRs = New ADODB.Recordset
SQL = "SELECT nombre, apellidos, direccion, ciudad, estado, cp, rfc FROM fisica WHERE nombre =" & selectNom
'MsgBox (SQL)
Set pRs = gCnn.Execute(SQL)

nombre = pRs.Fields("nombre")
apellidos = pRs.Fields("apellidos")
direccion = pRs.Fields("direccion")
ciudad = pRs.Fields("ciudad")
estado = pRs.Fields("estado")
cp = pRs.Fields("cp")
RFC = pRs.Fields("rfc")
pRs.Close

datos = Array(nombre, apellidos, direccion, direccion, estado, cp, RFC)
'MsgBox (datos(0) & " " & datos(1))
End Sub

'cargo el formulario y envio el array a la dll

Private Sub btnCalImp_Click()
Datos_Campos (datos)
End Sub



este es mi codigo en la Dll:

Clase Campos:


Option Explicit
Public nombre As String
Public Sub Datos_Campos(datos As Variant)
nombre = datos(0)
frmRecibo.dat_nom (nombre)
End Sub

codigo del formulario donde tengo los labels:


Public Sub dat_nom(nombre As String)
MsgBox (nombre) 'esto si funciona
Label1.Caption = "hola " & nombre 'esto no funciona
Text1.Text = "hola" 'esto tampoco funciona
End Sub


agradesco mucho su ayuda, llevo toda la tarde noche con esto!!!


Saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder