【转贴】更改Figure图标的新方法

ChaChing

在这里http://forum.simwe.com/viewthread.php?tid=880867&page=1#pid1824705
看到这个, 觉得好玩, 转来与大家共同欣赏!

1. 
   
2. function chgicon(hfig,iconfile)
   
3. %CHGICON changes the Figure HFIG's icon to the icon specified by ICONFILE
   
4. % HFIG must be a figure handle.
   
5. % ICONFILE is a string specifies the path to an imagefile.
   
6. %
   
7. %WARNING:
   
8. % Changing the matlab icon violate the mathworks license. THis function can
   
9. % only be used for study purpose. Please delete it within 24 hours.
   
10. %
    
11. % Author: junziyang (simwer@126.com)
    
12. % Ver.1.0
    
13. % 2009-05-20
    
14. error(nargchk(2,2,nargin));
    
15. if ~ishandle(hfig) && ~isequal(get(hfig,'Type'),'figure')
    
16. error('The first input argument must be a Figure handle.');
    
17. end
    
18. if ~ischar(iconfile) || ~exist(iconfile,'file')
    
19. error('Icon file name is not input properly.');
    
20. end
    
21. mde = com.mathworks.mde.desk.MLDesktop.getInstance;
    
22. if isequal(get(hfig,'NumberTitle'),'off') && isempty(get(hfig,'Name'))
    
23. figTag = 'junziyang'; %Name the figure temporarily
    
24. set(hfig,'Name',figTag);
    
25. elseif isequal(get(hfig,'NumberTitle'),'on') && isempty(get(hfig,'Name'))
    
26. figTag = ['Figure ',num2str(hfig)];
    
27. elseif isequal(get(hfig,'NumberTitle'),'off') && ~isempty(get(hfig,'Name'))
    
28. figTag = get(hfig,'Name');
    
29. else
    
30. figTag = ['Figure ',num2str(hfig),': ',get(hfig,'Name')];
    
31. end
    
32. drawnow %Update figure window
    
33. jfig = mde.getClient(figTag); %Get the underlying JAVA object of the figure.
    
34. jfig.setClientIcon(javax.swing.ImageIcon(iconfile));
    
35. if isequal(get(hfig,'Name'),'junziyang')
    
36. set(hfig,'Name',''); %Delete the temporary figure name
    
37. end
    

复制代码

月初即想转贴, 并询问友网是否允许转贴!
已经版主同意, 但想若经楼主同意好像更尊重些, 一等一忙竟给忘记了!
刚在中文又看到http://www_ilovematlab_cn/viewthread.php?tid=57132&page=1#pid532336 (change "_" to ".")
不知是否为原创者, 但肯定是旧版!
怕再次忘记, 先贴了

[ 本帖最后由 ChaChing 于 2010-5-21 18:18 编辑 ]

pzfs1016

感谢楼主！

suiyidodo

谢谢 楼主啊

machreehappy

学习啦

mni987654321

这都可以啊

竺郁

这是什么，怎么我运行不出来？？