密码登陆窗口代码【原创】

[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);'])