建站
咨詢
售后
建站咨詢
新聞中心
vb 用MSChart 控件或者pictureBOX 控件如何做 趨勢圖 麻煩給我詳細(xì)點的 質(zhì)料 第一次弄VB
趨勢圖一般是橫向表示時間進(jìn)度，縱向表示數(shù)值表示，把下面的代碼拷貝到窗體代碼中，運(yùn)行即可，多改動一下里面的數(shù)據(jù)試試，很快就可以弄明白了
成都創(chuàng)新互聯(lián)-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設(shè)、高性價比烏審網(wǎng)站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式烏審網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設(shè)找我們，業(yè)務(wù)覆蓋烏審地區(qū)。費用合理售后完善，10多年實體公司更值得信賴。
Private Sub Form_Load()
Dim arrData(1 To 12, 1 To 2)
Dim i As Integer
For i = 1 To 12
arrData(i, 1) = i "月"
Randomize
arrData(i, 2) = Rnd * 1000
Next i
MSChart1.ChartData = arrData
MSChart1.chartType = VtChChartType2dLine
End Sub
vb.net 通過查詢數(shù)據(jù)庫里結(jié)果的范圍，利用chart繪制折線圖
你想說什么？？你可以將數(shù)據(jù)庫里面查詢出來的結(jié)果保存在dataset中，直接賦值給chart的datasource。自動生成折線！
vb.net繪制曲線圖
。net ?其實還是很好繪制圖形的
你可以看下?Graphics ?類
Dim d As New Bitmap(Me.Width, Me.Height) ?‘一個圖片吧
? Dim g As Graphics = Graphics.FromImage(d)’繪制 ?準(zhǔn)備在這個圖片是進(jìn)行
然后 ?就是你繪制的東西了
線 就是 ??g.DrawLine()
圓 弧度 ?就用 ?g.DrawArc(Pens.Black, New Rectangle(0, 0, 400, 200), 0, 360)
復(fù)雜的就是 ? ? ?g.DrawBezier()
等 ?如果你用的是 VS的 ?編譯 ?上面都有詳細(xì)的參數(shù)說明
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.net中有沒有好用的圖表控件？免費的，能畫折線圖的
TeeChart5
這個畫圖表很不錯。。
百度一下一大堆下載的。
vb繪制趨勢圖
方法一：Excel中就可以實現(xiàn)；
方法二：通過VB.net將數(shù)據(jù)寫入到Excel中生成趨勢圖；
方法三:直接通過VB.net寫出這種趨勢圖。
具體方法可以參考VB.net操作Excel方法:
可用代碼：
For i = 0 To iRow - 1
pointXY(i) = "'這里你可以直接放上你的數(shù)據(jù)點值在X線上
"
pointYY(i) = "'這里你可以直接放上你的數(shù)據(jù)點值在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好看的趨勢圖的詞條
標(biāo)題鏈接：http://www.dlmjj.cn/article/docseei.html
