mainapp.m

来自「应用matlab的GUI功能设计用户图形界面的一些例子．」· M 代码 · 共 55 行

function mainapp

try
figures=get(0,'userdata');
if ishandle(figures.FI)
    figure(figures.FI);
    return
end
end

%定义目录
tddir;
% 主界面
maingui;

% 显示主界面
figures=get(0,'userdata');
set(figures.FI,'visible','on');
handles=get(figures.FI,'userdata');
drawnow
handles.uv.requestFocus;

function tddir
p=name2path(mfilename('fullpath'));
addpath(p);
addpath([p 'DATA']);
addpath([p 'GUI']);
addpath([p 'INTERFACE']);
addpath([p 'STR']);
figures=get(0,'userdata');
figures.mainpath=p;
set(0,'userdata',figures);

function r=name2path(n)
l=length(n);
success=0;
for i=l:-1:1
    if n(i)=='\'
        success=1;
        break
    end    
end
if success==1
    r=n(1:i);
else
    w=which(n);
    if isempty(w)
        r='';
        return
    else
        r=name2path(w);
    end
end