Dim Matlab As ObjectDim Result As StringPicture2.ClsClipboard.ClearClipboard.SetText PathSet Matlab = CreateObject("Matlab.Application")Result = Matlab.Execute("clear")Result = Matlab.Execute("STR=clipboard('paste');)")Result = Matlab.Execute("I=imread(STR)")Result = Matlab.Execute("J = edge(I,'canny',0.2);imshow(J)")Clipboard.ClearResult = Matlab.Execute("print-dbitmap-fl")Picture2.Picture = LoadPicturePicture2.Picture = Clipboard.GetData()Call Matlab.quit为什么显示不出图象？
|
