vb.net直方图,直方图c语言

求助：如何在VB中将datagrid中的数据做成曲线

在VB5中生成统计图形

发展壮大离不开广大客户长期以来的信赖与支持，我们将始终秉承“诚信为本、服务至上”的服务理念，坚持“二合一”的优良服务模式，真诚服务每家企业，认真做好每个细节，不断完善自我，成就企业，实现共赢。行业涉及成都石牌坊等，在成都网站建设、成都全网营销、WAP手机网站、VI设计、软件开发等项目上具有丰富的设计经验。

在用VB5进行数据库编程时，经常要生成统计图形。生成的方法有很多种，最

简单的是利用VB5提供的MSChart控件。具体操作方法如下：

1.首先在VB5“工程”→“部件”中找到“Microsoft Chart Control5.0”项，

选中并应用，此时在工具面板中出现MSChart控件图标。选中它并在新工程的Form1

中画一矩形，生成MSChart1,即出现缺省状态的直方图。设其ColumnCount属性为1。

2.利用Access或VB5的可视化数据管理器生成一个example.mdb的数据库，在其

中建一名为temp的数据表，包含“日期”和“数据”两个字段，并在表中输入一些

记录。

3.在Form1中生成一个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〃请在数据库中输入数据!〃，vbCritical

Exit sub

End if

With MSChart1

.TitleText=〃直方图示例〃

.RowCount=NewDyn.ReordCount

For i=1 to NewDyn.RecordCount

.Row=i

.Data=NewDyn.Fields(〃数据〃)

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

NewDyn.MoveNext

Next i

End With

NewDyn.Close

4.运行时按Command1键即可生成统计图表了。

如果想生成其他类型的图形，修改MSChart1的属性即可定制成其他各种二维或三维

图表。

VB.net2008 NET 3.5 SP1，Chart控件的图表类型修改

1、检查一下是不是序列的名称不对应，进行了修改，不是默认的"Series1"；

3、修改正确或是没有错误时可全部重新生成一次看看。

希望对你有帮助，还有疑问请追问或是Hi

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