圖形應用程序設計

圖形應用程序設計本章要學習的繪圖對象顏色對象color畫布對象graphics畫筆對象pen筆刷對象brushes顏色對象Color用Color.FromArgb()設置顏色

使用該方法設置顏色是匯集透明程度、紅色光、綠色光、藍色光等四道不同性質的光線的調色效果，語法如下：

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

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

DimA,R,G,BAsIntegerSubshowARGB()A=PictureBox1.BackColor.AR=PictureBox1.BackColor.RG=PictureBox1.BackColor.GB=PictureBox1.BackColor.BLabel1.Text="目前顏色設置值："&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列舉設置顏色

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

button1.backColor=color.pink練習：接上例,增加設置為指定顏色功能，即按了有顏色的按鈕時，使picturebox1控件內顯示按鈕的顏色，軌跡棒也自動跟著移動。－－－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畫布對象Graphics聲明與建立畫布對象

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

dim畫布對象asgraphics

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

dimgasgraphicsg=form1.CreateGraphics()或：

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

PicShow.refresh()

刪除畫布對象

例：將畫布對象g從主存儲器中刪除。

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

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

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

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

2、畫筆對象顏色和粗細可用下列語法重新設置。

畫筆對象.color=顏色畫筆對象.width=粗細例:

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

p.width=3

繪制直線：drawLine方法語法：畫布對象.drawLine(畫筆對象，x1,y1,x2,y2)說明：(x1,y1)是直線的起點坐標，(x2,y2)是直線的終點坐標。例：在畫布對象g上用畫筆p繪制坐標(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矩形對象asnewrectangle(x,y,w,h)

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

Dimrecasnewrectangle(50,60,100,70)

g.drawRectangle(p,rec)

或：

g.drawRectangle(p,50,60,100,70)繪制多邊形：drawPolygon方法語法:Dim坐標對象()aspoint={newpoint(x1,y1),newpoint(x2,y2),newpoint(x3,y3),…}畫布對象.drawPolygon(畫筆對象，坐標對象)或：Dimp1aspoint=newpoint(x1,y1)Dimp2aspoint=newpoint(x2,y2)Dimp3aspoint=newpoint(x3,y3)…Dim坐標對象aspoint()={p1,p2,p3,…}畫布對象.drawPolygon(畫筆對象，坐標對象)例：畫一個三角形，三個頂點分別為(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)建圖形應用程序的一般步驟1.創(chuàng)建畫布，聲明graphics對象2.用畫筆對象pen繪制圖形輪廓，并用color對象設置顏色實例練習：以窗體為畫布，繪制直線、矩形、多邊形。清理畫布對象畫布對象.Clear(顏色)

將畫布對象的內容清理成指定的顏色。例：將畫布對象g清理為白色

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

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

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

dimrecasnewrectangle(50,60,100,70)

g.drawEllipse(p,rec)或：

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

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

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

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

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

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

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

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

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

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

fillRectangle、fillPolygon、fillEllipse、fillPie與前面講的drawRectangle、drawPolygon、drawEllipse、drawPie內變量用法類似筆刷對象brushes實例：分別繪制如圖所示圖形。-----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)'先畫邊框再畫內部顏色，會造成邊框會被遮蓋一部分

g.FillEllipse(Brushes.Pink,