Создать управляемую библиотеку, чтобы использовать ее в будущем в других .NET проектах - C/C++ - Ответ 6441278

   '   void (*Func) ( int n, double x[], double f[], int *iflag );  
 
    <UnmanagedFunctionPointer(CallingConvention.Cdecl)> _
    Public Delegate Sub DelegFunc(ByVal n As Integer, ByVal x As Double(), ByVal f As Double(), ByRef iflag As Integer)
 
    <DllImport("MathDLL.dll", CallingConvention:=CallingConvention.Cdecl, EntryPoint:="?hybrd1@@YAHP6AXHQAN0PAH@ZH00N0H@Z")> _
    Public Shared Function hybrd1(<MarshalAs(UnmanagedType.FunctionPtr)> ByVal fcn As DelegFunc, ByVal n As Integer, _
     ByVal x As Double(), ByVal fvec As Double(), ByVal tol As Double, ByVal wa As Double(), ByVal lwa As Integer) As Integer
    End Function
 
    Private DFunc As DelegFunc = Nothing
 
 
    Public Sub Func(ByVal n As Integer, ByVal x As Double(), ByVal f As Double(), ByRef iflag As Integer)
        '////////////////
        '//////////////////
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        Dim n% = 3
        Dim x#() = {1.3, 2.3, 3.3}
        Dim fvec#() = {1.3, 2.3, 3.3}
        Dim wa#() = {1.8, 2, 3}
        Dim tol# = 4.8
        Dim lwa% = 4
        Me.DFunc = New DelegFunc(AddressOf Func)
        Dim val As Integer = hybrd1(DFunc, n, x, fvec, tol, wa, lwa)
        TextBox1.Text = CStr(val)
 
    End Sub