快上网专注成都网站设计 成都网站制作 成都网站建设
成都网站建设公司服务热线:028-86922220

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决

vb点虐 饼状图 c#画饼状图

用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://6mz.cn/article/ddihihh.html

其他资讯