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
网站题目:vb.net直方图,直方图c语言
路径分享:http://ybzwz.com/article/dsscphd.html