addremovelist.m

使用MATLAB编写的GUI程序 可实现list菜单的增减

function varargout = addremovelist(varargin)

%
% ADDREMOVELIST creates a GUI which contains two main listboxes, one on the left and one
% on the right. With the usage of two buttons (Add/Remove) the user can select items from
% the list on the left and transfer them to the list on the right and vice versa. Two
% checkboxes allow selecting multiple elements from each list and sort the list contents
% respectively. Hitting the OK button returns ADDREMOVELIST outputs (depending on user
% selections) in MATLAB's workspace. Hitting the Cancel button returns default outputs.
%
% Syntax:
% ---------------------------
%
% addremovelist
% [new_right_contents]=addremovelist
% [new_right_contents,new_left_contents]=addremovelist
% [new_right_contents,new_left_contents,right_index]=addremovelist
% [new_right_contents,new_left_contents,right_index]=addremovelist
% [new_right_contents,new_left_contents,right_index,left_index]=addremovelist
%
% also...
%
% addremovelist
% [new_right_contents]=addremovelist(data)
% [new_right_contents,new_left_contents]=addremovelist(data)
% [new_right_contents,new_left_contents,right_index]=addremovelist(data)
% [new_right_contents,new_left_contents,right_index]=addremovelist(data)
% [new_right_contents,new_left_contents,right_index,left_index]=addremovelist(data)
%
% and also...
%
% addremovelist('PropertyName',PropertyValue)
% [new_right_contents]=addremovelist('PropertyName',PropertyValue)
% [new_right_contents,new_left_contents]=addremovelist('PropertyName',PropertyValue)
% [new_right_contents,new_left_contents,right_index]=addremovelist('PropertyName',PropertyValue)
% [new_right_contents,new_left_contents,right_index]=addremovelist('PropertyName',PropertyValue)
% [new_right_contents,new_left_contents,right_index,left_index]=addremovelist('PropertyName',PropertyValue)
%
% In the above possible syntaxes, addremovelist without any further input arguments
% creates a usage example, addremove(data) creates the main window with data being the
% contents of the list on the left and all other properties to their default values and
% addremovelist('PropertyName',PropertyValue) starts the program by setting pairs of
% possible properties which are described below.
%
% PropertyName          PropertyValue                                                  
% -----------------------------------------------------------------------------
% LeftContents          A cell array of strings containing the contents of the list on the
%                       left (theoretically the list from which the user chooses a subpart
%                       of it as the output
%
% RightContents         A cell array of strings containing the contents of the list on the
%                       right (the output list or a list for an invert process - that is
%                       given the 'output' list create and 'input' list). Note that if
%                       this property is given the return of content corresponding
%                       incdices (see further below) will not be possible. If you try
%                       otherwise, an error will be thrown
%         
% ListNames             A cell array of strings of length 2 containing names for the lists.
%                       The first part of it corresponds to the name of the left list and
%                       the second part to the name of the right list. If not given the
%                       lists are named 'List 1' and 'List 2' respectively
%
% Title                 A string (NOT a cell array) with the window title.
%
% MultiSelect           It should be set to true or false (default true). It controls
%                       whether the user can make multiple selections from both lists or
%                       not. This property can also be changed from within the GUI.
%
% KeepSorted            It should be set to true or false (default false). It controls
%                       whether the list contents (and their corresponding index) remains
%                       sorted during the selections or not. This property can also be 
%                       changed from within the GUI.
%
% Output arguments:
% ---------------------------
% Name                  Value                                                  
% -----------------------------------------------------------------------------
% new_right_contents    A cell array of strings containing the new contents of the list on
%                       the right.
%
% new_left_contents     A cell array of strings containing the new contents of the list on
%                       the left.
%
% right_index           The indices of the items on the right list (derived from the list
%                       on the left)
%
% right_index           The indices of the items on the left list (derived from the list
%                       on the right)
%
% Concerning the indices (right and left): suppose that the initial content of the left
% list is the cell {'Alpha','Bravo','Charlie','Delta'}. Then the corresponding indices are
% [1 2 3 4]. If the user selects 'Bravo' and 'Delta' to be transfered to the list on the
% right, then the indices on the left list become [1 3] and on the right list [2 4]. If we
% choose to sort the contents of the lists then the indices are sorted respectively.
%
% Usage Examples
%----------------------------
%
% Example 1:
%
% [new_right_contents] = addremovelist
%
% new_right_contents = 
% 
%     'Mary'
%     'John'
%     'Susan'
%
% Example 2
%
% lcon = {'Apples','Pears','Oranges','Strawberries','Cherries'};
% lnames = {'Fruits','Buy'};
% wtitle= 'Grocer list';
% 
% [new_right_contents,new_left_contents] = addremovelist('LeftContents',lcon,...
%                                                        'ListNames',lnames,...
%                                                        'Title',wtitle,...
%                                                        'KeepSorted',true)
%
% new_right_contents = 
% 
%     'Oranges'
%     'Pears'
%     'Strawberries'
% 
% 
% new_left_contents = 
% 
%     'Apples'
%     'Cherries'
%
% Example 3
%
% lcon = {'Analysis 1','Analysis 2','Analysis 3','Analysis 4','Analysis 5'};
% wtitle= 'Analysis Results';
% 
% [new_right_contents,new_left_contents,right_index,left_index] = ...
%     addremovelist('LeftContents',lcon,...
%                   'Title',wtitle,...
%                   'KeepSorted',true)
%
% new_right_contents = 
% 
%     'Analysis 2'
%     'Analysis 4'
%     'Analysis 5'
% 
% 
% new_left_contents = 
% 
%     'Analysis 1'
%     'Analysis 3'
% 
% 
% right_index =
% 
%      2     4     5
% 
% 
% left_index =
% 
%      1     3
%
% Example 4
%
% lcon = {'Mary','George','John','Sarah','Susan','Joe','Eric','Helen'};
% lnames = {'Friends','Guests'};
% wtitle = 'Party';
%
% [new_right_contents,new_left_contents,right_index,left_index] = ...
%     addremovelist('LeftContents',lcon',...
%                   'ListNames',lnames,...
%                   'Title',wtitle,...
%                   'KeepSorted',true)
%
% new_right_contents = 
% 
%     'Eric'
%     'Helen'
%     'John'
%     'Mary'
% 
% 
% new_left_contents = 
% 
%     'George'
%     'Joe'
%     'Sarah'
%     'Susan'
% 
% 
% right_index =
% 
%      1     3     5     6
% 
% 
% left_index =
% 
%      2     4     7     8
%
% Example 5
%
% lcon = {'Mary','George','John','Sarah'};
% rcon = {'Susan','Joe','Eric','Helen'};
% lnames = {'Friends','Guests'};
% wtitle = 'Party';
% 
% [new_right_contents,new_left_contents] = ...
%     addremovelist('LeftContents',lcon',...
%                   'RightContents',rcon,...
%                   'ListNames',lnames,...
%                   'Title',wtitle,...
%                   'KeepSorted',true)
%
% new_right_contents = 
% 
%     'Eric'
%     'Helen'
%     'Joe'
%     'John'
%     'Sarah'
%     'Susan'
% 
% 
% new_left_contents = 
% 
%     'George'
%     'Mary'
%
% =============================================================================
%
% Author        : Panagiotis Moulos ([e-mail])
% Version       : 1.0
% First created : June 10, 2007
% Last modified : June 10, 2007
% 




% Begin initialization code - DO NOT EDIT
gui_Singleton = 1;
gui_State = struct('gui_Name',       mfilename, ...
                   'gui_Singleton',  gui_Singleton, ...
                   'gui_OpeningFcn', @addremovelist_OpeningFcn, ...
                   'gui_OutputFcn',  @addremovelist_OutputFcn, ...
                   'gui_LayoutFcn',  [] , ...
                   'gui_Callback',   []);
if nargin && ischar(varargin{1})
    gui_State.gui_Callback = str2func(varargin{1});
end

if nargout
    [varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:});
