| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 499 人关注过本帖
标题:怎么更改这个字体?
只看楼主 加入收藏
wxl900306
Rank: 1
等 级:新手上路
帖 子:26
专家分:2
注 册:2012-3-14
结帖率:85.71%
收藏
已结贴  问题点数:20 回复次数:2 
怎么更改这个字体?
我想要我的柱状图上的字体改的大一些.要怎么改代码呢?
程序代码:
'绘制直方图
'CurrentX = 2 + 2: CurrentY = Text1.Text                                             '找到绘制“赞同”直方图的起始位置

Line (6240 + 940, 4560 - 0)-(6240 + 1880, 4560 - 100 * 36), Me.BackColor, BF    '清除上次同意的直方图
Line (6240 + 940, 4560 - 0)-(6240 + 1880, 4560 - tongyi * 36), vbGreen, BF     '绘制“赞同”直方图,如果想要改每次增长的高度可以改36这个值,例:如果要是10人,可将36改为360
CurrentX = 6240 + 1410: CurrentY = 4560 - tongyi * 36 - 200: Print tongyi

Line (6240 + 2820, 4560 - 0)-(6240 + 3760, 4560 - 100 * 36), Me.BackColor, BF            '清除上次反对的直方图
Line (6240 + 2820, 4560 - 0)-(6240 + 3760, 4560 - fandui * 36), vbYellow, BF        '绘制“反对”直方图
CurrentX = 6240 + 3290: CurrentY = 4560 - fandui * 36 - 200: Print fandui

Line (6240 + 4700, 4560 - 0)-(6240 + 5640, 4560 - 100 * 36), Me.BackColor, BF    '清除上次弃权的直方图
Line (6240 + 4700, 4560 - 0)-(6240 + 5640, 4560 - qiquan * 36), vbRed, BF           '绘制“弃权”直方图
CurrentX = 6240 + 5170: CurrentY = 4560 - qiquan * 36 - 200: Print qiquan

End Sub
图片附件: 游客没有浏览图片的权限,请 登录注册

搜索更多相关主题的帖子: 柱状图 color 
2013-03-07 14:59
xbj_hyml
Rank: 3Rank: 3
等 级:论坛游侠
威 望:1
帖 子:24
专家分:114
注 册:2012-11-28
收藏
得分:20 
在Print方法前面
    Me.FontSize="字体大小"

懂点基础--好多控件不知道--NB代码不会写--所以一直求教中...
2013-03-07 16:13
qq871928176
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2013-3-20
收藏
得分:0 
这个字体是label控件吧,这个控件名称.fontsize="20"    '20号字体大小
2013-03-20 13:37
快速回复:怎么更改这个字体?
数据加载中...
 
   



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

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