VB點(diǎn)虐 的 使用畫筆在窗體上繪制不同的圖形的代碼

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

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

自己看銷鏈派得了虧賀

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

有關(guān)vb點(diǎn)虐 里的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)建用實(shí)心菱形圖案進(jìn)行繪制，并使用紅色作為前景色，藍(lán)色作為背景色的畫筆

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點(diǎn)虐 繪制實(shí)時溫度曲線

這個要用GDI+畫。要看你點(diǎn)虐 版薯配本。

以下是VS2005中的頃啟一段代碼。

Me.PictureBox1.Height = 450

Me.PictureBox1.Width = 880

Dim gr As Graphics '定義畫布

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

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)

如何用VB.NET畫同心圓

窗體上添加一個按鈕，在該按鈕的單擊事件里編寫代碼如下：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'聲明窗體的Me.CreateGraphics對象

Dim MyGraphics As Graphics = Me.CreateGraphics

Dim Cx As Integer = 150 '圓正哪心的X坐標(biāo)

Dim Cy As Integer = 150 '圓心的Y坐標(biāo)

Dim R As Integer '圓的半徑

'繪制半徑為R的圓

For R = 5 To 100 Step 5

MyGraphics.DrawEllipse(Pens.Black, New Rectangle(Cx - R, Cy - R, 2 * R, 2 * R))

Next

End Sub

‘用黑色畫筆繪制一組同心圓，半徑從5開始，增量為5。

說明：

DrawEllipse是VB.Net的Graphics類的繪制橢圓的方法；他有幾種格式，上面使用的是一種；

DrawEllipse（畫筆的顏色，繪制橢圓所需要悶清碰的矩形區(qū)域）

其中：繪制橢圓所需要的矩形區(qū)域，如果被定義為正方形，就演變成繪制圓，定義該區(qū)域由死個數(shù)值確定，第1個數(shù)值，確定螞談該區(qū)域左上角的X坐標(biāo)，第2個數(shù)值，確定該區(qū)域左上角的Y坐標(biāo)，第3個數(shù)值，確定該區(qū)域的寬度，第4個數(shù)值，確定該區(qū)域的高度。

例如1：

DrawEllipse(Pens.Black, New Rectangle(150, 150, 50, 50))

就是以圓心坐標(biāo)為（100,100），繪制半徑為50 的圓。其實(shí)在VB.NET中，是告訴系統(tǒng)在以左上角坐標(biāo)（150,150），邊長為50的正方形里繪制內(nèi)切圓。理解了是在正方形里繪制內(nèi)切圓，就可以通過數(shù)學(xué)計(jì)算，知道如何繪制了。

同理例如2：

DrawEllipse(Pens.Black, New Rectangle(150, 150, 100, 50))

就是以圓心坐標(biāo)為（100,100），繪制半徑為50 的圓。其實(shí)在VB.NET中，是告訴系統(tǒng)在以左上角坐標(biāo)（150,150），長軸為100，短軸為50的內(nèi)切橢圓。