address_book.m

来自「matlab7.0从入门到精通(光盘内容)」· M 代码 · 共 30 行

function varargout = address_book(varargin)
if nargin <= 1
%GUI发布
fig = openfig(mfilename,'reuse');
set(fig,'Color',get(0,'defaultUicontrolBackgroundColor'));
handles = guihandles(fig);
guidata(fig,handles);
if nargin ==0
   %装入默认的地址簿
   Check_And_Load([],handles)
elseif exist(varagin{1},'file')
   Check_And_Load(varargin{1},handles)
else
   %如果文件不存在，则返回一个错误对话框并将文本设置为空字符串
   errordlg('File Not Found','File Load Error')
   set(handles.Contact_Name,'String','')
   set (handles.Contact_Phone,'String','')
end
if nargout >0
   varargout{1} = fig;
end
elseif ischar(varargin{1})
   %调用指定的子函数或回调函数
   try
      [varargout{1:nargout}] = feval(varargin{:});
   catch
   disp(lasterr);
   end
end