用vb.net可以做出餅圖嗎

Dim MyGraphics As Graphics = Me.PictureBox1.CreateGraphics

創(chuàng)新互聯(lián)服務項目包括麗水網(wǎng)站建設、麗水網(wǎng)站制作、麗水網(wǎng)頁制作以及麗水網(wǎng)絡營銷策劃等。多年來，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術優(yōu)勢、行業(yè)經(jīng)驗、深度合作伙伴關系等，向廣大中小型企業(yè)、政府機構等提供互聯(lián)網(wǎng)行業(yè)的解決方案，麗水網(wǎng)站推廣取得了明顯的社會效益與經(jīng)濟效益。目前，我們服務的客戶以成都為中心已經(jīng)輻射到麗水省份的部分城市，未來相信會繼續(xù)擴大服務區(qū)域并繼續(xù)獲得客戶的支持與信任！

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)

我想問下，講數(shù)據(jù)保存到excel中后，如何在VB.net中繼續(xù)寫代碼，使得能夠將這些數(shù)據(jù)生成一個餅圖？并保存。

用宏功能啊，然后把宏代碼（vb6.0）轉化為Vb.net代碼，有一個關鍵問題，就是VBA中的枚舉類型在Vb.net中不適用，比如.End(xlUp)更改為.End(3)就能運行，另外vb.net中運行Excel對象不一定在點后會出現(xiàn)智能提示（即使你引用后也一樣）你只要確定有該方法或者屬性，直接寫就是了，生成或者調(diào)試都是可以通過的

VB.Net如何實現(xiàn)摳圖并繪圖

項目中要用圖形來顯示一個閥門的開度，以及控制閥的開度。本來是要用什么公司買的控件中的餅圖之類的實現(xiàn)，不過我覺得也是麻煩，就想，還是自己畫吧。

首先添加一個TrackBar，名字是“TrackBar1”，一個label，名字是“L_A_SHANG”，一個GroupBox，名字是“GB_RIGHT”,，然后添加拉動滾動條時的處理函數(shù)

'上位機控制

Dim m_start As Integer

Dim RcDraw As System.Drawing.Rectangle

Private Sub TrackBar1_Scroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll

m_start = (100 - TrackBar1.Value)

Me.L_A_SHANG.Text = Me.TrackBar1.Value.ToString

GB_RIGHT.Invalidate() '重畫GB_RIGHT

End Sub

添加GB_RIGHT重畫時的處理函數(shù)

Private Sub GB_RIGHT_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles GB_RIGHT.Paint

RcDraw.X = TrackBar1.Location.X - 40

RcDraw.Y = 20

RcDraw.Height = 100

RcDraw.Width = 20

e.Graphics.DrawRectangle(New Pen(Color.Blue, 5), RcDraw)

Dim i = TrackBar1.Location.X - 40

For i = TrackBar1.Location.X - 40 To TrackBar1.Location.X - 20

e.Graphics.DrawLine(New Pen(Color.Blue, 5), i, m_start + 20, i, 120)

Next

Me.L_A_SHANG.Text = Me.TrackBar1.Value.ToString + "%"

End Sub

到此以及可以實現(xiàn)拉動條的時候，圖像跟著變化，并顯示百分比。

vb.net中怎樣曲線圖，棒圖，和餅圖

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

Chart1.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Pie '餅圖

當前文章：vb.net餅圖 餅圖用于顯示什么數(shù)據(jù)
轉載來于：http://chinadenli.net/article46/dojioeg.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站維護、移動網(wǎng)站建設、網(wǎng)站內(nèi)鏈、品牌網(wǎng)站制作、Google、做網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉載內(nèi)容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯(lián)