189 8069 5689

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://jkwzsj.com/article/hgjpos.html

其他资讯