重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
MSChart1.Plot.SeriesCollection.Item(1).Pen.VtColor.Set 0, 255, 0 '设置曲线颜色
创新互联建站始终坚持【策划先行,效果至上】的经营理念,通过多达十多年累计超上千家客户的网站建设总结了一套系统有效的营销解决方案,现已广泛运用于各行各业的客户,其中包括:格栅板等企业,备受客户赞赏。
MSChart1.Plot.SeriesCollection.Item(2).Pen.VtColor.Set 0, 80, 0 '设置曲线颜色
MSChart1.Plot.SeriesCollection.Item(3).Pen.VtColor.Set 0, 0, 255
MSChart1.Plot.SeriesCollection.Item(4).Pen.VtColor.Set 0, 0, 255
1、菜单中的工程-部件-添加"Microsoft ADO Data Control 6.0 (OLEDB)"和"Microsoft Chart Control 6.0 (OLEDB)"
2、在窗体中添加ADODC和MSChart并设置ADODC的数据源连接(查询或表)和MSChart的图表类型(直方图、饼图等)和DataSource属性为Adodc1
3、剩下的用语句对应好就差不多了。
补充:Visual Basic是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。从任何标准来说,VB都是世界上使用人数最多的语言——不仅是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面(GUI)和快速应用程序开发(RAD)系统,可以轻易的使用DAO、RDO、ADO连接数据库,或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。
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
你应该填充这个矩形,比如说在你画的矩形上填充蓝色,要加上下面的语句
Dim myBrush As New SolidBrush(Color.Blue)
e.Graphics.FillRectangle(myBrush, 10,10, 100,100)
这不叫直方图,这是散点图,可以用picturebox的画线line()或画点pset()来实现。