| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 572 人关注过本帖
标题:谁能帮我修改下?
只看楼主 加入收藏
李逍遥
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2008-3-17
收藏
 问题点数:0 回复次数:5 
谁能帮我修改下?
我做的没有循环,哪位能帮我用循环来做?谢谢了.

CMy666Doc* pDoc = GetDocument();
    ASSERT_VALID(pDoc);
    // TODO: add draw code for native data here
    CFont Font;
    //CFont *OldFont;
    Font.CreateFont(30,20,0,0,400,FALSE,FALSE,0,
        ANSI_CHARSET,OUT_DEFAULT_PRECIS,
        CLIP_DEFAULT_PRECIS,DEFAULT_QUALITY,
        DEFAULT_PITCH|FF_SWISS,"黑体");
    pDC->SelectObject(&Font);
    pDC->TextOut(30,200,"只");
    Font.DeleteObject();

    Font.CreateFont(40,30,0,0,0,FALSE,FALSE,0,
        ANSI_CHARSET,OUT_DEFAULT_PRECIS,
        CLIP_DEFAULT_PRECIS,DEFAULT_QUALITY,
        DEFAULT_PITCH|FF_SWISS,"黑体");
    pDC->SelectObject(&Font);
    pDC->TextOut(70,200,"有");
    Font.DeleteObject();

    Font.CreateFont(50,40,0,0,400,FALSE,FALSE,0,
        ANSI_CHARSET,OUT_DEFAULT_PRECIS,
        CLIP_DEFAULT_PRECIS,DEFAULT_QUALITY,
        DEFAULT_PITCH|FF_SWISS,"黑体");
    pDC->SelectObject(&Font);
    pDC->TextOut(130,200,"付");
    Font.DeleteObject();

    Font.CreateFont(60,50,0,0,400,FALSE,FALSE,0,
        ANSI_CHARSET,OUT_DEFAULT_PRECIS,
        CLIP_DEFAULT_PRECIS,DEFAULT_QUALITY,
        DEFAULT_PITCH|FF_SWISS,"黑体");
    pDC->SelectObject(&Font);
    pDC->TextOut(210,200,"出");
    Font.DeleteObject();
    
    Font.CreateFont(70,60,0,0,400,FALSE,FALSE,0,
        ANSI_CHARSET,OUT_DEFAULT_PRECIS,
        CLIP_DEFAULT_PRECIS,DEFAULT_QUALITY,
        DEFAULT_PITCH|FF_SWISS,"黑体");
    pDC->SelectObject(&Font);
    pDC->TextOut(310,200,"才");
    Font.DeleteObject();

    Font.CreateFont(80,70,0,0,400,FALSE,FALSE,0,
        ANSI_CHARSET,OUT_DEFAULT_PRECIS,
        CLIP_DEFAULT_PRECIS,DEFAULT_QUALITY,
        DEFAULT_PITCH|FF_SWISS,"黑体");
    pDC->SelectObject(&Font);
    pDC->TextOut(430,200,"有");
    Font.DeleteObject();

    Font.CreateFont(90,80,0,0,400,FALSE,FALSE,0,
        ANSI_CHARSET,OUT_DEFAULT_PRECIS,
        CLIP_DEFAULT_PRECIS,DEFAULT_QUALITY,
        DEFAULT_PITCH|FF_SWISS,"黑体");
    pDC->SelectObject(&Font);
    pDC->TextOut(570,200,"收");
    Font.DeleteObject();

    Font.CreateFont(100,90,0,0,400,FALSE,FALSE,0,
        ANSI_CHARSET,OUT_DEFAULT_PRECIS,
        CLIP_DEFAULT_PRECIS,DEFAULT_QUALITY,
        DEFAULT_PITCH|FF_SWISS,"黑体");
    pDC->SelectObject(&Font);
    pDC->TextOut(730,200,"获");
    Font.DeleteObject();
搜索更多相关主题的帖子: 400 
2008-04-13 22:36
李逍遥
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2008-3-17
收藏
得分:0 
输出是:只有付出才有收获

VC++编译的
2008-04-13 22:38
emtlab
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2008-3-9
收藏
得分:0 
你是仅仅想一起显示出这些文字呢?
还是想在循环中不停的改变显示的位置?
2008-04-13 22:54
emtlab
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2008-3-9
收藏
得分:0 
如果放到一起显示这些文字,那么在一个TEXTOUT里面就可以全部显示吧。
如果想按不同字显示的位置及字号字体等都变化的话,
那是不是可以把你这串字存到一个地方,
然后用指针加来取这些字,
再定义几个变量来代替控制字体大小等的变化等,
最后把这些一起放到循环里面做应该可以吧。
2008-04-13 22:58
张信哲
Rank: 1
等 级:新手上路
帖 子:139
专家分:0
注 册:2008-4-3
收藏
得分:0 
眼睛花了
2008-04-15 13:46
李逍遥
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2008-3-17
收藏
得分:0 
用循环帮我输出
2008-04-15 19:34
快速回复:谁能帮我修改下?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.025873 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved