24小时热门版块排行榜    

查看: 585  |  回复: 5
【奖励】 本帖被评价3次,作者baobiao007增加金币 1.8
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

baobiao007

木虫 (职业作家)


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

将下面的代码保存为 myguii.m 文件保存运行即可。
点击确定按钮,该按钮会跑。
CODE:
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

回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

smithjohn

金虫 (正式写手)


★★★★★ 五星级,优秀推荐

有创意,用了随机数。
4楼2013-09-29 20:05:07
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 baobiao007 的主题更新
☆ 无星级 ★ 一星级 ★★★ 三星级 ★★★★★ 五星级
普通表情 高级回复(可上传附件)
信息提示
请填处理意见