[资源] 分享一个小玩意----会跑的按钮

function myguii
    hf = figure('MenuBar','none','Visible','off','Name','会跑的按钮','NumberTitle','off');
    hb = uicontrol(hf,'Style','pushbutton','String','确定',...
                    'Position',[1,1,50,50],'Callback',@escape);
    set(hf,'Visible','on');
    function escape(hObject,eventdata)
        bpos = get(hObject,'Position');
        fpos = get(gcbf,'Position');
        x = randi([0 50]);
        y = randi([0 50]);
        bpos(1) = bpos(1) + x;
        bpos(2) = bpos(2) + y;
        if bpos(1) + bpos(3) > fpos(3)
            bpos(1) = bpos(1) - randi([0 50]);
        end
        if bpos(2) + bpos(4) > fpos(4)
            bpos(2) = bpos(2) - randi([0 50]);
        end
            
        set(hObject,'Position',bpos);
    end
end

2楼: Originally posted by whenyd at 2013-09-21 12:44:32
只要保存为m文件吗，不用其他软件可以运行吗