flexgrid_export.m

《MATLAB实用指南》系列丛书DE源代码

function varargout = FlexGrid_export(varargin)
%FLEXGRID_EXPORT M-file for FlexGrid_export.fig
%      FLEXGRID_EXPORT, by itself, creates a new FLEXGRID_EXPORT or raises the existing
%      singleton*.
%
%      H = FLEXGRID_EXPORT returns the handle to a new FLEXGRID_EXPORT or the handle to
%      the existing singleton*.
%
%      FLEXGRID_EXPORT('Property','Value',...) creates a new FLEXGRID_EXPORT using the
%      given property value pairs. Unrecognized properties are passed via
%      varargin to FlexGrid_export_OpeningFcn.  This calling syntax produces a
%      warning when there is an existing singleton*.
%
%      FLEXGRID_EXPORT('CALLBACK') and FLEXGRID_EXPORT('CALLBACK',hObject,...) call the
%      local function named CALLBACK in FLEXGRID_EXPORT.M with the given input
%      arguments.
%
%      *See GUI Options on GUIDE's Tools menu.  Choose "GUI allows only one
%      instance to run (singleton)".
%
% See also: GUIDE, GUIDATA, GUIHANDLES

% Edit the above text to modify the response to help FlexGrid_export

% Last Modified by GUIDE v2.5 25-Apr-2005 16:07:57

% Begin initialization code - DO NOT EDIT
gui_Singleton = 1;
gui_State = struct('gui_Name',       mfilename, ...
                   'gui_Singleton',  gui_Singleton, ...
                   'gui_OpeningFcn', @FlexGrid_export_OpeningFcn, ...
                   'gui_OutputFcn',  @FlexGrid_export_OutputFcn, ...
                   'gui_LayoutFcn',  @FlexGrid_export_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 FlexGrid_export is made visible.
function FlexGrid_export_OpeningFcn(hObject, eventdata, handles, varargin)
% This function has no output args, see OutputFcn.
% hObject    handle to figure
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
% varargin   unrecognized PropertyName/PropertyValue pairs from the
%            command line (see VARARGIN)

handles.Size=4;

% Choose default command line output for FlexGrid_export
handles.output = hObject;

% Update handles structure
guidata(hObject, handles);

% UIWAIT makes FlexGrid_export wait for user response (see UIRESUME)
% uiwait(handles.figure1);


% --- Outputs from this function are returned to the command line.
function varargout = FlexGrid_export_OutputFcn(hObject, eventdata, handles)
% varargout  cell array for returning output args (see VARARGOUT);
% hObject    handle to figure
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Get default command line output from handles structure
varargout{1} = handles.output;


% --- Executes on button press in btnShow.
function btnShow_Callback(hObject, eventdata, handles)
% hObject    handle to btnShow (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
num=handles.Size;
data=magic(num);
activex1.Cols=num;
activex1.Rows=num;
for m=1:num
    for n=1:num
        activex1.Row=m;
        activex1.Col=n;
        activex1.Text=data(m,n);
    end
end


function txtSize_Callback(hObject, eventdata, handles)
% hObject    handle to txtSize (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of txtSize as text
%        str2double(get(hObject,'String')) returns contents of txtSize as a double
%handles.Size=txtSize.String;

% --- Executes during object creation, after setting all properties.
function txtSize_CreateFcn(hObject, eventdata, handles)
% hObject    handle to txtSize (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end






% --- Creates and returns a handle to the GUI figure. 
function h1 = FlexGrid_export_LayoutFcn(policy)
% policy - create a new figure or use a singleton. 'new' or 'reuse'.

persistent hsingleton;
if strcmpi(policy, 'reuse') & ishandle(hsingleton)
    h1 = hsingleton;
    return;
end

appdata = [];
appdata.GUIDEOptions = struct(...
    'active_h', 172.002563476563, ...
    'taginfo', struct(...
    'figure', 2, ...
    'activex', 2, ...
    'pushbutton', 2, ...
    'text', 2, ...
    'edit', 2), ...
    'override', 0, ...
    'release', 14, ...
    'resize', 'none', ...
    'accessibility', 'callback', ...
    'mfile', 1, ...
    'callbacks', 1, ...
    'singleton', 1, ...
    'syscolorfig', 1, ...
    'blocking', 0, ...
    'lastSavedFile', 'D:\MATLAB_NEWBOOK\File\高级编程\Interface\FlexGrid_export.m');
appdata.lastValidTag = '';
appdata.GUIDELayoutEditor = [];

h1 = figure(...
'Units','characters',...
'PaperUnits',get(0,'defaultfigurePaperUnits'),...
'Color',[0.831372549019608 0.815686274509804 0.784313725490196],...
'Colormap',get(0,'defaultfigureColormap'),...
'DockControls','off',...
'IntegerHandle','off',...
'InvertHardcopy',get(0,'defaultfigureInvertHardcopy'),...
'MenuBar','none',...
'Name','FlexGrid',...
'NumberTitle','off',...
'PaperPosition',[0.6345175 6.345175 20.30456 15.22842],...
'PaperSize',[20.98404194812 29.67743169791],...
'PaperType',get(0,'defaultfigurePaperType'),...
'Position',[46.2 16.6923076923077 90.2 34.4615384615385],...
'Resize','off',...
'HandleVisibility','callback',...
'Tag','figure1',...
'Behavior',get(0,'defaultfigureBehavior'),...
'Visible','on',...
'CreateFcn', {@local_CreateFcn, '', appdata} );

appdata = [];
appdata.Control = struct(...
    'Type', 'activex', ...
    'Style', 'activex', ...
    'Instance', [], ...
    'Runtime', 0, ...
    'Callbacks', { {  'Click' } }, ...
    'ProgID', 'MSFlexGridLib.MSFlexGrid.1', ...
    'Name', 'Microsoft FlexGrid Control, version 6.0', ...
    'Serialize', 'FlexGrid_activex1');
appdata.lastValidTag = 'activex1';

h2 = uicontrol(...
'Parent',h1,...
'Position',[50 147 351 277],...
'Style','text',...
'CreateFcn', {@local_CreateFcn, 'actxproxy(gcbo);', appdata} ,...
'HandleVisibility','off',...
'Tag','activex1',...
'Behavior',get(0,'defaultuicontrolBehavior'),...
'Visible','off');

appdata = [];
appdata.lastValidTag = 'btnShow';

h3 = uicontrol(...
'Parent',h1,...
'Units','characters',...
'Callback','FlexGrid_export(''btnShow_Callback'',gcbo,[],guidata(gcbo))',...
'Position',[34.2 2.53846153846154 21.6 2.30769230769231],...
'String','显示矩阵',...
'Tag','btnShow',...
'Behavior',get(0,'defaultuicontrolBehavior'),...
'CreateFcn', {@local_CreateFcn, '', appdata} );

appdata = [];
appdata.lastValidTag = 'text1';

h4 = uicontrol(...
'Parent',h1,...
'Units','characters',...
'Position',[9.8 7.38461538461539 16.8 1.53846153846154],...
'String','魔方矩阵的大小',...
'Style','text',...
'Tag','lblSize',...
'Behavior',get(0,'defaultuicontrolBehavior'),...
'CreateFcn', {@local_CreateFcn, '', appdata} );

appdata = [];
appdata.lastValidTag = 'txtSize';

h5 = uicontrol(...
'Parent',h1,...
'Units','characters',...
'BackgroundColor',[1 1 1],...
'Callback','FlexGrid_export(''txtSize_Callback'',gcbo,[],guidata(gcbo))',...
'Position',[29.8 7.38461538461539 17.2 1.84615384615385],...