control_slide.m

来自「代码为本人学习matlab的GUI程序设计期间」· M 代码 · 共 21 行

%滑标
vw = get(gca,'View')
Hc_az=uicontrol(gcf,'Style','slider',...
                   'position',[10  5  140  20],...
                   'Min',-90, 'Max',90,'Value',vw(1)',...
                   'CallBack',[...
                          'set(Hc_cur,''String'',num2str(get(Hc_az,''Value''))),' ...
                          'set(gca,''View'',[get(Hc_az,''Value'') vw(2)])']);

Hc_min=uicontrol(gcf,'Style','text',...
                   'Position' ,[10  25  40  20],...
                   'String' ,num2str(get(Hc_az, 'Min' )));

Hc_max=uicontrol(gcf,'Style','text' ,...
                   'Position' ,[110  25  40  20],...
                   'String',num2str(get(Hc_az,'Max')));

Hc_cur=uicontrol(gcf,'Style','text',...
                   'Position' ,[55  25  50  20],...
                   'String', num2str(get(Hc_az,'Value' )));