www.pudn.com > matlab7.x.rar > fcnkeyfunc.m

function fcnkeyfunc(action) 
% FCNKEYFUNC M-file for testfcnkey application 
%	FCNKEYFUNC implements the callback and keypressfcn  
%	functionalities of the testfcnkey gui application. 
% 
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
 
switch (action) 
    case ('keypress') 
         % msgbox('Test'); 
		 hTxt = findobj('Tag', 'text1'); 
		  keypressed = wgfcnkey; 
		 %keypressed = get(gcf, 'CurrentKey') 
		 myText = []; 
		 myColor = 'k'; 
		 switch (keypressed) 
		     case (0) 
		          myText = 'No function key was pressed'; 
				  myColor = 'k'; 
 
			 case (1) 
		          myText = 'F1 was pressed'; 
				  myColor = 'r'; 
 
		     case (2) 
		          myText = 'F2 was pressed'; 
				  myColor = 'r'; 
 
		     case (3) 
		          myText = 'F3 was pressed'; 
				  myColor = 'r'; 
 
		     case (4) 
		          myText = 'F4 was pressed'; 
				  myColor = 'r'; 
 
		     case (5) 
		          myText = 'F5 was pressed'; 
				  myColor = 'r'; 
 
		     case (6) 
		          myText = 'F6 was pressed'; 
				  myColor = 'r'; 
 
		     case (7) 
		          myText = 'F7 was pressed'; 
				  myColor = 'r'; 
 
		     case (8) 
		          myText = 'F8 was pressed'; 
				  myColor = 'r'; 
 
		     case (9) 
		          myText = 'F9 was pressed'; 
				  myColor = 'r'; 
 
		     case (10) 
		          myText = 'F10 was pressed'; 
				  myColor = 'r'; 
 
		     case (11) 
		          myText = 'F11 was pressed'; 
				  myColor = 'r'; 
 
		     case (12) 
		          myText = 'F12 was pressed'; 
				  myColor = 'r'; 
		 end 
		 
		set(hTxt, 'String', myText, 'ForegroundColor', myColor); 
end