vb.net制作折线图纸 折线图制作方法
vb.net绘制曲线图
。net 其实还是很好绘制图形的
10年积累的网站设计制作、做网站经验，可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你，你也不认识我。但先网站设计制作后付款的网站建设流程，更有雷州免费网站建设让你可以放心的选择与我们合作。
你可以看下 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
如何用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做数据折线图
用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做折线图
第一步，输入。这个额不用说了。
第二步，找出最大值和最小值，就可以把纵坐标和数值换算了（或者直接设置坐标系）。
第三步，画出坐标轴。
第四步，画点，拉线。
代码如下：
Const 数据数 = 5
Private Sub Form_Click()
Dim 数据(数据数) As Single, 最大值 As Single, 最小值 As Single
Dim 留边 As Single, 刻度线长度 As Single, 刻度距 As Single
Dim i As Integer, j As Single
Me.AutoRedraw = True
For i = 1 To 数据数
数据(i) = Val(InputBox("请输入第" i "个数据"))
Next i
最大值 = 数据(1)
最小值 = 最大值
For i = 2 To 数据数
If 数据(i) 最大值 Then
最大值 = 数据(i)
ElseIf 数据(i) 最小值 Then
最小值 = 数据(i)
End If
Next i
留边 = (最大值 - 最小值) * 0.1
If 最大值 0 And 最小值 0 Then
最小值 = 0
ElseIf 最大值 0 And 最小值 0 Then
最大值 = 0
End If
最大值 = 最大值 + 留边
最小值 = 最小值 - 留边
Me.Scale (-1, 最大值)-(数据数 + 1, 最小值)
Line (0, 最小值)-(0, 最大值)
刻度线长度 = 数据数 / 50
CurrentX = CurrentX + 刻度线长度
Print "Y"
Line (-1, 0)-(数据数 + 1, 0)
CurrentX = CurrentX - 数据数 / 50
Print "N"
差值 = 最大值 - 最小值
刻度距 = 10 ^ Int(Log(差值 / 3) / Log(10))
For j = 0 To 最大值 Step 刻度距
Line (0, j)-(刻度线长度, j)
Print j
Next j
For j = 0 To 最小值 Step -刻度距
Line (0, j)-(刻度线长度, j)
Print j
Next j
刻度线长度 = 留边 / 2
For i = 1 To 数据数
Line (i, 刻度线长度)-(i, 0)
Print i
Next i
数据标记半径 = 刻度线长度 / 100
For i = 1 To 数据数 - 1
Line (i, 数据(i))-(i + 1, 数据(i + 1)), vbRed
Circle (i, 数据(i)), 数据标记半径, vbRed
Print 数据(i)
Next i
Circle (数据数, 数据(数据数)), 数据标记半径, vbRed
Print 数据(数据数)
End Sub
vb.net怎么在excle里面生成折线图
你可以通过用VB.net控制excel,让excel生成曲线图,然后利用excelVBA将图输出,最后导入到VB.net就可以了。
分享文章：vb.net制作折线图纸 折线图制作方法
转载注明：http://6mz.cn/article/hgjpos.html