㈠ vb 中如何画柱形图
Private Sub Command1_Click()
' 首先，将图表类型改为 3D 图表
' 这样可以看到图的所有部分。
MSChart1.ChartType = VtChChartType3dArea
' 用 Plot 对象将
' 背景变为浅蓝色。
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
End Sub
㈡ VB问题，在什么控件内可以画图，线的宽度和颜色如何控制
一般情况，我们在窗体（from）或者图片框（picturebox）内画图。
下面是一个在窗体内画线的例子：
Private
Sub
Form_Click()
Me.DrawWidth
=
1
'设置宽度（其他宽度下线型均为实线）
For
i
=
0
To
6
Me.DrawStyle
=
i
'设置线条类型
Me.Line
(1000
*
i
+
100,
100)-(1000
*
i
+
100,
6000),
vbRed
'线的起点、终点和颜色
Next
i
End
Sub
下面是一个在图片框内画线的例子（当然窗体内必须有一个图片框，并且假定name属性为picture1）：
Private
Sub
Form_Click()
Picture1.DrawWidth
=
1
'设置宽度（其他宽度下线型均为实线）
For
i
=
0
To
6
Picture1.DrawStyle
=
i
'设置线条类型
Picture1.Line
(1000
*
i
+
100,
100)-(1000
*
i
+
100,
6000),
vbRed
'线的起点、终点和颜色
Next
i
End
Sub