vb.net折线图拟合,vb拟合曲线

如何用vb画折线图?

采用绘制直线的方法：

成都创新互联公司服务项目包括舞阳网站建设、舞阳网站制作、舞阳网页制作以及舞阳网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，舞阳网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到舞阳省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！

你给出了9个点坐标；

(2,0.8)、(3,0.6)、(4,0.5)、(5,0.4)、..........

把这些相邻的点之间用直线连接起来，就是折线了。

VB6可以在窗体上或者PictureBox里绘制图形，语句为：

对象.Line (x1,y1)-(x2,y2)

其中：(x1,y1)和(x2,y2)分别是两个点的坐标。

用vb怎么制折线图

1 新建一个工程。

2 在工程/部件内加载图表控件到工具栏上。在窗体上绘制这个控件。

3 在窗体上绘制一个命令按钮。

在此按钮的Click事件内编写代码给图表控件的数据网格属性赋值，值是一个二维数组，假定为dim X(1 to 3,1 to 4),必须先给每个数组元素赋值。

数据网格属性接收到X的值，即自动绘出图形，此时是默认的柱形图，通过更改图表类型，就可变成折线图。

用VB做数据折线图

用MSCHART控件

定义一个二维数组，例如：Global studydata(1 To 5, 1 To 7) '学历数据

ElseIf cb_sort.Text = "学历" And cb_chart.Text = "折线图" Then

With MSChart1

.ColumnCount = 6

.ChartData = studydata

.DataGrid.ColumnLabel(1, 1) = "研究生及以上"

.DataGrid.ColumnLabel(2, 1) = "本科"

.DataGrid.ColumnLabel(3, 1) = "专科"

.DataGrid.ColumnLabel(4, 1) = "中专"

.DataGrid.ColumnLabel(5, 1) = "高中"

.DataGrid.ColumnLabel(6, 1) = "初中及以下"

.TitleText = "全公司学历结构图示"

.ToolTipText = "全公司学历结构图示"

.ChartType = VtChChartType2dLine '折线图

'MSChart1.Stacking = True

End With

vb.net怎么在excle里面生成折线图

你可以通过用VB.net控制excel,让excel生成曲线图,然后利用excelVBA将图输出,最后导入到VB.net就可以了。

VB.net 高次曲线拟合并绘图

构造Pen的时候可以指定粗细，如果你指定为1，并且放大了10倍，最后就成10了，所以你指定小点就行了，比如 Dim p As New Pen(Color.Black, 0.01) 最终绘制的线的粗细不会小于1

vb.net绘制曲线图

。net  其实还是很好绘制图形的

你可以看下 Graphics  类

Dim d As New Bitmap(Me.Width, Me.Height)  ‘一个图片吧

  Dim g As Graphics = Graphics.FromImage(d)’绘制  准备在这个图片是进行

然后  就是你绘制的东西了

线 就是   g.DrawLine()

圆 弧度  就用  g.DrawArc(Pens.Black, New Rectangle(0, 0, 400, 200), 0, 360)

复杂的就是      g.DrawBezier()

等  如果你用的是 VS的  编译  上面都有详细的参数说明

Dim d As New Bitmap(Me.Width, Me.Height)

Dim g As Graphics = Graphics.FromImage(d)

g.DrawArc(Pens.Black, New Rectangle(0, 0, 200, 200), 0, 360)

g.DrawLine(Pens.Red, New Point(0, 0), New Point(200, 200))

g.DrawLines(Pens.Green, New Point() {New Point(0, 0), New Point(50, 40), New Point(50, 80), New Point(90, 70), New Point(100, 400)})

g.DrawBezier(Pens.Yellow, New Point(0, 100), New Point(0, 0), New Point(200, 0）， New Point(200, 200))

g.Dispose()

Me.BackgroundImage = d