Private Sub Command1_Click() Dim h As String Dim resule As String Dim matlab As Object Set matlab = CreateObject("matlab.application") result = matlab.execute("set(gcf,'visible','off');") h = Text1.Text result = matlab.execute(h) result = matlab.execute("print(gcf,'-dtiff','c:\a.tif');") result = matlab.execute("x=imread('c:\a.tif');") result = matlab.execute("imwrite(x,'c:\a.bmp');") Image1.Picture = LoadPicture("c:\a.bmp")result = matlab.execute("delete c:\a.tif") result = matlab.execute("delete c:\a.bmp") End SubPrivate Sub Form_Load() Text1.Text = "surf(peaks);shading interp;colormap(hot)" '这里要填一些画图的matlab语句。 Image1.Stretch = True '不然画出来的图好大End Sub
Dim h As String
Dim resule As String
Dim matlab As Object
Set matlab = CreateObject("matlab.application")
result = matlab.execute("set(gcf,'visible','off');")
h = Text1.Text
result = matlab.execute(h)
result = matlab.execute("print(gcf,'-dtiff','c:\a.tif');")
result = matlab.execute("x=imread('c:\a.tif');")
result = matlab.execute("imwrite(x,'c:\a.bmp');")
Image1.Picture = LoadPicture("c:\a.bmp")result = matlab.execute("delete c:\a.tif")
result = matlab.execute("delete c:\a.bmp")
End SubPrivate Sub Form_Load()
Text1.Text = "surf(peaks);shading interp;colormap(hot)" '这里要填一些画图的matlab语句。
Image1.Stretch = True '不然画出来的图好大End Sub