用vb.net可以做出餅圖嗎

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)

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

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

VB.Net如何實現摳圖并繪圖

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

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

'上位機控制

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重畫時的處理函數

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

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

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

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

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

當前文章：vb.net餅圖 餅圖用于顯示什么數據
轉載來于：http://www.2m8n56k.cn/article46/dojioeg.html

成都網站建設公司_創新互聯，為您提供網站維護、移動網站建設、網站內鏈、品牌網站制作、Google、做網站

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：[email protected]。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