www.pudn.com > zxb.rar > example.m

clf reset 
set(gcf,'menubar','none') 
set(gcf,'unit','normalized','position',[0.2,0.2,0.64,0.32]);  
set(gcf,'defaultuicontrolunits','normalized') %设置用户缺省控件单位属性值 
h_axes=axes('position',[0.05,0.2,0.6,0.6]);   
t=0:pi/50:2*pi;y=sin(t);plot(t,y); 
set(h_axes,'xlim',[0,2*pi]); 
set(gcf,'defaultuicontrolhorizontal','left'); 
htitle=title('正弦曲线'); 
set(gcf,'defaultuicontrolfontsize',12);   %设置用户缺省控件字体属性值 
uicontrol('style','frame',...      %创建用户控件区   <11> 
   'position',[0.67,0.55,0.25,0.25]);     
uicontrol('style','text',...      %创建静态文本框   <13> 
   'string','正斜体图名:',... 
   'position',[0.68,0.77,0.18,0.1],... 
   'horizontal','left');        
hr1=uicontrol(gcf,'style','radio',...    %创建“无线电”选择按键 <17> 
   'string','正体',...        %按键功能的文字标识'正体' 
   'position',[0.7,0.69,0.15,0.08]);        %按键位置 
set(hr1,'value',get(hr1,'Max'));%因图名缺省使用正体，所以小圆圈应被点黑 <20> 
set(hr1,'callback',[...          %     <21> 
   'set(hr1,''value'',get(hr1,''max'')),',... %选中将小圆圈点黑  <22> 
   'set(hr2,''value'',get(hr2,''min'')),',... %将“互斥”选项点白 <23> 
   'set(htitle,''fontangle'',''normal''),',... %使图名字体正体显示  
  ]);    
       
hr2=uicontrol(gcf,'style','radio',...    %创建“无线电”选择按键 <26> 
  'string','斜体',...        %按键功能的文字标识'斜体' 
  'position',[0.7,0.58,0.15,0.08],...   %按键位置 
  'callback',[... 
   'set(hr1,''value'',get(hr1,''min'')),',... %      <30> 
   'set(hr2,''value'',get(hr2,''max'')),',... %      <31> 
   'set(htitle,''fontangle'',''italic'')',... %使图名字体斜体显示 
  ]);               %      <33> 
   ht=uicontrol(gcf,'style','toggle',...   %制作双位按键    <34> 
      'string','Grid',... 
      'position',[0.67,0.40,0.15,0.12],... 
      'callback','grid');