He aquí el código de mi DLL. Cabe aclarar que el Linker fue modificado para poder generar DLL normales.
Código:
'
' ©Guillermo 'guille' Som, 2006
'------------------------------------------------------------------------------
Option Explicit
Public Const DLL_PROCESS_DETACH = 0
Public Const DLL_PROCESS_ATTACH = 1
Public Const DLL_THREAD_ATTACH = 2
Public Const DLL_THREAD_DETACH = 3
Public Function Saludo()
MsgBox ("DLL en VB")
End Function
Public Function Suma(ByVal n1 As Double, ByVal n2 As Double) As Double
Suma = n1 + n2
End Function
'
Public Function DllMain(hInst As Long, fdwReason As Long, lpvReserved As Long) As Boolean
Select Case fdwReason
Case DLL_PROCESS_DETACH
' No per-process cleanup needed
Case DLL_PROCESS_ATTACH
DllMain = True
Case DLL_THREAD_ATTACH
' ' No per-thread initialization needed
Case DLL_THREAD_DETACH
' ' No per-thread cleanup needed
End Select
End Function
La única función que necesito es la de "Saludo()"
También he aquí el archivo .DEF de la DLL correspondiente:
Código:
NAME PruebaINY
LIBRARY PruebaINY
DESCRIPTION "Prueba de DLL creada con VB6"
EXPORTS Saludo @1
Suma @2
DllMain @3
Gracias, saludos.