圖形應(yīng)用程序設(shè)計(jì)

圖形應(yīng)用程序設(shè)計(jì)本章要學(xué)習(xí)的繪圖對(duì)象顏色對(duì)象color畫布對(duì)象graphics畫筆對(duì)象pen筆刷對(duì)象brushes顏色對(duì)象Color用Color.FromArgb()設(shè)置顏色

使用該方法設(shè)置顏色是匯集透明程度、紅色光、綠色光、藍(lán)色光等四道不同性質(zhì)的光線的調(diào)色效果，語法如下：

Color.FromArgb([A,]R,G,B)1、說明：A代表不透明度，從0至255共分成256個(gè)程度，數(shù)值越小代表越透明；數(shù)值越大代表越不透明。其中0代表完全透明，255代表完全不透明。A的默認(rèn)值為255。2、R,G,B：三個(gè)量分別代表紅、綠、藍(lán)顏色光的強(qiáng)度，每個(gè)顏色值分別從0至255共分成256個(gè)強(qiáng)度，數(shù)值越大表示該顏色光越強(qiáng)。例：將picturebox1控件的背景色設(shè)成紫色Picturebox1.backcolor=color.fromArgb(255,0,255)取出Color的（A,R,G,B）自變量值語法：A=對(duì)象Color.AR=對(duì)象Color.RG=對(duì)象Color.GB=對(duì)象Color.B例：取出PictureBox1控件背景色的R自變量值。R=Picturebox1.BackColor.R練習(xí)：指出圖片控件Picturebox背景色的顏色構(gòu)成（A,R,G,B）－－－Form1_Paint－－－

DimA,R,G,BAsIntegerA=PictureBox1.BackColor.AR=PictureBox1.BackColor.RG=PictureBox1.BackColor.GB=PictureBox1.BackColor.BLabel1.Text="目前顏色設(shè)置值："&vbNewLine&"ARGB("&A&","&R&","&G&","&B&")"EndSub練習(xí)：接上例增加調(diào)色功能，使能在picturebox控件中顯示調(diào)色動(dòng)態(tài)。

