vb.net 繪制實(shí)時(shí)溫度曲線(xiàn)

這個(gè)要用GDI+畫(huà)。要看你.net版本。

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

以下是VS2005中的一段代碼。

Me.PictureBox1.Height = 450

Me.PictureBox1.Width = 880

Dim gr As Graphics '定義畫(huà)布

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

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

p.Width = 2 '寬度2

p.DashStyle = Drawing2D.DashStyle.Solid '樣式直線(xiàn)

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

'定義一個(gè)?Graphics對(duì)象

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

Dim?g?As?Graphics

g?=?Me.CreateGraphics

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

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?對(duì)象上

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

End?Sub

End?Class

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

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

自己看得了

這里面說(shuō)的有的可以填充的，是g.FillXXXX

VB.net中如何畫(huà)圖？

VB.net與VB不同。

VB.net已經(jīng)有專(zhuān)門(mén)繪圖的類(lèi)。

可以定義筆刷然后用Drawing類(lèi)中的方法繪制。

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 畫(huà)圖 如何保持圖形

不用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)?????'定義紅色畫(huà)筆??

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

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