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谢谢各位了
|