else
    gui_mainfcn(gui_State, varargin{:});
end
% End initialization code - DO NOT EDIT


% --- Executes just before addremovelist is made visible.
function addremovelist_OpeningFcn(hObject, eventdata, handles, varargin)

% Set Window size and Position
set(handles.mainFigure,'Units','pixels')
screensize=get(0,'screensize');                       
winsize=get(handles.mainFigure,'Position');
winwidth=winsize(3);
winheight=winsize(4);
screenwidth=screensize(3);                           
screenheight=screensize(4);                           
winpos=[0.5*(screenwidth-winwidth),0.5*(screenheight-winheight),winwidth,winheight];                          
set(handles.mainFigure,'Position',winpos);

% Set all uicontrol units to normalized so as the default resize function works
set(handles.leftListName,'Units','normalized')
set(handles.rightListName,'Units','normalized')
set(handles.leftList,'Units','normalized')
set(handles.rightList,'Units','normalized')
set(handles.addElement,'Units','normalized')
set(handles.optionsPanel,'Units','normalized')
set(handles.removeElement,'Units','normalized')
set(handles.sortLists,'Units','normalized')
set(handles.allowMultiSelect,'Units','normalized')
set(handles.okButton,'Units','normalized')
set(handles.cancelButton,'Units','normalized')

