14/02/2006, 07:42
|
 | | | Fecha de Ingreso: marzo-2005
Mensajes: 288
Antigüedad: 20 años, 1 mes Puntos: 2 | |
| Mira de esta forma te ahoras codigo.
en la dll creo esta funcion
Clave:
Public Function imprimir(ByVal dato As Variant)
Open "C:\prueva.txt" For Output As #1
Print #1, dato
Close #1
End Function
En tu proyecto.
Private Declare Function imprimir Lib "Prueba.dll" (ByVal dato As Variant)
Private Sub Command1_Click()
imprimir "hola mundo"
End Sub
__________________
"No hay lenguaje de programación potente que sea inferior a otro semejante cuando existe un buen programador que lo defiende"
Yosvanis Cruz Alias VisualGuallabo
Ycruz |