求助：如何在VB中將datagrid中的數(shù)據(jù)做成曲線

在VB5中生成統(tǒng)計(jì)圖形

發(fā)展壯大離不開廣大客戶長期以來的信賴與支持，我們將始終秉承“誠信為本、服務(wù)至上”的服務(wù)理念，堅(jiān)持“二合一”的優(yōu)良服務(wù)模式，真誠服務(wù)每家企業(yè)，認(rèn)真做好每個(gè)細(xì)節(jié)，不斷完善自我，成就企業(yè)，實(shí)現(xiàn)共贏。行業(yè)涉及成都石牌坊等，在成都網(wǎng)站建設(shè)、成都全網(wǎng)營銷、WAP手機(jī)網(wǎng)站、VI設(shè)計(jì)、軟件開發(fā)等項(xiàng)目上具有豐富的設(shè)計(jì)經(jīng)驗(yàn)。

在用VB5進(jìn)行數(shù)據(jù)庫編程時(shí)，經(jīng)常要生成統(tǒng)計(jì)圖形。生成的方法有很多種，最

簡單的是利用VB5提供的MSChart控件。具體操作方法如下：

1.首先在VB5“工程”→“部件”中找到“Microsoft Chart Control5.0”項(xiàng)，

選中并應(yīng)用，此時(shí)在工具面板中出現(xiàn)MSChart控件圖標(biāo)。選中它并在新工程的Form1

中畫一矩形，生成MSChart1,即出現(xiàn)缺省狀態(tài)的直方圖。設(shè)其ColumnCount屬性為1。

2.利用Access或VB5的可視化數(shù)據(jù)管理器生成一個(gè)example.mdb的數(shù)據(jù)庫，在其

中建一名為temp的數(shù)據(jù)表，包含“日期”和“數(shù)據(jù)”兩個(gè)字段，并在表中輸入一些

記錄。

3.在Form1中生成一個(gè)Command1按鈕，然后在Private Sub Command1_click()

中寫入以下代碼：

dim i as integer

dim NewDyn as recordset

dim OpenWs as Workspace

dim OpenDB as DataBase

set OpenWs=DBengine.Workspaces(0)

set OpenDB=OpenWs.Opendatabase(app.path ＆ 〃\example.mdb〃)

set NetDyn=OpenDB.Openrecordset(〃select ＊ from temp〃,dbOpenSnapShot)

NewDyn.MoveLast

NewDyn.Movefirst

If NewDyn.RecordCount=0 then

Msgbox〃請(qǐng)?jiān)跀?shù)據(jù)庫中輸入數(shù)據(jù)!〃，vbCritical

Exit sub

End if

With MSChart1

.TitleText=〃直方圖示例〃

.RowCount=NewDyn.ReordCount

For i=1 to NewDyn.RecordCount

.Row=i

.Data=NewDyn.Fields(〃數(shù)據(jù)〃)

.Rowlabel=NewDyn.Fields(〃日期〃)

NewDyn.MoveNext

Next i

End With

NewDyn.Close

4.運(yùn)行時(shí)按Command1鍵即可生成統(tǒng)計(jì)圖表了。

如果想生成其他類型的圖形，修改MSChart1的屬性即可定制成其他各種二維或三維

圖表。

VB.net2008 NET 3.5 SP1，Chart控件的圖表類型修改

1、檢查一下是不是序列的名稱不對(duì)應(yīng)，進(jìn)行了修改，不是默認(rèn)的"Series1"；

3、修改正確或是沒有錯(cuò)誤時(shí)可全部重新生成一次看看。

希望對(duì)你有幫助，還有疑問請(qǐng)追問或是Hi

VB.net中如何畫圖？

VB.net與VB不同。

VB.net已經(jīng)有專門繪圖的類。

可以定義筆刷然后用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