系统登录框问题

herrytcy

做系统的登录框：想把edit中的输入数据变为*，希望大家帮忙一下

xiezhh

function mima

OldHandle = findobj( 'Type', 'figure', 'Tag', 'mimadenglu' ) ;
if ishandle( OldHandle )
    close( OldHandle ) ;
end
fig = figure ;
set(fig,'units','normalized','position',[0.3 0.2 0.4 0.6],...
    'menubar','none','name','密码登陆窗口',...
    'numbertitle','off','color',[0.925 0.914 0.847],'tag','mimadenglu');
scnsize=get(0,'screensize');
font_size1=round(20*sqrt(scnsize(3)*scnsize(4)/(1024*768)));
font_size2=round(14*sqrt(scnsize(3)*scnsize(4)/(1024*768)));
uicontrol(fig,'style','text','units','normalized','pos',[0.1 0.63 0.8 0.15],'string','欢迎使用本系统',...
    'fontsize',font_size1,'fontweight','bold','fontunits','normalized','bac',[0.925 0.914 0.847])
panel1=uipanel(fig,'units','normalized','pos',[0.15 0.3 0.7 0.15],'bac',[0.925 0.914 0.847]);
uicontrol(panel1,'style','edit','units','normalized','pos',[0.2 0.2 0.6 0.6],...
    'string','','tag','edit1','backgroundcolor',[1 1 1],'string','请输入密码',...
    'fontsize',font_size2,'fontunits','normalized','KeyPressFcn',...
    ['currKey = get(gcf,''Currentkey'');',...
    'currChar = get(gcf,''Currentcharacter'');',...
    'switch currKey;',...
       'case {''backspace'',''delete''};',...
           'Char = [];',...
           'set(gcbo,''String'','''');',...
           'drawnow;',...
       'case ''return'';',...
           'passChar = get(gcbo,''UserData'');',...
           'if strcmp(passChar,''654321'');',...
               'msgbox(''恭喜你记住了密码！！！'');',...
           'else;',...
               'msgbox(''密码输入错误！！！'');',...
           'end;',...
           'return;',...
       'otherwise;',...
           'oldChar = get(gcbo,''UserData'');',...           
           'Char = [oldChar,currChar];',...
           'set(gcbo,''string'',char(''*''*ones(1,length(Char))));',...
    'end;',...
    'set(gcbo,''UserData'',Char);'])

herrytcy

找了半天了，谢谢了，我会好好学习一下！