vb.net繪統(tǒng)計圖 c# 統(tǒng)計圖表

vb.net2005怎么做曲線統(tǒng)計圖啊。

畫餅圖的例子,

貴德網站制作公司哪家好,找創(chuàng)新互聯!從網頁設計、網站建設、微信開發(fā)、APP開發(fā)、響應式網站建設等網站項目制作,到程序開發(fā),運營維護。創(chuàng)新互聯2013年至今到現在10年的時間,我們擁有了豐富的建站經驗和運維經驗,來保證我們的工作的順利進行。專注于網站建設就選創(chuàng)新互聯。

Me.LoadDriveInfo(DrivesOnPc.Items(DrivesOnPc.SelectedIndex)) 計算比例大小

Me.Invalidate() 觸發(fā)窗體繪圖

'窗體畫圖(餅圖)

Private Sub form3_paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint

'設定RECTANGLE結構變量,確定畫圖的范圍及大小

Dim rect As Rectangle = New Rectangle(280, 20, 200, 200)

Dim rect2 As Rectangle = New Rectangle(270, 10, 400, 320)

Dim freelegend As Rectangle = New Rectangle(280, 300, 20, 20)

Dim usedlegend As Rectangle = New Rectangle(280, 275, 20, 20)

e.Graphics.DrawRectangle(Pens.Black, rect2)

e.Graphics.DrawLine(Pens.Black, 270, 260, 670, 260)

If Me.isSpaceInfoVailable = True Then

'填充橢圓圖像(角度)

e.Graphics.FillPie(Brushes.Magenta, rect, 0, Sweep)

e.Graphics.FillPie(Brushes.Blue, rect, Sweep, 360 - Sweep)

'填充方形

e.Graphics.FillRectangle(Brushes.Magenta, freelegend)

e.Graphics.FillRectangle(Brushes.Blue, usedlegend)

e.Graphics.DrawString(

vb.net讀取txt的數據作圖問題

一、分析:

1,這一類隨時間而變化的曲線圖,通常把橫軸作為時間,把縱軸作為相應的值,在這里就是密度值。

2,點的集合就是線;一組時間、密度值,對應一個點,把點連接起來就構成了線。

二、在VB.NET中作圖,需要知道并解決幾個問題:

1,與VB6一樣,VB.NET中默認的坐標系統(tǒng),左上角為坐標原點,X軸的正向為從左向右,Y軸的正向是從上向下。

為了使得它與數學中的坐標系統(tǒng)相一致,可以使用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所劃的矩形區(qū)域內

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

'繪制一個空心圓,該圓在:直線x=200,y=200,x=200+100,y=200+100所劃的矩形區(qū)域內

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)

VB.net中如何畫圖?

VB.net與VB不同。

VB.net已經有專門繪圖的類。

可以定義筆刷然后用Drawing類中的方法繪制。

Private Sub DrawEllipse()

Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)

Dim formGraphics as System.Drawing.Graphics

formGraphics = Me.CreateGraphics()

formGraphics.DrawEllipse(myPen, New Rectangle(0,0,200,300))

myPen.Dispose()

formGraphics.Dispose()

End Sub

Private Sub DrawRectangle()

Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)

Dim formGraphics as System.Drawing.Graphics

formGraphics = Me.CreateGraphics()

formGraphics.DrawRectangle(myPen, New Rectangle(0,0,200,300))

myPen.Dispose()

formGraphics.Dispose()

End Sub

急?。?!VB.NET按月份數據畫統(tǒng)計圖

用crystal報表,文件——新建文件——crystal報表,然后根據向導建立

文章標題:vb.net繪統(tǒng)計圖 c# 統(tǒng)計圖表
分享網址:http://muchs.cn/article16/docdegg.html

成都網站建設公司_創(chuàng)新互聯,為您提供移動網站建設、靜態(tài)網站App設計、網站策劃軟件開發(fā)、做網站

廣告

聲明:本網站發(fā)布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯

外貿網站建設