用vb点虐 可以做出饼图吗

Dim MyGraphics As Graphics = Me.PictureBox1.CreateGraphics

“只有客户发展了，才有我们的生存与发展！”这是创新互联的服务宗旨！把网站当作互联网产品，产品思维更注重全局思维、需求分析和迭代思维，在网站建设中就是为了建设一个不仅审美在线，而且实用性极高的网站。创新互联对网站制作、成都网站建设、网站制作、网站开发、网页设计、网站优化、网络推广、探索永无止境。

Dim MyBrush As New SolidBrush(Color.Red)

Dim MyProportion As Single

Dim MyRect As New Rectangle

Dim MyPoint As New PointF

Dim R As Single

Const PI = 3.1415926

MyGraphics.Clear(Color.White)

Dim MyStartAngel As Double

Dim MySweepAngel As Double

R = Math.Min(Me.PictureBox1.Width, Me.PictureBox1.Height) / 2 - 15

MyPoint.X = Me.PictureBox1.Width / 2

MyPoint.Y = Me.PictureBox1.Height / 2

MyRect.X = MyPoint.X - R

MyRect.Y = MyPoint.Y - R

MyRect.Width = R * 2

MyRect.Height = R * 2

MyStartAngel = 0

MyProportion = Val(TextBox7.Text)

MySweepAngel = MyProportion * 360 / PI

MyBrush.Color = Color.Red

MyGraphics.FillPie(MyBrush, MyRect, MyStartAngel, MySweepAngel)

' MyStartAngel = MyStartAngel + MySweepAngel

MyProportion = 0.75

MySweepAngel = 360 * MyProportion

MyBrush.Color = Color.Blue

MyGraphics.FillPie(MyBrush, MyRect, MyStartAngel, MySweepAngel)

vb点虐 中怎样曲线图，棒图，和饼图

vb2010以后的版本就自带Chart控件了，比如

Chart1.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Pie '饼图

用VB中的mschart控件画一个饼状图，要怎么画？

先在“部件”里选上“Microsoft Chart Control 6.0”，并添加一个MSChart1。

Private Sub Form_Load()

With MSChart1

.chartType = VtChChartType2dPie '表示饼图

.ColumnCount = 3 '这里是每个饼图的数据个数

.ColumnLabel = "你的数据名称"

.RandomFill = True '暂且用随机数填图，数据请自己输入

.RowCount = 2 '你说的“画两部分的饼状图就成”

.RowLabel = "你的数据标签"

.TitleText = "你的图表名称"

End With

End Sub

分享名称：vb点虐 饼状图 c#画饼状图
分享路径：http://pwwzsj.com/article/ddihihh.html