Cómo se carga libreria DLL
Publicado por gerardo2m (2 intervenciones) el 16/08/2009 13:36:22
Estoy aprendiendo como elaborar un DLL y hacerlo funcionar con una rutina EXE.
Empece con un ejemplo muy sencillo.
La rutina DLL simplemente es para sumar dos números y es la siguiente:
***************
Public Class Suma2Numero
Public Function suma(ByVal valor1 As Double, ByVal valor2 As Double) As Double
suma = valor1 + valor2
End Function
End Class
***************
La rutina EXE es un cuadro de dialogo (Form1) con 3 cajas de texto para valor1, valor2, resultado, y un botón de acción para ejecutar.
En la rutina del botón para ejecutar tengo lo siguiente:
****************************
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim valor1 As Double
Dim valor2 As Double
valor1 = Val(TextBox1.Text) ' valor1 para suma
valor2 = Val(TextBox2.Text) ' valor2 para suma
TextBox2.Text = Suma2Numero(valor1, valor2) 'caja de resultado de la función DLL
End Sub
End Class
******************
En el menú PROYECTO->ADD REFERENCE->RECENT, ya está asignada la ruta del archivo DLL.
Como enlazo el archivo DLL al programa EXE.
Saludos y gracias de antemano.
Empece con un ejemplo muy sencillo.
La rutina DLL simplemente es para sumar dos números y es la siguiente:
***************
Public Class Suma2Numero
Public Function suma(ByVal valor1 As Double, ByVal valor2 As Double) As Double
suma = valor1 + valor2
End Function
End Class
***************
La rutina EXE es un cuadro de dialogo (Form1) con 3 cajas de texto para valor1, valor2, resultado, y un botón de acción para ejecutar.
En la rutina del botón para ejecutar tengo lo siguiente:
****************************
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim valor1 As Double
Dim valor2 As Double
valor1 = Val(TextBox1.Text) ' valor1 para suma
valor2 = Val(TextBox2.Text) ' valor2 para suma
TextBox2.Text = Suma2Numero(valor1, valor2) 'caja de resultado de la función DLL
End Sub
End Class
******************
En el menú PROYECTO->ADD REFERENCE->RECENT, ya está asignada la ruta del archivo DLL.
Como enlazo el archivo DLL al programa EXE.
Saludos y gracias de antemano.
Valora esta pregunta


0