内容简介作者简介 - 科学与工程计算系

FigText.LinkItem = "EngFigureResult"
FigText.LinkMode = vbLinkManual
FigText.LinkRequest
If (FigText.Text = "yes") Then
Image1.Picture = Clipboard.GetData()
Else
Image1.Picture = LoadPicture
End If
TextOutput.LinkMode = vbLinkNone
TextOutput.LinkTopic = "MATLAB|Engine"
TextOutput.LinkItem = "EngStringResult"
TextOutput.LinkMode = vbLinkManual
TextOutput.LinkRequest
TextOutput.LinkMode = vbLinkNone
(5)
12.5.3 DDE 中的 MATLAB 客户
【例 12.5.3-1】设计一个 DDE 对话程序。MATLAB 作为客户,Excel 作为服务器。本例演
示:(A)DDE 的创建和关闭;(B)热连接的建立和使用。
(1)
% exm12053_1.m
clear
h=surf(peaks(20));
z=get(h,'zdata');
chann=ddeinit('excel','Sheet3');
range2='r1c1:r20c20';
rc=ddepoke(chann,range2,z);
%.
rc=ddeadv(chann,range2,'set(h,''zdata'',z);','z');
%
hc=uimenu(gcf,'Label','关闭');
hc1=uimenu(hc,'Label','关热连接','Callback','ddeunadv(chann,range2);');
hc2=uimenu(hc,'Label','关闭对话','Callback','ddeterm(chann);');
hc3=uimenu(hc,'Label','关图形窗','Callback','close;');
(2)
33