Private Sub Command1_Click()Dim Matlab As ObjectSet Matlab = CreateObject("matlab.application")Dim strEnter As StringstrEnter = Chr(13) & Chr(10)strCommand = "figure('visible', 'off', 'Units','points','PaperUnits', 'points');"strCommand = strCommand & strEnterstrCommand = strCommand & "surf(peaks(25));"strCommand = strCommand & strEnterstrCommand = strCommand & "print -dmeta"strCommand = strCommand & strEnterstrCommand = strCommand & "close(gcf)"strCommand = strCommand & strEnterMatlab.execute (strCommand)imgDraw.Picture = Clipboard.GetData()imgDraw.RefreshSet Matlab = NothingEnd Sub在网上看到了以上程序实在是看不太懂 希望哪位朋友懂的帮忙解释解释 很想快点弄明白呢 O(∩_∩)O谢谢各位了
Dim Matlab As ObjectSet Matlab = CreateObject("matlab.application") %定义一个Matlab的连接渠道Dim strEnter As String %定义一个字符串%从这一行开始，是给这个字符串赋值strEnter = Chr(13) & Chr(10)strCommand = "figure('visible', 'off', 'Units','points','PaperUnits', 'points');"strCommand = strCommand & strEnterstrCommand = strCommand & "surf(peaks(25));"strCommand = strCommand & strEnterstrCommand = strCommand & "print -dmeta"strCommand = strCommand & strEnterstrCommand = strCommand & "close(gcf)"strCommand = strCommand & strEnter%执行这个字符串语句。Matlab.execute (strCommand)imgDraw.Picture = Clipboard.GetData()imgDraw.RefreshSet Matlab = NothingEnd Sub
|
|
