怎么更改这个字体？ - VB6论坛

wxl900306

等　级：新手上路
帖　子：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