快上网专注成都网站设计 成都网站制作 成都网站建设
成都网站建设公司服务热线:028-86922220

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决

vb.net画折线示例的简单介绍

如何用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 画折线图

'我的数据是随机生成的,方法就是这样啦,你参考,希望对你有帮助:

'我是在窗体上画的,在图片中也是一样的,本例仅作演示

Option Explicit

Private Sub Form_click()

Cls

Dim i, j As Single

Me.Scale (-1, 10)-(25, -1) '定义坐标系,原点靠近左下角

Line (-1, 0)-(25, 0) '画x轴

Line (0, -1)-(0, 10) '画Y轴

For i = -1 To 25 Step 1 '画X轴刻度

If i 0 Then

Line (i, 0)-(i, 0.2)

CurrentX = i - 0.3: CurrentY = -0.2

Print i

End If

Next

For j = -1 To 10 '画Y轴刻度

If j 0 Then

Line (0, j)-(0.3, j)

CurrentX = -0.7: CurrentY = j + 0.1

Print j

End If

Next

CurrentX = -0.4: CurrentY = -0.2

Print "0" '画原点

CurrentX = 0.5: CurrentY = 9.5

Print "Y"

CurrentX = 24: CurrentY = 0.5

Print "X"

Randomize

CurrentX = 1: CurrentY = Format(Rnd * 10, "0.00")

For i = 2 To 24

Line -(i, Format(Rnd * 10, "0.00")) '这里是随机生成的数据!

Next

End Sub

'==================下面在图片框中画图,单击图片框即可绘制==========

Option Explicit

Private Sub Form_load()

Picture1.Move 0, 0, Me.Width, Me.Height

Picture1.AutoRedraw = True

End Sub

Private Sub Form_Resize()

Picture1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight

Picture1_Click

End Sub

Private Sub Picture1_Click()

Picture1.Cls

Dim i, j As Single

Picture1.Scale (-1, 10)-(25, -1) '定义坐标系,原点靠近左下角

Picture1.Line (-1, 0)-(25, 0) '画x轴

Picture1.Line (0, -1)-(0, 10) '画Y轴

For i = -1 To 25 Step 1 '画X轴刻度

If i 0 Then

Picture1.Line (i, 0)-(i, 0.2)

Picture1.CurrentX = i - 0.3: Picture1.CurrentY = -0.2

Picture1.Print i

End If

Next

For j = -1 To 10 '画Y轴刻度

If j 0 Then

Picture1.Line (0, j)-(0.3, j)

Picture1.CurrentX = -0.7: Picture1.CurrentY = j + 0.1

Picture1.Print j

End If

Next

Picture1.CurrentX = -0.4: Picture1.CurrentY = -0.2

Picture1.Print "0" '画原点

Picture1.CurrentX = 0.5: Picture1.CurrentY = 9.5

Picture1.Print "Y"

Picture1.CurrentX = 24: Picture1.CurrentY = 0.5

Picture1.Print "X"

Randomize

Picture1.CurrentX = 1: Picture1.CurrentY = Format(Rnd * 10, "0.00")

For i = 2 To 24

Picture1.Line -(i, Format(Rnd * 10, "0.00")) '这里是随机生成的数据!

Next

End Sub

如何使用VB画折线图

一个例子:

窗体上有一个按钮 一个能显示折线图的控件(我不大知道应该用哪个控件)

现有十二个数 设其为13-24

点击按钮时图片显示为一折线图 折线图为十二个点的连线 (1,13)(2,14)(3,15)(4,16)(5,17).....(12,24)

请教如何编写程序

回答:

控件用MsChart,在Microsoft Chart Control 6.0(OLEDB)。

Private Sub Form_Load()

Dim CData(1 To 2, 1 To 24) As Variant

mctChart.chartType = VtChChartType2dLine

For i=1 To 12

CData(1,i)=i '1代表第一个数据

Next i

For i=13 To 24 '2代表第二个数据

CData(2,i)=i

Next i

mctChart.ChartData = CData

End Sub

参考资料:


名称栏目:vb.net画折线示例的简单介绍
本文地址:http://6mz.cn/article/hgdhps.html

其他资讯