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
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


0