vb.net 繪制實時溫度曲線

這個要用GDI+畫。要看你.net版本。

茄子河網(wǎng)站制作公司哪家好，找創(chuàng)新互聯(lián)公司！從網(wǎng)頁設(shè)計、網(wǎng)站建設(shè)、微信開發(fā)、APP開發(fā)、成都響應(yīng)式網(wǎng)站建設(shè)公司等網(wǎng)站項目制作，到程序開發(fā)，運營維護。創(chuàng)新互聯(lián)公司成立與2013年到現(xiàn)在10年的時間，我們擁有了豐富的建站經(jīng)驗和運維經(jīng)驗，來保證我們的工作的順利進行。專注于網(wǎng)站建設(shè)就選創(chuàng)新互聯(lián)公司。

以下是VS2005中的一段代碼。

Me.PictureBox1.Height = 450

Me.PictureBox1.Width = 880

Dim gr As Graphics '定義畫布

Dim bp As New Bitmap(880, 450) '定義位圖,并進行賦值

Dim p As New Pen(Color.Black) '定義畫筆

p.Width = 2 '寬度2

p.DashStyle = Drawing2D.DashStyle.Solid '樣式直線

PictureBox1.Image = bp

gr = Graphics.FromImage(PictureBox1.Image)

gr.FillRectangle(Brushes.White, New Rectangle(0, 0, PictureBox1.Width, PictureBox1.Height))

gr.DrawLine(p, a, b, a, .Height - b) '繪制縱坐標(biāo)

gr.DrawLine(p, a, .Height - b, .Width - a, .Height - b) '繪制橫坐標(biāo)

有關(guān)vb.net里的hatchbrush

Imports?System.Drawing.Drawing2D

Public?Class?Form1

Private?Sub?Form1_Click(ByVal?sender?As?Object,?ByVal?e?As?System.EventArgs)?Handles?Me.Click

'定義一個?Graphics對象

'調(diào)用窗體的CreateGraphics?方法創(chuàng)建?Graphics?對象

Dim?g?As?Graphics

g?=?Me.CreateGraphics

'創(chuàng)建用實心菱形圖案進行繪制，并使用紅色作為前景色，藍色作為背景色的畫筆

Dim?aHatchBrush?As?HatchBrush?=?New?HatchBrush(HatchStyle.SolidDiamond,?Color.Red,?Color.Blue)

'創(chuàng)建矩形的位置和大小

Dim?x?As?Integer?=?0

Dim?y?As?Integer?=?0

Dim?width?As?Integer?=?150

Dim?height?As?Integer?=?200

'調(diào)用圖形方法FillRectangle?將定義的矩形繪制到創(chuàng)建Graphics?對象上

g.FillRectangle(aHatchBrush,?x,?y,?width,?height)

End?Sub

End?Class

VB.net的 使用畫筆在窗體上繪制不同的圖形的代碼

首先引入System.Drawing和System.Drawing.Drawing2D

自己看得了

這里面說的有的可以填充的，是g.FillXXXX

VB.net中如何畫圖？

VB.net與VB不同。

VB.net已經(jīng)有專門繪圖的類。

可以定義筆刷然后用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

vb.net 畫圖 如何保持圖形

不用PictureBoxTest.Image屬性，直接把圖形繪制到PictureBoxTest上面就可以了。

Dim?button?As?Integer?=?0

Private?Sub?Button1_Click(ByVal?sender?As?Object,?ByVal?e?As?EventArgs)?_

Handles?Button1.Click

Using?g?As?Graphics?=?Graphics.FromHwnd(PictureBoxTest.Handle)

Dim?penRed?As?Pen?=?New?Pen(Color.Red,?1)?????'定義紅色畫筆??

Dim?penblue?As?Pen?=?New?Pen(Color.Blue,?1)?'定義藍色畫筆?

If?button?=?0?Then

g.DrawLine(penRed,?0,?0,?100,?100)

button?=?1

ElseIf?button?=?1?Then

g.DrawLine(penblue,?100,?100,?200,?200)

button?=?0

End?If

End?Using

End?Sub