vb.net趋势图的简单介绍

VB与VB.net各自的优势与区别是什么？

vb.net是vb的升级。

成都创新互联主要从事成都网站制作、成都网站设计、外贸营销网站建设、网页设计、企业做网站、公司建网站等业务。立足成都服务泗阳,十余年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:028-86922220

vb.net基于.net框架，是vb发展的必然趋势。

vb功能非常强大，但是也存在众多的缺点，所以微软才会开发vb.net。

随着时间的发展，vb.net完全取代vb是必然的

VB术语简介

说明下面的代码举例说明了用 Drive 对象来访问驱动器属性：Sub ShowFreeSpace(drvPath) Dim fs, d, s Set fs = CreateObject("Scripting.FileSystemObject") Set d = fs.GetDrive(fs.GetDriveName(drvPath)) s = "Drive " UCase(drvPath) " - " s = s d.VolumeName vbCrLf s = s "Free Space: " FormatNumber(d.FreeSpace/1024, 0) s = s " Kbytes" MsgBox sEnd Sub.

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

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

vb绘制趋势图

方法一：Excel中就可以实现；

方法二：通过VB.net将数据写入到Excel中生成趋势图；

方法三:直接通过VB.net写出这种趋势图。

具体方法可以参考VB.net操作Excel方法:

可用代码：

For i = 0 To iRow - 1

pointXY(i) = "'这里你可以直接放上你的数据点值在X线上

"

pointYY(i) = "'这里你可以直接放上你的数据点值在Y线上

Next

Private Sub DrawRectangle()

Try

Dim oV2Bar As New Graphing.V3.Bar.BarChart()

Dim renderer As New Graphing.V3.Render

PictureBox1.Image = renderer.DrawChart(oV2Bar, Xline,Yline iRow, pointXY, pointYY)

End If

Catch ex As Exception

MsgBox(ex.Message)

Public Class BarChart : Inherits Base.BaseGraph

'This will hold the Bar pieces.

Public BarSliceCollection As New Bar.BarPieceCollection()

Private _Alignment As Base.b_BarTypes = Base.b_BarTypes.HorizontalLeft

Public Property Alignment() As Base.b_BarTypes

Get

Return _Alignment

End Get

Set(ByVal Value As Base.b_BarTypes)

_Alignment = Value

End Set

End Property

'Private _ChartType As Base.b_ChartType = Base.b_ChartType.Bar

Public Shadows ReadOnly Property ChartType() As Base.b_ChartType

Get

Return MyBase.ChartType

End Get

End Property

Sub New()

MyBase.new()

MyBase.ChartType = Base.b_ChartType.Bar

End Sub

Sub New(ByVal BarPieceCollection As BarPieceCollection)

MyBase.new()

MyBase.ChartType = Base.b_ChartType.Bar

BarSliceCollection = BarPieceCollection

End Sub

End Class

End Try

End Sub

vb.net读取txt的数据作图问题

一、分析：

1，这一类随时间而变化的曲线图，通常把横轴作为时间，把纵轴作为相应的值，在这里就是密度值。

2，点的集合就是线；一组时间、密度值，对应一个点，把点连接起来就构成了线。

二、在VB.NET中作图，需要知道并解决几个问题：

1，与VB6一样，VB.NET中默认的坐标系统，左上角为坐标原点，X轴的正向为从左向右，Y轴的正向是从上向下。

为了使得它与数学中的坐标系统相一致，可以使用VB.NET中Graphics类的两个方法；

1、TranslateTransform----平移变换

格式：Graphics.TranslateTransform(dx,dy)

其中：dx 和 dy分别是Single数据类型

2、ScaleTransform----缩放变换

格式：Graphics.ScaleTransform(sx,sy)

其中：sx 和 sy分别是Single数据类型；

例如：为了符合数学中的一般格式，可以使用下述代码：

Graphics.ScaleTransform(1, -1)

这样就把Y轴的正方向给翻过来了。

三、VB.NET中绘制图形

1，绘制圆或椭圆

'绘制图形的三步曲

'1，获得一个Graphics对象

Dim MyGraphics As Graphics

MyGraphics = Me.CreateGraphics

'2，定义一个Pen对象，用于绘制图形（轮廓线）

Dim MyPen As New Pen(Color.Black)

'3，定义一个Brush对象，用于填充图形（如果需要填充的话）

Dim MyBrush As New SolidBrush(Color.Orange)

'绘制一个实心圆，该圆在：直线x=200，y=200，x=200+100，y=200+100所划的矩形区域内

MyGraphics.FillEllipse(Brush, 200, 200, 100, 100)

'绘制一个空心圆，该圆在：直线x=200，y=200，x=200+100，y=200+100所划的矩形区域内

MyGraphics.DrawEllipse(Pen, 200, 200, 100, 100)

注意：最后两个数值如果不等，就是绘制椭圆

当圆足够小，就是点了。

2，绘制直线

'1，获得一个Graphics对象

Dim MyGraphics As Graphics

MyGraphics = Me.CreateGraphics

'2，定义一个Pen对象，用于绘制图形（轮廓线）

Dim MyPen As New Pen(Color.Black)

MyGraphics.DrawLine(MyPen, 200, 200, 100, 100)

'或者直接用

Me.CreateGraphics.DrawLine(New Pen(Color.Black), 50, 50, 200, 200)