% Initialize list contents by giving default values
handles.leftListContents='';
handles.rightListContents='';
handles.leftContents=handles.leftListContents;
handles.rightContents=handles.rightListContents;

% Define a flag for processing indices (if up position indices cannot be returned) and a
% flag to control whether the list contents are sorted or not and a multi-selection flag
handles.indflag=false;
handles.sort=false;
handles.multi=true;

% Get input variables from varargin and check for errors
if isempty(varargin) 
    % Create an example (initial contents always sorted)
    handles.leftListContents=sort({'Mary','George','John','Sarah','Susan'});
    % handles.leftListContents={'Analysis 1','Analysis 2','Analysis 3','Analysis 4','Analysis 5'};
    handles.rightListContents='';
    handles.leftContents=handles.leftListContents;
    handles.rightContents=handles.rightListContents;
    set(handles.leftList,'String',handles.leftListContents)
    set(handles.rightList,'String',handles.rightListContents)
    set(handles.leftListName,'String','Friends')
    set(handles.rightListName,'String','Guests')
    set(handles.mainFigure,'Name','Example of Add/Remove listboxes')
elseif length(varargin)==1
    if ~iscellstr(varargin{1})
        error('The first argument to %s must be a cell array of strings',mfilename)
    else
        % Initial contents always sorted
        handles.leftListContents=sort(varargin{1});
        handles.rightListContents='';
        handles.leftContents=handles.leftListContents;
        handles.rightContents='';
    end
elseif length(varargin)>1
    if rem(nargin,2)==0
        error('Incorrect number of arguments to %s.',mfilename);
    end
    okargs={'leftcontents','rightcontents','listnames','title','multiselect','keepsorted'};
    for i=1:2:length(varargin)-1
        parName=varargin{i};
        parVal=varargin{i+1};
        j=strmatch(lower(parName),okargs);
        if isempty(j)
            error('Unknown parameter name: %s.',parName);
        elseif length(j)>1
            error('Ambiguous parameter name: %s.',parName);
        else
            switch(j)
                case 1 % Left list contents
                    if ~iscellstr(parVal)
                        error('The %s parameter value must be a cell array of strings',parName)
                    else
                        % Initial contents always sorted
                        handles.leftListContents=sort(parVal);
                    end
                case 2 % Right list contents
                    if ~iscellstr(parVal) && ~isempty(parVal)
                        error('The %s parameter value must be a cell array of strings or empty',parName)
                    else
                         % Initial contents always sorted
                         handles.rightListContents=sort(parVal);
                    end
                case 3 % List names
                    if ~iscellstr(parVal) && ~length(parVal)==2