[求助]vb调用matlab，如何不出现matlab的图形窗

weilinmar

我在用VB调用MATLAB程序时，代码如下：

1. Private Sub Command1_Click()
   
2. Dim Matlab As Object
   
3. Dim result As String
   
4. Set Matlab = CreateObject("Matlab.application")
   
5. 
   
6. result = Matlab.execute("t=1:5;y=cos(t);plot(t,y)")
   
7. 
   
8. result = Matlab.execute("print-dbitmap")
   
9. Image1.Picture = Clipboard.GetData()
   
10. End Sub

复制代码

我想问下怎样才能运行时不出现matlab的图形窗

另外
vb调用matlab，如何使用GetFullMatrix。

assist

在matlab 里面设置，查看figure命令
，做相应的处理

ericlin

怎么样，问题解决了吗？如果解决了也请告诉大家哦。^_^

bainhome

MY WAY:

1. Private Sub cmdDraw_Click()
   
2. Dim objMATLAB As Object
   
3. Set objMATLAB = CreateObject("matlab.application")
   
4. Dim strEnter As String
   
5. Dim strCommand As String
   
6. strEnter = Chr(13) & Chr(10)
   
7. strCommand = "[x,y,z]=peaks(30);"
   
8. strCommand = strCommand & strEnter
   
9. strCommand = strCommand & "surfc(x,y,z)"
   
10. strCommand = strCommand & strEnter
    
11. strCommand = strCommand & "shading interp"
    
12. strCommand = strCommand & strEnter
    
13. strCommand = strCommand & "saveas(gcf,'c:\temp.bmp')"
    
14. objMATLAB.execute (strCommand)
    
15. imgDraw.Picture = LoadPicture("C:\temp.bmp")
    
16. imgDraw.Refresh
    
17. Set objMATLAB = Nothing
    
18. End Sub

复制代码

mhl516

<P>请问一下 ,在vb中引用哪个才能和matlab 连接啊 /<BR></P>

mxz2006

有个将窗口最小化的函数,不知能不能达到你想要的结果,网上有下载的

anzi_upc

1. Private Sub Command1_Click()
   
2. Dim Matlab As Object
   
3. Dim result As String
   
4. Set Matlab = CreateObject("Matlab.application")
   
5. result = Matlab.execute("figure('visible', 'off')")
   
6. result = Matlab.execute("t=1:5;y=cos(t);plot(t,y)")
   
7. 
   
8. result = Matlab.execute("print-dmeta")
   
9. Image1.Picture = Clipboard.GetData()
   
10. End Sub

复制代码

不知行不行?

xuebx

解决了一个难题，大家积极发言阿

WWLLXX2001

怎样才能运行时不出现matlab的图形窗?

WWLLXX2001

按bainhome的方法，可以把图绘入vb窗口，但有matlab的图形窗出现
用figure('visible','off')好像不行

jimin

原帖由 WWLLXX2001 于 2006-11-7 14:51 发表
按bainhome的方法，可以把图绘入vb窗口，但有matlab的图形窗出现
用figure('visible','off')好像不行

来个抛砖引玉
董维国老师所写的深入浅出matlab7.x  混合编程中有一节是介绍
7.42 在mfc应用程序中隐藏matlab的figure窗口
我想vb vc应该类似
看能不能从中找找思路，然后应用到vb中

WWLLXX2001

我用如下方法可以使figure窗口关掉，缺点是figure窗口还是会闪一下

1. Public Class Form1
   
2.     Private Sub cmdDraw_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDraw.Click
   
3.         Dim objMATLAB As Object
   
4.         objMATLAB = CreateObject("matlab.application")
   
5.         Dim strEnter As String
   
6.         Dim strCommand As String
   
7.         strEnter = Chr(13) & Chr(10)
   
8.         strCommand = "[x,y,z]=peaks(30);"
   
9.         strCommand = strCommand & strEnter
   
10.         strCommand = strCommand & "surfc(x,y,z);"
    
11.         strCommand = strCommand & strEnter
    
12.         strCommand = strCommand & "shading interp;"
    
13.         strCommand = strCommand & strEnter
    
14.         strCommand = strCommand & "saveas(gcf,'c:\temp.bmp');"
    
15.         strCommand = strCommand & strEnter
    
16.         strCommand = strCommand & "close(1)"
    
17.         objMATLAB.execute(strCommand)   
    
18.         imgDraw.Image = Image.FromFile("C:\temp.bmp")
    
19.         imgDraw.Refresh()
    
20.         objMATLAB = Nothing
    
21. 
    
22.     End Sub
    
23. End Class

复制代码

jimin

把我改的拿出来和大家分享一下，大家可以测试一下
Private Sub Command1_Click()
Dim objMATLAB As Object
Set objMATLAB = CreateObject("matlab.application")
Dim strEnter As String
Dim strCommand As String
strEnter = Chr(13) & Chr(10)
strCommand = "figure('visible', 'off', 'Units','points','PaperUnits', 'points');"
strCommand = strCommand & strEnter
strCommand = strCommand & "surf(peaks(25));"
strCommand = strCommand & strEnter
strCommand = strCommand & "print -dmeta"
strCommand = strCommand & strEnter
strCommand = strCommand & "close(gcf)"
strCommand = strCommand & strEnter
objMATLAB.execute (strCommand)
imgDraw.Picture = Clipboard.GetData()
imgDraw.Refresh
Set objMATLAB = Nothing
End Sub

jimin

to   
WWLLXX2001
你的程序我好象运行不了，不知道问题出在什么地方
Public Class Form1
    Private Sub cmdDraw_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDraw.Click
这几句不大懂，能否解释一下

WWLLXX2001

我用的是visual basic 2005
在vb6.0里是运行不了的