vb如何畫圖片

㈠ 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