matlab-gui-programming

MATLAB GUI编程中几个有用的程序段

昨天找其他资料看到的，尽管简单，觉得不错，分享给各位
不好意思没记下网址，对该内容总结者表示感谢



MATLAB GUI编程中几个有用的程序段


1、  启动


% 获取当前文件所在路径


currPath = fileparts(mfilename('fullpath'));


% 切换工作路径到当前位置





cd(currPath);





% 判断所用操作系统


if computer == 'PCWIN'


    % MATLAB版本号


    v = version;


    if v(1)~='7'        


        warndlg ('Only run in matlab 7.x(R14.x)');


        return


else


        % 添加当前路径下的所有子目录


        addpath(genpath(pwd));


        addpath(genpath(currPath));


    end


end








2、  在GUI中使用Axes控件





% 1.删除所有画线及对应图例


% 查找Axes控件中的画线


sameLines = findobj('type','line');


% 逐一删除这些画线


    for i = 1 :length(sameLines)


        delete(sameLines(i))


end


% 获取Axes控件中的图例（由于画线全部被删除，因此为空）


lgStr = get(legend(handles.ResultsAxes), 'String');


% 重新设置图例（为空）


    legend(handles.ResultsAxes,lgStr); 





% 2.添加画线


% 获取原来的图例


lgStr = get(handles.hLegend, 'String');


% 设置下一个画线为添加方式


set(handles.ResultsAxes, 'Nextplot', 'add');


% 指定要画线的Axes


axes(handles.ResultsAxes);


% 画线


plot(distance_target, '-r')


% 添加图例


handles.hLegend = legend(handles.ResultsAxes, lgStr,'目标距离');





% 3.删除某一画线


% 所删除画线对应的数据为distance_target，获取它的句柄


sameLines = findobj('type','line','YData', distance_target);


% 删除画线


    if ~isempty(sameLines)


        delete(sameLines);


end


% 获取原有的图例


lgStr = get(legend(handles.ResultsAxes), 'String');                    


% 从原有图例中删除对应图例


    legend(handles.ResultsAxes, setdiff(lgStr, {'目标距离'}));





3、  在GUI中使用Excel表格（Activex控件Microsoft Office Spreedsheet）


% 获取现在使用的spreedsheet的句柄


ActiveSheet = get(handles.activex1,'ActiveSheet');


   % 现在使用的spreedsheet的现在使用工作薄


   ActiveWorkbook = get(handles.activex1,'ActiveWorkbook');            


   % 现在使用的表


eSheets = handles.activex1.ActiveWorkbook.Sheets;


   % 使用表的第一个子表


   eSheet1 = eSheets.get('Item', 1);


   % 激活该表


   eSheet1.Activate;


% 获取当前单元格的句柄


ActiveCell = get(handles.activex1, 'ActiveCell');


% 选择坐标为A1的单元格


Select(Range(ActiveSheet,'A1'));


% 获取当前单元格的句柄


ActiveCell = get(handles.activex1, 'ActiveCell');


% 设置当前单元格中的内容


    set(ActiveCell, 'Value', '仿真结果报告');  





4、  为Axes控件设置图片


% 所有设置的Axes控件


axes(handles.MyLog);


% 读取图片数据


Image_tip1=imread('Setting/mylog.jpg');


% 显示图片


image(Image_tip1);