C
CompuTechSide
Guest
I want to call DLL function on form load. Without add reference call dll function with embedded resource, I have applied this.
Imports Microsoft.VisualBasic.ApplicationServices
Public Class Form1
Public EmbeddedDLL As New EmbeddedDllFunction.NumericValue
Public Event Startup(sender As Object, e As StartupEventArgs)
Private Sub AppStart(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
AddHandler AppDomain.CurrentDomain.AssemblyResolve, AddressOf ResolveAssemblies
End Sub
Private Function ResolveAssemblies(sender As Object, e As ResolveEventArgs) As Reflection.Assembly
Dim desiredAssembly = New Reflection.AssemblyName(e.Name)
If desiredAssembly.Name = "Not cleared" Then ' with example
Return Reflection.Assembly.Load(My.Resources.EmbeddedDllFunction)
Else
Return Nothing
End If
End Function
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Label1.Text = EmbeddedDLL.NumericValueFunction(TextBox1.Text.Trim) ' Use dll function here
End Sub
End Class
Continue reading...
Imports Microsoft.VisualBasic.ApplicationServices
Public Class Form1
Public EmbeddedDLL As New EmbeddedDllFunction.NumericValue
Public Event Startup(sender As Object, e As StartupEventArgs)
Private Sub AppStart(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
AddHandler AppDomain.CurrentDomain.AssemblyResolve, AddressOf ResolveAssemblies
End Sub
Private Function ResolveAssemblies(sender As Object, e As ResolveEventArgs) As Reflection.Assembly
Dim desiredAssembly = New Reflection.AssemblyName(e.Name)
If desiredAssembly.Name = "Not cleared" Then ' with example
Return Reflection.Assembly.Load(My.Resources.EmbeddedDllFunction)
Else
Return Nothing
End If
End Function
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Label1.Text = EmbeddedDLL.NumericValueFunction(TextBox1.Text.Trim) ' Use dll function here
End Sub
End Class
Continue reading...