Voy agregar al código del Button1 lo siguiente
MsgBox(GetError())
de tal manera que ahora tenemos por completo.
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Try
GeneraCFD(Application.StartupPath & "\FacturaEcodex.ini", "a0123456789")
MsgBox(GetError())
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Declaramos la función GetError()
<Runtime.InteropServices.DllImport("CFDLib.dll", Charset:=Runtime.InteropServices.CharSet.Ansi, SetLastError:=True, ExactSpelling:=True, Entrypoint:="GetError")> _
Public Shared Function GetError()
End Function
Compilamos y...
- Captura3.JPG (16.67 KiB) Visto 4341 veces
Esto es por que la función no regresa nada, para eso hay agregar As String
Así que modificamos la declaración de la función para que nos quede así:
<Runtime.InteropServices.DllImport("CFDLib.dll", Charset:=Runtime.InteropServices.CharSet.Ansi, SetLastError:=True, ExactSpelling:=True, Entrypoint:="GetError")> _
Public Shared Function GetError() As String
End Function
Compilamos nuevamente...
- Captura5.JPG (12.37 KiB) Visto 4341 veces
Ese mensaje vacío, es por que no se ha generado algún error, todo es correcto.
Para ver en funcionamiento la función GetError() cambia la clave privada
GeneraCFD(Application.StartupPath & "\FacturaEcodex.ini", "otraclave")
Compila nuevamente y... ahora obtienes el siguiente mensaje.
- Captura6.JPG (16.7 KiB) Visto 4341 veces