Leer dlls generadas en Visual Basic 6 en PB9
Publicado por ricardon (11 intervenciones) el 06/08/2004 20:07:55
Hola a todos,
Quisiera saber si alguno de ustedes ha leido desde PB una dll generada en visual basic 6, este es el codigo en visual:
Function sumando(x As Integer, y As Integer) As Integer
sumando = x + y
End Function
Genere una dll de prueba en VB que solo suma dos numeros y retorna el resultado pero me manda error en PB al querer leer la funcion, el error que me manda es: Bad runtime function reference at line 6 in click evet
Este es el codigo que utilizo para llamar la dll, tal vez tenga algun error
Declaro esta funcion en las Global External Function
Function int sumando(Int var1, Int var2) Library "sumatoria.dll"
"sumando" es el nombre de la funcion que declare en la dll y "sumatoria.dll" es el nombre de mi dll
En el evento click de un boton tengo este codigo:
Integer lires, livar1, livar2
livar1 = 5
livar1 = 3
lires = sumando(livar1, livar2)
MessageBox("SUMA", String(lires))
la dll la puse en la carpeta donde tengo mis pbls, la cambie a windows/system32/ , tambien la registre con regsvr32 pero me sigue mandando el mismo error
Ojala y me puedan ayudar
Gracias a todos
Quisiera saber si alguno de ustedes ha leido desde PB una dll generada en visual basic 6, este es el codigo en visual:
Function sumando(x As Integer, y As Integer) As Integer
sumando = x + y
End Function
Genere una dll de prueba en VB que solo suma dos numeros y retorna el resultado pero me manda error en PB al querer leer la funcion, el error que me manda es: Bad runtime function reference at line 6 in click evet
Este es el codigo que utilizo para llamar la dll, tal vez tenga algun error
Declaro esta funcion en las Global External Function
Function int sumando(Int var1, Int var2) Library "sumatoria.dll"
"sumando" es el nombre de la funcion que declare en la dll y "sumatoria.dll" es el nombre de mi dll
En el evento click de un boton tengo este codigo:
Integer lires, livar1, livar2
livar1 = 5
livar1 = 3
lires = sumando(livar1, livar2)
MessageBox("SUMA", String(lires))
la dll la puse en la carpeta donde tengo mis pbls, la cambie a windows/system32/ , tambien la registre con regsvr32 pero me sigue mandando el mismo error
Ojala y me puedan ayudar
Gracias a todos
Valora esta pregunta
0