dde_disp.m

matlab7.0从入门到精通(光盘内容)

clear;
h=surf(peaks(20));  %绘制曲面图形并产生图柄h
z=get(h,'zdata');    %得到曲面的Z坐标数据
chann=ddeinit('excel','Sheet3');  %为两者的DDE对话建立通道chann
range2='r1c1:r20c20';    %为空白表格指定区域，起名为range2
rc=ddepoke(chann,range2,z); 
%借助通道chann，将数据z送到指定位置range2。操作成功，rc为1
%...借助通道chann，在MATLAB与指定区域range2之间建立热连接…
rc=ddeadv(chann,range2,'set(h,’’zdata’’,z);','z');
%Excel表格Sheet3的range区域中任何数据的改动，引发如下操作：
%立即引起其后指令的执行；MATLAB空间中的z变量被实时更新。
%...切断MATLAB与range2的热连接…
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;');