vb.net繪制曲線圖

。net ?其實還是很好繪制圖形的

創(chuàng)新互聯(lián)公司堅持“要么做到，要么別承諾”的工作理念，服務領域包括：網站制作、成都做網站、企業(yè)官網、英文網站、手機端網站、網站推廣等服務，滿足客戶于互聯(lián)網時代的安鄉(xiāng)網站設計、移動媒體設計的需求，幫助企業(yè)找到有效的互聯(lián)網解決方案。努力成為您成熟可靠的網絡建設合作伙伴！

你可以看下?Graphics ?類

Dim d As New Bitmap(Me.Width, Me.Height) ?‘一個圖片吧

? Dim g As Graphics = Graphics.FromImage(d)’繪制 ?準備在這個圖片是進行

然后 ?就是你繪制的東西了

線 就是 ??g.DrawLine()

圓 弧度 ?就用 ?g.DrawArc(Pens.Black, New Rectangle(0, 0, 400, 200), 0, 360)

復雜的就是 ? ? ?g.DrawBezier()

等 ?如果你用的是 VS的 ?編譯 ?上面都有詳細的參數說明

Dim?d?As?New?Bitmap(Me.Width,?Me.Height)

Dim?g?As?Graphics?=?Graphics.FromImage(d)

g.DrawArc(Pens.Black,?New?Rectangle(0,?0,?200,?200),?0,?360)

g.DrawLine(Pens.Red,?New?Point(0,?0),?New?Point(200,?200))

g.DrawLines(Pens.Green,?New?Point()?{New?Point(0,?0),?New?Point(50,?40),?New?Point(50,?80),?New?Point(90,?70),?New?Point(100,?400)})

g.DrawBezier(Pens.Yellow,?New?Point(0,?100),?New?Point(0,?0),?New?Point(200,?0），?New?Point(200,?200))

g.Dispose()

Me.BackgroundImage?=?d

vb.net 繪圖，重繪知識

繼承（Inherits）控件就可以重寫它的屬性和方法，圖標可以在paint中重繪，用gdi，工具主要在drawing和drawing2d中。

combobox彈出的框增加圖標嗎？個人看法可能需要得到那個句柄，才可以重繪，但那個好像是一體的，不知道能不能弄到句柄。

textbox可以自定義高度。只是以行高度為單位，改變字體大小即可，沒必要重寫吧。

我也自學，感覺基礎容易學，進階資料少。循序漸進也沒序可循，基本是在摸索。

都是想到什么問題，就立下一個目標，然后攻破他，結果可能是嘗試幾天后，發(fā)現(xiàn)目標超出能力范圍。

晦澀是相對的，實踐出真知，多動手，基礎就好了。

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

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

首先添加一個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

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

VB.net中如何畫圖？

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