新网创想网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
vb2010以后的版本就自带Chart控件了,比如
创新互联制作网站网页找三站合一网站制作公司,专注于网页设计,成都网站设计、成都网站制作,网站设计,企业网站搭建,网站开发,建网站业务,680元做网站,已为数千家服务,创新互联网站建设将一如既往的为我们的客户提供最优质的网站建设、网络营销推广服务!
Chart1.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Pie '饼图
(1)在窗体上布置一个MSChart控件
(2)窗体代码
Option Explicit
Private Sub Form_Load()
'设置MSChart1
With MSChart1
'图上只画一条曲线
.ColumnCount = 1
'设置图表类型为二维曲线;默认为直方图
.chartType = VtChChartType2dLine
'X轴显示10个单位
.RowCount = 10
End With
'曲线数据
Dim v(1 To 10) As Single
Dim i As Integer
'曲线数据随机产生
For i = 1 To 10
v(i) = Rnd * 99 + 1
Next
' 显示曲线
With MSChart1
For i = 1 To 10
' 指定X轴的坐标
.Row = i
' X轴标签
.RowLabel = i
' 与x对应的值
.data = v(i)
Next
End With
End Sub(3)运行结果
(4)其他注意事项
在设计状态,鼠标右键单击MSChart控件,在弹出菜单中单击“属性”,可以调出控件的属性页窗口。利用这个窗口,可以直观地设计MSChart
首先你要建一个 Bitmap
再将picture控件的image属性与之相关联
再到 picture的image上画线
保存image到文件
/////////////////////////////////
Dim mybitmap As Bitmap
mybitmap = New Bitmap(300, 150)
PictureBox0.Image = mybitmap
Dim Graph As Graphics
Graph =Graphics.FromImage(PictureBox0.image)
Graph .drawline(Pens.Blue,0,0,111,111)
picturebox0.image.save("c:\aaa.jpg")
/////////////////////////////////////
存成的文件绝对有你画的线..我一直在用这种方法