VB柱状图编程

来源:百度知道 编辑:UC知道 时间:2024/09/20 06:51:46
现在有一个测试程序,先是做测试,测试的内容是加减乘除,然后要做个柱状统计图,对每个运算符号的正确率做个统计以柱状图的形式表示出来。(一共是10道题)
即横坐标是加、减、乘、除
纵坐标是正确率
我们周二(6月23日)要交的。。。。。麻烦大家帮忙吧~~~

先加入一个mschart控件
插入如下显示代码
Private Sub GraphShowBasic()
With MSChart1.Plot.Backdrop

' 除非将样式属性正确地设置为VtFillStyleBrush
' 否则不会有颜色显示。
.Fill.Style = VtFillStyleBrush
.Fill.Brush.FillColor.Set 100, 255, 200
' 添加边框。
.Frame.Style = VtFrameStyleThickInner
' 将样式设置为显示阴影。
.Shadow.Style = VtShadowStyleDrop
End With
With MSChart1.Plot
' 将样式设置为实心。
.Wall.Brush.Style = VtBrushStyleSolid
' 将颜色设置为。
.Wall.Brush.FillColor.Set 255, 255, 0
End With
With MSChart1.Plot '将绘图底色设置为蓝色。
.PlotBase.BaseHeight = 200
.PlotBase.Brush.Style = VtBrushStyleSolid
.PlotBase.Brush.FillColor.Set 0, 0, 255
End With
With MSChart1.Title.VtFont