DimA,R,G,BAsIntegerSubshowARGB()A=PictureBox1.BackColor.AR=PictureBox1.BackColor.RG=PictureBox1.BackColor.GB=PictureBox1.BackColor.BLabel1.Text="目前顏色設(shè)置值："&vbNewLine&"ARGB("&A&","&R&","&G&","&B&")"Label2.Text="A="&ALabel3.Text="R="&RLabel4.Text="G="&GLabel5.Text="B="&BEndSubPrivateSubTrackBar_Scroll(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTrackBar1.Scroll,TrackBar2.Scroll,TrackBar3.Scroll,TrackBar4.ScrollA=TrackBar1.ValueR=TrackBar2.ValueG=TrackBar3.ValueB=TrackBar4.ValuePictureBox1.BackColor=Color.FromArgb(A,R,G,B)CallshowARGB()EndSub用Color列舉設(shè)置顏色

使用Color列舉可以直接指定系統(tǒng)定義的顏色，這些被定義的顏色都是用英文來命名的，超過140個(gè)，常用的名稱有red,green,blue,yellow,brown,white,black等。例：將Button1控件的背景色設(shè)置成粉紅色。

button1.backColor=color.pink練習(xí)：接上例,增加設(shè)置為指定顏色功能，即按了有顏色的按鈕時(shí)，使picturebox1控件內(nèi)顯示按鈕的顏色，軌跡棒也自動(dòng)跟著移動(dòng)。－－－Form1_Paint－－－

Button1.BackColor=Color.FirebrickButton2.BackColor=Color.BurlyWoodButton3.BackColor=Color.LinenButton4.BackColor=Color.OrchidButton5.BackColor=Color.KhakiPrivateSub

Button_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click,Button2.Click,Button3.Click,Button4.Click,Button5.ClickPictureBox1.BackColor=

sender.backcolorCallshowARGB()EndSub畫布對(duì)象Graphics聲明與建立畫布對(duì)象

一般在繪圖時(shí)，需要一塊畫布供畫家作畫。語法：

dim畫布對(duì)象asgraphics

畫布對(duì)象=對(duì)象（控件）.CreateGraphics()或：dim畫布對(duì)象asgraphics=對(duì)象(控件).CreateGraphics()例：在窗體內(nèi)建立一個(gè)名叫g(shù)的畫布對(duì)象

dimgasgraphicsg=form1.CreateGraphics()或：

dimgasgraphics=form1.CreateGraphics()例2：清理目前在圖片框picShow控件上所繪制的圖形。

PicShow.refresh()

刪除畫布對(duì)象

例：將畫布對(duì)象g從主存儲(chǔ)器中刪除。

g.dispose()畫筆對(duì)象pen聲明和建立畫筆對(duì)象

dim畫筆對(duì)象asnewpen(顏色[,粗細(xì)])或:dim畫筆對(duì)象aspen

畫筆對(duì)象=asnewpen(顏色[,粗細(xì)])

例：dimpasnewpen(color.green,5)說明：1、若省略粗細(xì)，默認(rèn)為1pixel。

2、畫筆對(duì)象顏色和粗細(xì)可用下列語法重新設(shè)置。

畫筆對(duì)象.color=顏色畫筆對(duì)象.width=粗細(xì)例:

p.color=color.fromArgb(128,55,0,255)

p.width=3

繪制直線：drawLine方法語法：畫布對(duì)象.drawLine(畫筆對(duì)象，x1,y1,x2,y2)說明：(x1,y1)是直線的起點(diǎn)坐標(biāo)，(x2,y2)是直線的終點(diǎn)坐標(biāo)。例：在畫布對(duì)象g上用畫筆p繪制坐標(biāo)(100,50)到(200，270)之間的直線。

dimpasnewpen(color,green,5)g.drawline(p,100,150,200,270)或：

g.drawline(newpen(color.green,5),100,150,200,270)繪制矩形：drawRectangle方法語法：

Dim矩形對(duì)象asnewrectangle(x,y,w,h)

畫布對(duì)象.drawRectangle(畫筆對(duì)象，矩形對(duì)象)或：畫布對(duì)象.drawRectangle(畫筆對(duì)象,x,y,w,h)說明：（x,y）是矩形框的左上角起點(diǎn)坐標(biāo)，w為矩形的寬度，h為高度例：在畫布對(duì)象g上用畫筆p繪制矩形，左上角坐標(biāo)為(50,60),寬為100pixel,高為70pixel。

Dimrecasnewrectangle(50,60,100,70)

g.drawRectangle(p,rec)

或：

g.drawRectangle(p,50,60,100,70)繪制多邊形：drawPolygon方法語法:Dim坐標(biāo)對(duì)象()aspoint={newpoint(x1,y1),newpoint(x2,y2),newpoint(x3,y3),…}畫布對(duì)象.drawPolygon(畫筆對(duì)象，坐標(biāo)對(duì)象)或：Dimp1aspoint=newpoint(x1,y1)Dimp2aspoint=newpoint(x2,y2)Dimp3aspoint=newpoint(x3,y3)…Dim坐標(biāo)對(duì)象aspoint()={p1,p2,p3,…}畫布對(duì)象.drawPolygon(畫筆對(duì)象，坐標(biāo)對(duì)象)例：畫一個(gè)三角形，三個(gè)頂點(diǎn)分別為(25,25)、(0，50)、(50，50)Dimpts()aspoint={newpoint(25,25),newpoint(0,50),newpoint(50,50)}g.DrawRectangle(p,pts)或：Dimp1aspoint=newpoint(25,25)Dimp2aspoint=newpoint(0,50)Dimp3aspoint=newpoint(50,50)…Dimptsaspoint()={p1,p2,p3,…}g.drawPolygon(p，pts)創(chuàng)建圖形應(yīng)用程序的一般步驟1.創(chuàng)建畫布，聲明graphics對(duì)象2.用畫筆對(duì)象pen繪制圖形輪廓，并用color對(duì)象設(shè)置顏色實(shí)例練習(xí)：以窗體為畫布，繪制直線、矩形、多邊形。清理畫布對(duì)象畫布對(duì)象.Clear(顏色)

將畫布對(duì)象的內(nèi)容清理成指定的顏色。例：將畫布對(duì)象g清理為白色

g.clear(color.white)對(duì)象.Refresh()

將畫布清理為原控件的底色。例1：清理目前在窗體上所繪制的圖形。

me.refresh()繪制橢圓形：drawEllipse方法語法：Dim矩形對(duì)象asnewrectangle(x,y,w,h)畫布對(duì)象.drawEllipse(畫筆對(duì)象，矩形對(duì)象)或：畫布對(duì)象.drawEllipse(畫筆對(duì)象，x,y,w,h)說明:(x,y)是橢圓外接框左上角坐標(biāo)，w為橢圓的寬度，h為橢圓的高度。例：在畫布對(duì)象g上用畫筆p繪制橢圓，橢圓外接框左上角坐標(biāo)為(50,60),向右為100pixel，向下高為70pixel。

dimrecasnewrectangle(50,60,100,70)

g.drawEllipse(p,rec)或：

g.drawEllipse(p,50,60,100,70)繪制弧形：drawArc方法語法：

Dim矩形對(duì)象asnewrectangle(x,y,w,h)

畫布對(duì)象.drawArc(畫筆對(duì)象，矩形對(duì)象，startA,sweepA)或：畫布對(duì)象.drawArc(畫筆對(duì)象，x,y,w,h，startA,sweepA)說明：一個(gè)360度的圓弧是一個(gè)圓周，而(x,y)是圓外接框左上角坐標(biāo)，w是圓周的寬度,h是高度.startA是圓弧起點(diǎn)角度，以一個(gè)參考點(diǎn)為圓心，圓心右側(cè)水平線為0度，再以順時(shí)針方向開始張開的角度為角度值。sweepA是由startA開始算起所張開的角度，sweepA若為正值則向順時(shí)針方向張開；sweepA若為負(fù)值則向逆時(shí)針方向張開。例：在畫布對(duì)象g上用畫筆p繪制一個(gè)弧形，角度由270度畫到0度。

Dimrecasnewrectangle(50,60,100,70)g.drawArc(p,rec,270,90)或：

g.drawArc(p,50,60,100,70,270,90)繪制扇形:drawPie方法語法：

Dim矩形對(duì)象asnewrectangle(x,y,w,h)

畫布對(duì)象.drawPie(畫筆對(duì)象，矩形對(duì)象，startA,sweepA)或：畫布對(duì)象.drawPie(畫筆對(duì)象，x,y,w,h，startA,sweepA)例：在畫布對(duì)象g上用畫筆p繪制一個(gè)扇形，角度由270度畫到180度。

Dimrecasnewrectangle(50,60,100,70)g.DrawPie(p,rec,270,-90)或：

g.DrawPie(p,50,60,100,70,270,-90)

使用畫筆對(duì)象Pen所配合的繪圖方法，只負(fù)責(zé)描繪圖形的邊框。若要進(jìn)一步填滿塊的內(nèi)部顏色，就必須使用筆刷對(duì)象brushes，但需要配合fillRectangle、fillPolygon、fillEllipse、fillPie等繪圖方法。語法：brushes.顏色

fillRectangle、fillPolygon、fillEllipse、fillPie與前面講的drawRectangle、drawPolygon、drawEllipse、drawPie內(nèi)變量用法類似筆刷對(duì)象brushes實(shí)例：分別繪制如圖所示圖形。-----Form1_Paint-----DimgAsGraphicsg=Me.CreateGraphics

g.DrawEllipse(New

Pen(Color.Blue,4),20,20,50,70)

g.FillEllipse(Brushes.Pink,120,20,50,70)

g.DrawEllipse(New

Pen(Color.Blue,4),220,20,50,70)

g.FillEllipse(Brushes.Pink,220,20,50,70)'先畫邊框再畫內(nèi)部顏色，會(huì)造成邊框會(huì)被遮蓋一部分

g.FillEllipse(Brushes.Pink,