📄 msselect.m
字号:
%MSSELECT HFIG = MSSELECT displays a dialog box which lets the user select MS(s)
%
%Author : Achim Wacker (AWa)
%
%Revision: 5.0.0cd Date: 17-Jul-2001
%
%needed m-files: none
function fig = MSselect()
h0 = dialog('Color', [0.8 0.8 0.8], ...
'PaperType', 'A4', ...
'Position', [500 200 300 365], ...
'Tag', 'Fig2', ...
'Units', 'pixels');
h1 = uicontrol('Parent', h0, ...
'Units', 'pixels', ...
'BackgroundColor', [0.75 0.75 0.75], ...
'ListboxTop', 0, ...
'Position', [75 300 150 25], ...
'String', 'Please select MS(s):', ...
'Style', 'text', ...
'Tag', 'StaticText1');
h1 = uicontrol('Parent', h0, ...
'Units', 'pixels', ...
'BackgroundColor', [1 1 1], ...
'Callback', 'wantedMSstr = get(gcbo, ''String'');', ...
'ListboxTop', 0, ...
'Position', [100 250 100 25], ...
'Style', 'edit', ...
'Tag', 'EditText1');
h1 = uicontrol('Parent', h0, ...
'Units', 'pixels', ...
'Callback', ['close(h0);', ...
'eval([''wantedMS = ['' wantedMSstr ''];'']);'], ...
'ListboxTop', 0, ...
'Position', [50 26.25 75 30], ...
'String', 'OK', ...
'Tag', 'Pushbutton1');
h1 = uicontrol('Parent', h0, ...
'Units', 'pixels', ...
'Callback', 'wantedMS = [];close(h0)', ...
'ListboxTop', 0, ...
'Position', [175 26.25 75 30], ...
'String', 'Cancel', ...
'Tag', 'Pushbutton1');
h1 = uicontrol('Parent', h0, ...
'Units', 'pixels', ...
'BackgroundColor', [0.75 0.75 0.75], ...
'HorizontalAlignment', 'left', ...
'ListboxTop', 0, ...
'Position', [90 225 120 20], ...
'String', 'Format: 1, 4, 7:9, 12', ...
'Style', 'text', ...
'Tag', 'StaticText2');
if nargout > 0
fig = h0;
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -