1、新建VB.net工程，添加按钮控件；

2、VS中，项目->添加引用，打开“添加引用对话框”。在COM标签中选择“Matlab Application （Version 7.11） Type Library“，点击“确定”；

3、matlab中编写m文件，保存为EngineTest.m文件（'E:\储层伤害项目\matlab program\matlabcodesEngine'）

这里有输入、输出、绘图

function y=EngineTest(xmax)
x=[0:1:xmax]
y=sin(x)
plot(y)
end

3、按钮的click事件中填写如下代码

注意PutFullMatrix、GetFullMatrix连个函数分别有四个参数，含义分别为：

Name(String)：Matlab函数名

WorkSpace(String)：有三种取值："base" 默认工作空间输出name的mxArray结构体
"global" 全局工作空间
"caller" MEX中使用，该取值已无意义

Pr：输入或输出参数的实部

Pi：输入或输出参数的虚部

Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click
Dim a As MLApp.MLApp = New MLApp.MLApp ‘定义a为matlab对象
Dim xmaxreal As Double = {100} '定义输入数据的实部
Dim xmaximag() As Double = {100} ’定义输入数据的虚部
a.PutFullMatrix("xmax","base",xmaxreal,xmaximag) ‘想matlab发送输入数据xmax（实部xmaxreal，虚部xmaximag）

a.Execute("path(path,'E:\储层伤害项目\matlab program\matlabcodesEngine')")’设置matlab当前工作路径，否则可能找不到自定义的matlab函数
a.Execute("Result = EngineTest(xmax)")‘调用matlab函数EngineTest（保存在EngineTestm中）。

’第一种输入参数定义方法（这里的100是根据matlab函数中实际大小定的）

Dim prResult(100) As Double 'OK too
Dim piResult(100) As Double

’第二种输入参数定义方法（这里的100是根据matlab函数中实际大小定的）

'Dim prResult As Array = Array.CreateInstance(GetType(Double),11) 'OK
'Dim piResult As Array = Array.CreateInstance(GetType(Double),11)
Call a.GetFullMatrix("Result",prResult,piResult)‘从Result中得到matlab的计算结果

a.Quit()
End Sub

原文网址：点击打开链接