先用VB6.0简单的勾勒一个界面:
详细的代码如下,主要是执行和取消Command的代码:
Private Sub Command1_Click()
Dim Matlab As Object ' 定义一个对象型变量Matlab
Set Matlab = CreateObject("Matlab.Application")
Label3.Caption = Matlab.Execute(Text1.Text)
End Sub
Private Sub Command3_Click()
Text1.Text = ""
Label3.Caption = ""
End Sub