第十章節圖形的控制跟處理課本新第十章節圖形的控制跟處理課本新第十章節圖形的控制跟處理課本新10.1圖形控件VB提供的與繪圖有關的標準控件有圖片框（PictureBox）、圖像框（Image）、直線（Line）和形狀（Shape）。Image、Line、Shape控件需要較少的系統資源，且包含PictureBox中可用的屬性、方法和事件子集，因此他們比PictureBox控件顯示速度快些。PictureBox和Image控件可以顯示位圖、圖標、圖元文件中的圖形，也可處理GIF和JPEG格式的圖形文件。第十章節圖形的控制跟處理課本新第十章節圖形的控制跟處理課本新110.1圖形控件VB提供的與繪圖有關的標準控件有圖片框（PictureBox）、圖像框（Image）、直線（Line）和形狀（Shape）。Image、Line、Shape控件需要較少的系統資源，且包含PictureBox中可用的屬性、方法和事件子集，因此他們比PictureBox控件顯示速度快些。PictureBox和Image控件可以顯示位圖、圖標、圖元文件中的圖形，也可處理GIF和JPEG格式的圖形文件。10.1圖形控件VB提供的與繪圖有關的標準控件有圖片框（P210.1.1PictureBox控件圖片框（PictureBox）控件的主要作用是在窗體的指定位置為用戶顯示圖片，也可作為其它控件的容器、顯示Print方法輸出的文本或顯示圖形方法輸出的圖形。實際顯示的圖片由Picture屬性決定。在工具箱面板中，PictureBox控件的圖標如圖10-1所示。圖10-1PictureBox控件的圖標

10.1.1PictureBox控件圖片框（Picture310.1.1PictureBox控件1、主要屬性基本屬性Name標識唯一的對象，運行時為只讀Height、Width、Top、Left標識控件在容器上顯示的尺寸及位置Enabled決定對象運行時是否有效。True：運行時有效；False：運行時無效Visible決定對象運行時是否可見。True：運行時可見；False：運行時不可見Font設置與字體有關的所有內容。包括FontName、FontSize、FontBold、FontItalic、FontUnderline等特有屬性PicturePicture屬性用來返回或設置控件中要顯示的圖片，可以通過屬性窗口進行設置。如果要在程序運行過程中載入圖片，常常使用LoadPicture函數AutoSizeAutoSize屬性用于設置是否能自動調整圖片框大小，以完整顯示裝入的圖片。值為True時，自動調整大小，以顯示裝入的整個圖片；值為False時，保持控件大小，裝入的圖片超出的部分被截除。10.1.1PictureBox控件1、主要屬性基Nam410.1.1PictureBox控件2、加載圖片（1）在設計階段加載圖片文件有兩種方法：1）通過設置屬性窗口中的Picture屬性來加載圖片，步驟如下：在窗體上建立一個圖片框保持圖片框為激活的控件，在屬性窗口中找到Picture屬性，單擊該屬性條，其右側出現“…”按鈕單擊“…”按鈕，屏幕顯示“加載圖片”對話框，從相應文件夾中找到所需加載的圖片，單擊打開，圖片即被加載2）利用剪貼板加載用繪圖或圖像處理軟件完成圖形處理，并將圖形復制到剪貼板中切換到VB，在窗體上建立圖片框，并保持為激活狀態使用“粘貼”命令，即完成圖片加載10.1.1PictureBox控件2、加載圖片（1）在510.1.1PictureBox控件2、加載圖片（2）在運行階段通過LoadPicture函數加載圖片，格式如下：對象名.Picture=LoadPicture("圖片文件名")例如：加載圖片：Picture1.Picture=LoadPicture("C:\Pic\MyPic1.gif")10.1.1PictureBox控件2、加載圖片（2）在610.1.1PictureBox控件3．卸載圖片和復制圖片（1）卸載圖片卸載圖片文件也有兩種方法：一種是在設計階段卸載，另一種是在運行階段卸載。在設計階段設置屬性窗口中的Picture屬性為None，在運行階段通過LoadPicture函數卸載圖片，格式如下：對象名.Picture=LoadPicture()（2）復制圖片復制圖片可以利用Picture屬性和LoadPicture()函數來完成，如：Picture1.Picture=LoadPicture("C:\Pic\MyPic1.gif"）Picture2.Picture=Picture1.Picture10.1.1PictureBox控件3．卸載圖片和復制圖片710.1.1PictureBox控件4．圖形文件的保存格式：SavePicturepicture,stringexpression說明：picture：圖片框對象或其他對象的picture屬性Stringexpression：文件名10.1.1PictureBox控件4．圖形文件的保存格式810.1.1PictureBox控件5．Paint事件在一個對象被移動或放大之后，或在一個覆蓋該對象的窗體被移開之后，該對象部分或全部暴露時，此事件發生。如果AutoRedraw屬性被設置為True，重新繪圖會自動進行，就不需要Paint事件。10.1.1PictureBox控件5．Paint事件在一910.1.1PictureBox控件6．常用方法圖片框中常使用Cls方法和Print方法。【例10-1】在C:\新建一個文件夾stu1，將我的文檔中的示例圖片Sunset.JPG復制到stu1文件夾下。再啟動VB，在stu1文件夾下新建一個工程文件，其布局與運行結果如圖10-2所示。圖10-2控件布局圖及運行結果圖

10.1.1PictureBox控件6．常用方法圖片框中常1010.1.1PictureBox控件（1）控件選擇：兩個標簽控件：Label1、Label2；兩個圖片框控件：Picture1、Picture2；三個命令按鈕：Cmd1、Cmd2、Cmd3（2）控件屬性設置：控件名稱屬性Caption屬性標簽Label1Caption源圖標簽Label2Caption復制圖片圖片框Picture1PictureNone圖片框Picture2PictureNone命令按鈕Cmd1Caption加載圖片命令按鈕Cmd2Caption復制圖片命令按鈕Cmd3Caption清除圖片10.1.1PictureBox控件（1）控件選擇：兩個標1110.1.1PictureBox控件（3）代碼編寫：編寫命令按鈕Cmd1的Click事件：PrivateSubCmd1_Click()Picture1.Picture=LoadPicture(App.Path&"\Sunset.JPG")EndSub

編寫命令按鈕Cmd2的Click事件：PrivateSubCmd2_Click() Picture2.Picture=Picture1.PictureEndSub編寫命令按鈕Cmd3的Click事件：PrivateSubCmd3_Click()Picture1.Picture=LoadPicture()Picture2.Picture=LoadPicture()EndSub說明：App.Path用于取得當前工程文件所在的文件夾路徑，App.Path&"\Sunset.JPG"指明了Sunset.JPG文件的物理位置。這種方法常被應用，可提高程序的可移植性。10.1.1PictureBox控件（3）代碼編寫：1210.1.2Image控件圖像框（Image）控件是一個簡單易用的顯示圖像文件的控件，其使用的系統資源較少而且顯示速度較快，它可以自動調整自身的大小以適應圖像大小，或者伸縮圖像的大小使圖像適合圖像框控件的大小。Image加載圖片的方法和使用圖片的文件格式與PictureBox相同。在工具箱面板中，Image控件的圖標如圖10-3所示。圖10-3Image控件的圖標10.1.2Image控件圖像框（Image）控件是一個簡1310.1.2Image控件1.主要屬性基本屬性Name標識唯一的對象，運行時為只讀Height、Width、Top、Left標識控件在容器上顯示的位置及尺寸Enabled決定對象運行時是否有效。True：運行時有效；False：運行時無效Visible決定對象運行時是否可見。True：運行時可見；False：運行時不可見特有屬性Picture可通過屬性窗口進行設置，也可以在程序中進行設置。VB6.0支持位圖文件、圖標文件、JPEG及GIF壓縮位圖文件Stretch自動調整圖像框中圖形內容的大小。False：圖像框可以自動改變大小以適應其中的圖形True：圖形自動調整尺寸以適應圖像框的大小。10.1.2Image控件1.主要屬性基Name標識唯1410.1.2Image控件2．常用事件圖像框可以響應Click和DblClick事件3．Image與PictureBox的區別（1）PictureBox是“容器”控件，可以作為父控件，而Image不能作為父控件。也就是說，在PictureBox中，可以包含其它控件，作為他的子控件，如果移動PictureBox，則框中的控件也隨之一起移動，并且與PictureBox的相對位置保持不變；當PictureBox的大小改變時，這些子控件的圖片控制的相對位置保持不變，PictureBox內的子控件也不能移到PictureBox外。（2）PictureBox可以通過Print方法接收文本，并可接收由像素組成的圖形，而Image不能接受用Print方法輸入的信息，也不能用繪圖方法在Image上繪制圖形。（3）Image比PictureBox占用內存少，顯示速度快。（4）Image沒有AutoSize屬性，但可以實現圖形縮放10.1.2Image控件2．常用事件1510.1.2Image控件【例10-2】在C:\新建一個文件夾stu2，將我的文檔中的示例圖片Sunset.JPG復制到stu2文件夾下。再啟動VB，在stu2文件夾下新建一個工程文件，其布局與運行結果如圖10-4所示。圖10-4控件布局圖及運行結果圖

10.1.2Image控件【例10-2】在C:\新建一個文1610.1.2Image控件（1）控件選擇：1個圖像框Image1；2個命令按鈕：Command1、Command2（2）控件屬性設置控件名稱屬性屬性值圖像框Image1StretchTrue命令按鈕Command1Caption放大命令按鈕Command2Caption縮小10.1.2Image控件（1）控件選擇：1個圖像框Ima1710.1.2Image控件（3）代碼編寫：編寫命令按鈕Command1的Click事件：PrivateSubCommand1_Click()IfImage1.Height<2000OrImage1.Width<4000ThenImage1.Height=Image1.Height+500Image1.Width=Image1.Width+500EndIfEndSub編寫命令按鈕Command2的Click事件：PrivateSubCommand2_Click()IfImage1.Height>1000OrImage1.Width>2000ThenImage1.Height=Image1.Height-500Image1.Width=Image1.Width-500EndIfEndSub編寫窗體Form1的Load事件：PrivateSubForm_Load() Image1.Picture=LoadPicture(App.Path&"\Sunset.JPG")EndSub 10.1.2Image控件（3）代碼編寫：1810.1.3Line控件Line控件可用來在窗體、框架或圖片框中創建各種直線。既可以在設計時通過設置直線的端點坐標來畫直線，又可以在程序運行時動態地改變直線的各種屬性。Line控件主要屬性是BorderWidth、BorderStyle和BorderColor屬性，以及X1、Y1和X2、Y2屬性。BorderWidth確定線的寬度，BorderStyle確定線的形狀，BorderColor確定線的顏色。X1、Y1和X2、Y2屬性控制線的兩個端點的位置。程序運行時，不能使用Move方法移動Line控件，但是可以通過改變X1、Y1、X2、Y2屬性來移動或調整直線。在工具箱面板中，Line控件的圖標如圖10-5所示。圖10-5Line控件的圖標

10.1.3Line控件Line控件可用來在窗體、框架或1910.1.4Shape控件Shape控件可用來在窗體、框架或圖片框中創建矩形、正方形、橢圓形、圓形、圓角矩形或圓角正方形。通過設置Shape控件的Shape屬性來實現所需要的形狀，以控制Shape控件的外觀。在工具箱面板中，Shape控件的圖標如圖10-6所示。圖10-6Shape控件的圖標10.1.4Shape控件Shape控件可用來在窗體、框2010.1.4Shape控件語法：對象名.Shape[=value]其中，對象名是Shape控件的Name屬性；value用來指定控件外觀的整數。其設置值如表10-5所示。常數值描述vbShapeRectangle0矩形，默認值vbShapeSquare1正方形vbShapeOval2橢圓形vbShapeCircle3圓形vbShapeRoundedRectangle4圓角矩形vbShapeRoundedSquare5圓角正方形10.1.4Shape控件語法：對象名.Shape[=va2110.2坐標系統對象定位使用的是容器的坐標系，每個容器都有一個坐標系。坐標系由三要素構成：坐標原點，坐標度量單位（刻度），坐標軸的長度與方向。VB提供兩類坐標系：默認坐標系和自定義坐標系。默認坐標系中原點(0,0)定位于對象容器用戶區的左上角，X軸向右為正方向，Y軸向下為正方向。對象坐標的度量單位由容器對象的ScaleMode屬性決定，共有8種形式的單位，默認為Twip。用ScaleMode屬性只能改變刻度單位，不能改變坐標原點及坐標軸的方向。10.2坐標系統對象定位使用的是容器的坐標系，每個容器都有一2210.2坐標系統建立自定義坐標系更簡單的做法是調用容器對象的Scale方法，語法格式為：[容器對象.]Scale(x1,y1)-(x2,y2)說明：容器對象是指窗體或圖片框，省略時默認為當前窗體。(x1,y1)為左上角的坐標，(x2,y2)為右下角的坐標。注意兩對括號之間的“-”不代表相減。調用Scale方法后，ScaleLeft和ScaleTop屬性分別被設為x1和y1的值。ScaleWidth屬性被設為x2與x1之差，ScaleHeight屬性被設為y2與y1之差。若省略(x1，y1)-(x2，y2)，則恢復默認坐標系統，即以容器對象的左上角為坐標原點。10.2坐標系統建立自定義坐標系更簡單的做法是調用容器對象的2310.3相關屬性和函數10.3.1與繪圖方法有關的屬性

10.3.2與顏色有關的函數10.3相關屬性和函數10.3.1與繪圖方法有關的屬性2410.3.1與繪圖方法有關的屬性1．當前坐標CurrentX，CurrentY屬性給出窗體或圖片框或打印機在繪圖時的當前坐標。這兩個屬性在設計階段不能使用，使用CLS方法后，CurrentX、CurrentY屬性值為0。2．線寬和線型DrawWidth屬性用來返回或設置圖形方法輸出的線寬。屬性值的單位為像素，取值范圍為1~32767，默認值為1。DrawStyle屬性用來返回或設置圖形方法輸出的線型，如表10-6所示。該屬性的設置值0～4的效果分別與Line控件的BordeStyle屬性的1～5對應。若DrawWidth屬性設置值大于1，在DrawStyle屬性被設置為1～4時，只能畫實線。10.3.1與繪圖方法有關的屬性1．當前坐標2510.3.1與繪圖方法有關的屬性2．線寬和線型常數設置值描述常數設置值描述VbSolid0實線(缺省)VbDashDotDot4點點劃線VbDash1虛線VbInvisible5透明線VbDot2點線VbInsideSolid6內實線VbDashDot3點劃線表10-6DrawStyle設置表

10.3.1與繪圖方法有關的屬性2．線寬和線型常數設置值描述2610.3.1與繪圖方法有關的屬性2．線寬和線型常數設置值描述常數設置值描述VbFSSolid0實線VbUpwardDiagonal4上斜對角線VbFSTransparent1透明（缺省）VbDownwardDiagonal5下斜對角線VbHorizontalLine2水平直線VbCross6十字線VbVerticalLine3垂直直線VbDiagonalCross7交叉對角線表10-7FillStyle設置表10.3.1與繪圖方法有關的屬性2．線寬和線型常數設置值描述2710.3.1與繪圖方法有關的屬性3．填充顏色與填充樣式FillColor屬性用于為Line和Circle方法生成的矩形和圓填充顏色。FillStyle屬性用于為Line和Circle方法生成的矩形和圓指定填充的圖案，如表10-7所示。該屬性的設置值與Shape控件的FillStyle屬性相同。除Form對象外，若FillStyle屬性被設置為默認值1（透明），則忽略FillColor屬性的設置值。10.3.1與繪圖方法有關的屬性3．填充顏色與填充樣式2810.3.2與顏色有關的函數顏色的使用是繪圖操作中的重要環節。在程序運行時，有四種方式可以指定顏色值：使用QBColor函數；使用RGB函數；使用內部常數；直接輸入顏色值。1．QBColor函數QBColor函數能夠選擇早期版本的Basic所規定的16種顏色之一。其語法格式為：QBColor(Color)說明：Color是一個界于0~15的整型數，用于指定顏色。表10-8列出了QBColor函數中Color取值所對應的顏色。10.3.2與顏色有關的函數顏色的使用是繪圖操作中的重要環2910.3.2與顏色有關的函數Color取值顏色Color取值顏色0黑8灰1藍9亮藍2綠10亮綠3青11亮青4紅12亮紅5洋紅13亮洋紅6黃14亮黃7白15亮白表10-8QBColor函數中Color的取值與所對應的顏色10.3.2與顏色有關的函數Color取值顏色Color取3010.3.2與顏色有關的函數2．RGB函數RGB函數用來返回一個Long整數，用來表示一個RGB顏色值。其語法格式為：RGB(red,green,blue)說明：red是必需的，Variant(Integer)。數值范圍從0~255，表示顏色的紅色成分。green是必需的，Variant(Integer)。數值范圍從0~255，表示顏色的綠色成分。blue是必需的，Variant(Integer)。數值范圍從0~255，表示顏色的藍色成分。一個RGB顏色指定紅、綠、藍三原色的成分，生成一個用于顯示的特定的顏色。傳給RGB的任何參數的值，如果超過255，會被當做255。表10-9列出了常見的標準顏色RGB的值。10.3.2與顏色有關的函數2．RGB函數3110.3.2與顏色有關的函數2．RGB函數顏色redgreenblue黑000紅25500綠02550藍00255青0255255洋紅2550255黃2552550白255255255表10-9常見的標準顏色RGB的值10.3.2與顏色有關的函數2．RGB函數顏色redgre3210.4圖形方法10.4.1Line方法10.4.2Pset方法10.4.3Circle方法10.4.4PaintPicture方法10.4圖形方法10.4.1Line方法3310.4.1Line方法Line方法用于畫直線或矩形，其語法格式如下：[對象.]Line[[Step](x1,y1)]-[Step](x2,y2)[,Color][,B[F]]說明：（1）對象：可以是窗體或圖片框，若省略則默認為當前窗體。（2）(x1,y1)：線段的起點坐標或矩形的左上角坐標。（3）(x2,y2)：線段的終點坐標或矩形的右下角坐標。（4）Step：表示采用當前作圖位置的相對值。（5）Color：線段或矩形邊線的顏色。若省略，則使用對象的ForeColor屬性值。（6）B：表示畫矩形。（7）F：表示用畫矩形的顏色來填充矩形，F必須與關鍵字B一起使用。如果只用B不用F，則矩形的填充由對象當前的FillColor和FillStyle屬性決定。畫直線時，省略[B][F]參數；畫矩形時，參數B為空心矩形，BF為實心矩形。10.4.1Line方法Line方法用于畫直線或矩形，其語3410.4.1Line方法【例10-3】使用Line方法畫出如圖10-7所示的三角形。首先將窗體的AutoRedraw屬性設置為True。然后編寫代碼如下：PrivateSubForm_Load()Line(100,100)-Step(0,500) '終點采用相對坐標

Line-Step(500,0) '以上次畫線的終點為本次畫線起點

Line-(100,100) '返回最初的起點EndSub圖10-7使用Line方法繪制的三角形10.4.1Line方法【例10-3】使用Line方法畫出3510.4.1Line方法【例10-4】用Line方法在窗體上繪制如圖10-8所示的同心矩形，每當單擊窗體時，矩形的顏色隨機變化。編寫代碼如下：PrivateSubForm_Click()DimCX,CY,F,F1,F2,i '聲明變量

CX=ScaleWidth/2 '水平中點

CY=ScaleHeight/2 '垂直中點

DrawWidth=10 '設置線寬

Fori=50To0Step-4 '從外向內畫矩形

F=i/50 '坐標偏移量系數。

F1=1-F:F2=1+F '計算矩形左上角和右下角坐標偏移量系數。

ForeColor=QBColor(Int(Rnd*16)) '設置前景色為隨機色

Line(CX*F1,CY*F1)-(CX*F2,CY*F2),,BF '使用參數B畫矩形,F參數填充顏色

NextiEndSub圖10-8使用Line方法繪制同心矩形10.4.1Line方法【例10-4】用Line方法在窗體3610.4.2Pset方法Pset方法用于在窗體、圖片框或打印機指定位置上畫點，利用Pset方法可以畫任意曲線。其語法格式如下：[對象.]Pset[Step](x,y)[，Color]說明：（1）參數（x,y）：必需的。x和y是單精度浮點數，即所畫點的水平坐標（x軸）和垂直坐標（y軸）。（2）Step：可選，表示采用當前作圖位置的相對值。（3）Color：可選，長整型數，為該點指定RGB顏色。可用RGB函數或QBColor函數指定顏色。如果省略Color，則使用當前的ForeColor屬性值。如果使用背景顏色，則可清除某個位置上的點。10.4.2Pset方法Pset方法用于在窗體、圖片框或打3710.4.2Pset方法【例10-5】繪制正弦曲線和余弦曲線。程序運行結果如圖10-9所示。圖10-9繪制正弦曲線和余弦曲線10.4.2Pset方法【例10-5】繪制正弦曲線和余弦曲3810.4.2Pset方法本例使用PictureBox控件的Line方法繪制坐標軸，使用其Pset方法描繪曲線。在Form_Load過程中的語句Picture1.Scale(-360,2)-(360,-2)，建立了新坐標系：左上角坐標是(-360,2)，右下角坐標是(360,-2)；坐標原點位于矩形的中心，X軸的正向水平向右，Y軸的正向垂直向上。窗體中除了圖片框Picture1外，還需要四個命令按鈕：繪制正弦曲線的按鈕command1，繪制余弦曲線的按鈕command2，清除圖片框中的內容的按鈕command3，繪制坐標軸的按鈕command4。程序代碼如下：10.4.2Pset方法本例使用PictureBox控件的3910.4.2Pset方法DimStartAngleAsSingle '存起始角DimEndAngleAsSingle 存終止角DimiAsSingleDimRateAsSingle '存角度弧度轉換系數PrivateSubForm_Load() '窗體加載

Picture1.Scale(-360,2)-(360,-2) '建立自定義坐標系

StartAngle=-360 '起始角

EndAngle=360 '終止角

Picture1.CurrentX=-360 '繪圖起點坐標

Picture1.CurrentY=0Rate=3.1416/180 '角度弧度轉換系數EndSubPrivateSubcommand1_Click() '正弦曲線

Fori=StartAngleToEndAnglePicture1.PSet(i,Sin(i*Rate))NextEndSubPrivateSubcommand2_Click() '余弦曲線

Fori=StartAngleToEndAnglePicture1.PSet(i,Cos(i*Rate))NextEndSubPrivateSubcommand3_Click() '清除

Picture1.ClsEndSubPrivateSubcommand4_Click() '畫坐標軸

Picture1.Line(-360,0)-(360,0) 'X軸

Picture1.Line(0,2)-(0,-2) 'Y軸EndSub10.4.2Pset方法DimStartAngleAs4010.4.3Circle方法Circle方法用于畫圓、橢圓、圓弧和扇形，其語法格式如下：[對象.]Circle[Step](x,y),r[,color][,起始角][,終止角][,縱橫比]說明：（1）對象：可以是窗體、圖片框或打印機，省略時默認為當前窗體。（2）Step：表示采用當前作圖位置的相對值。（3）（x,y）：圓心坐標。（4）r：半徑。（5）color：指定圓周邊線的顏色。若省略，則使用ForeColor屬性值。可以使用所屬對象的FillColor和FillStyle屬性填充封閉的圖形。（6）起始角和終止角：圓弧和扇形通過參數起始角、終止角控制。當起始角、終止角取值在0~2π時為圓弧。當在起始角、終止角的取值前加一負號時，畫出扇形，負號表示從圓心到圓弧端點畫徑向線。（7）縱橫比：控制畫橢圓，默認值為1，畫標準圓。注意：在VB坐標系中，采用逆時針方向繪圓。Circle方法中參數前出現的負號，并不能改變坐標系中旋轉的方向。使用Circle方法時，如果想省掉中間的參數，逗號不能省略。例如：畫橢圓省掉了顏色、起始角、終止角三個參數，則必須加上四個連續的逗號，它表明這三個參數被省掉了。10.4.3Circle方法Circle方法用于畫圓、橢圓4110.4.3Circle方法【例10-6】用Circle方法畫圓、橢圓、圓弧和扇形，運行結果如圖10-10所示。程序代碼：PrivateSubForm_Click()FillStyle=0FillColor=RGB(255,0,0)Circle(1000,1000),450Circle(2000,1000),450,,,,2Circle(3000,1000),450,,3.1415926/2,2*3.1415926Circle(4000,1000),450,,-3.1415926/2,-2*3.1415926EndSub圖10-10用Circle方法畫圓、橢圓、圓弧和扇形10.4.3Circle方法【例10-6】用Circle方4210.4.4PaintPicture方法PaintPicture方法用來把一個窗體或圖片框中已裝入的圖像文件（如：.BMP、.ICO、.WMF等）取出一部分放到另一個（或是它本身）對象中。該方法可實現在繪圖對象內部或對象之間的圖像復制操作。其語法格式如下：[對象.]PaintPicture源圖像,x1,y1[,Width1][,Height1][,x2,y2][,Width2][,Height2]說明：（1）對象名為一個對象表達式，是控件的Name屬性。缺省時指帶焦點的窗體。（2）源圖像是必需的，是指在源對象中已裝入的圖像文件，這里指定的必須是源對象的Picture屬性。（3）x1，y1是必需的，分別是指在對象上繪制圖像的水平、垂直坐標。（4）Width1、Height1是可選的，指定復制的圖像在目標對象中的寬度和高度。當指定的寬度或高度大于或小于復制圖像的寬度或高度時，復制對象自動被拉伸或壓縮；默認時取原始尺寸；當這兩個參數為負數時，復制的圖像水平或垂直翻轉。（5）x2，y2是可選的，分別是指要復制的區域左上角的水平、垂直坐標。默認值均為0。（6）Width2、Height2是可選的，指定源對象中要復制區域的寬度和高度。默認時取源尺寸。10.4.4PaintPicture方法PaintPic4310.4.4PaintPicture方法【例10-7】在窗體上將圖片框中的圖片水平翻轉后平鋪。通過給目標寬度參數設置負值可對圖片進行水平翻轉。在窗體中央放置一個圖片框，在該圖片框中添加一幅圖片。輸入以下代碼：PrivateSubForm_Click()Picture1.Visible=FalseForm1.AutoRedraw=True DimiAsInteger,jAsIntegerDimxAsInteger,yAsIntegerx=ScaleWidth\Picture1.Width+1'根據窗體大小確定行、列數

y=ScaleHeight\Picture1.Height+1Fori=0Toy '行

Forj=0Tox '列

PaintPicturePicture1.Picture,j*Picture1.Width,i*Picture1.Height,-Picture1.Width,Picture1.HeightNextjNextiEndSub10.4.4PaintPicture方法【例10-7】在4410.4.4PaintPicture方法圖10-11例10-7程序布局及運行結果10.4.4PaintPicture方法圖10-11例45匯報結束謝謝大家!請各位批評指正匯報結束謝謝大家!請各位批評指正46第十章節圖形的控制跟處理課本新第十章節圖形的控制跟處理課本新第十章節圖形的控制跟處理課本新10.1圖形控件VB提供的與繪圖有關的標準控件有圖片框（PictureBox）、圖像框（Image）、直線（Line）和形狀（Shape）。Image、Line、Shape控件需要較少的系統資源，且包含PictureBox中可用的屬性、方法和事件子集，因此他們比PictureBox控件顯示速度快些。PictureBox和Image控件可以顯示位圖、圖標、圖元文件中的圖形，也可處理GIF和JPEG格式的圖形文件。第十章節圖形的控制跟處理課本新第十章節圖形的控制跟處理課本新4710.1圖形控件VB提供的與繪圖有關的標準控件有圖片框（PictureBox）、圖像框（Image）、直線（Line）和形狀（Shape）。Image、Line、Shape控件需要較少的系統資源，且包含PictureBox中可用的屬性、方法和事件子集，因此他們比PictureBox控件顯示速度快些。PictureBox和Image控件可以顯示位圖、圖標、圖元文件中的圖形，也可處理GIF和JPEG格式的圖形文件。10.1圖形控件VB提供的與繪圖有關的標準控件有圖片框（P4810.1.1PictureBox控件圖片框（PictureBox）控件的主要作用是在窗體的指定位置為用戶顯示圖片，也可作為其它控件的容器、顯示Print方法輸出的文本或顯示圖形方法輸出的圖形。實際顯示的圖片由Picture屬性決定。在工具箱面板中，PictureBox控件的圖標如圖10-1所示。圖10-1PictureBox控件的圖標

10.1.1PictureBox控件圖片框（Picture4910.1.1PictureBox控件1、主要屬性基本屬性Name標識唯一的對象，運行時為只讀Height、Width、Top、Left標識控件在容器上顯示的尺寸及位置Enabled決定對象運行時是否有效。True：運行時有效；False：運行時無效Visible決定對象運行時是否可見。True：運行時可見；False：運行時不可見Font設置與字體有關的所有內容。包括FontName、FontSize、FontBold、FontItalic、FontUnderline等特有屬性PicturePicture屬性用來返回或設置控件中要顯示的圖片，可以通過屬性窗口進行設置。如果要在程序運行過程中載入圖片，常常使用LoadPicture函數AutoSizeAutoSize屬性用于設置是否能自動調整圖片框大小，以完整顯示裝入的圖片。值為True時，自動調整大小，以顯示裝入的整個圖片；值為False時，保持控件大小，裝入的圖片超出的部分被截除。10.1.1PictureBox控件1、主要屬性基Nam5010.1.1PictureBox控件2、加載圖片（1）在設計階段加載圖片文件有兩種方法：1）通過設置屬性窗口中的Picture屬性來加載圖片，步驟如下：在窗體上建立一個圖片框保持圖片框為激活的控件，在屬性窗口中找到Picture屬性，單擊該屬性條，其右側出現“…”按鈕單擊“…”按鈕，屏幕顯示“加載圖片”對話框，從相應文件夾中找到所需加載的圖片，單擊打開，圖片即被加載2）利用剪貼板加載用繪圖或圖像處理軟件完成圖形處理，并將圖形復制到剪貼板中切換到VB，在窗體上建立圖片框，并保持為激活狀態使用“粘貼”命令，即完成圖片加載10.1.1PictureBox控件2、加載圖片（1）在5110.1.1PictureBox控件2、加載圖片（2）在運行階段通過LoadPicture函數加載圖片，格式如下：對象名.Picture=LoadPicture("圖片文件名")例如：加載圖片：Picture1.Picture=LoadPicture("C:\Pic\MyPic1.gif")10.1.1PictureBox控件2、加載圖片（2）在5210.1.1PictureBox控件3．卸載圖片和復制圖片（1）卸載圖片卸載圖片文件也有兩種方法：一種是在設計階段卸載，另一種是在運行階段卸載。在設計階段設置屬性窗口中的Picture屬性為None，在運行階段通過LoadPicture函數卸載圖片，格式如下：對象名.Picture=LoadPicture()（2）復制圖片復制圖片可以利用Picture屬性和LoadPicture()函數來完成，如：Picture1.Picture=LoadPicture("C:\Pic\MyPic1.gif"）Picture2.Picture=Picture1.Picture10.1.1PictureBox控件3．卸載圖片和復制圖片5310.1.1PictureBox控件4．圖形文件的保存格式：SavePicturepicture,stringexpression說明：picture：圖片框對象或其他對象的picture屬性Stringexpression：文件名10.1.1PictureBox控件4．圖形文件的保存格式5410.1.1PictureBox控件5．Paint事件在一個對象被移動或放大之后，或在一個覆蓋該對象的窗體被移開之后，該對象部分或全部暴露時，此事件發生。如果AutoRedraw屬性被設置為True，重新繪圖會自動進行，就不需要Paint事件。10.1.1PictureBox控件5．Paint事件在一5510.1.1PictureBox控件6．常用方法圖片框中常使用Cls方法和Print方法。【例10-1】在C:\新建一個文件夾stu1，將我的文檔中的示例圖片Sunset.JPG復制到stu1文件夾下。再啟動VB，在stu1文件夾下新建一個工程文件，其布局與運行結果如圖10-2所示。圖10-2控件布局圖及運行結果圖

10.1.1PictureBox控件6．常用方法圖片框中常5610.1.1PictureBox控件（1）控件選擇：兩個標簽控件：Label1、Label2；兩個圖片框控件：Picture1、Picture2；三個命令按鈕：Cmd1、Cmd2、Cmd3（2）控件屬性設置：控件名稱屬性Caption屬性標簽Label1Caption源圖標簽Label2Caption復制圖片圖片框Picture1PictureNone圖片框Picture2PictureNone命令按鈕Cmd1Caption加載圖片命令按鈕Cmd2Caption復制圖片命令按鈕Cmd3Caption清除圖片10.1.1PictureBox控件（1）控件選擇：兩個標5710.1.1PictureBox控件（3）代碼編寫：編寫命令按鈕Cmd1的Click事件：PrivateSubCmd1_Click()Picture1.Picture=LoadPicture(App.Path&"\Sunset.JPG")EndSub

編寫命令按鈕Cmd2的Click事件：PrivateSubCmd2_Click() Picture2.Picture=Picture1.PictureEndSub編寫命令按鈕Cmd3的Click事件：PrivateSubCmd3_Click()Picture1.Picture=LoadPicture()Picture2.Picture=LoadPicture()EndSub說明：App.Path用于取得當前工程文件所在的文件夾路徑，App.Path&"\Sunset.JPG"指明了Sunset.JPG文件的物理位置。這種方法常被應用，可提高程序的可移植性。10.1.1PictureBox控件（3）代碼編寫：5810.1.2Image控件圖像框（Image）控件是一個簡單易用的顯示圖像文件的控件，其使用的系統資源較少而且顯示速度較快，它可以自動調整自身的大小以適應圖像大小，或者伸縮圖像的大小使圖像適合圖像框控件的大小。Image加載圖片的方法和使用圖片的文件格式與PictureBox相同。在工具箱面板中，Image控件的圖標如圖10-3所示。圖10-3Image控件的圖標10.1.2Image控件圖像框（Image）控件是一個簡5910.1.2Image控件1.主要屬性基本屬性Name標識唯一的對象，運行時為只讀Height、Width、Top、Left標識控件在容器上顯示的位置及尺寸Enabled決定對象運行時是否有效。True：運行時有效；False：運行時無效Visible決定對象運行時是否可見。True：運行時可見；False：運行時不可見特有屬性Picture可通過屬性窗口進行設置，也可以在程序中進行設置。VB6.0支持位圖文件、圖標文件、JPEG及GIF壓縮位圖文件Stretch自動調整圖像框中圖形內容的大小。False：圖像框可以自動改變大小以適應其中的圖形True：圖形自動調整尺寸以適應圖像框的大小。10.1.2Image控件1.主要屬性基Name標識唯6010.1.2Image控件2．常用事件圖像框可以響應Click和DblClick事件3．Image與PictureBox的區別（1）PictureBox是“容器”控件，可以作為父控件，而Image不能作為父控件。也就是說，在PictureBox中，可以包含其它控件，作為他的子控件，如果移動PictureBox，則框中的控件也隨之一起移動，并且與PictureBox的相對位置保持不變；當PictureBox的大小改變時，這些子控件的圖片控制的相對位置保持不變，PictureBox內的子控件也不能移到PictureBox外。（2）PictureBox可以通過Print方法接收文本，并可接收由像素組成的圖形，而Image不能接受用Print方法輸入的信息，也不能用繪圖方法在Image上繪制圖形。（3）Image比PictureBox占用內存少，顯示速度快。（4）Image沒有AutoSize屬性，但可以實現圖形縮放10.1.2Image控件2．常用事件6110.1.2Image控件【例10-2】在C:\新建一個文件夾stu2，將我的文檔中的示例圖片Sunset.JPG復制到stu2文件夾下。再啟動VB，在stu2文件夾下新建一個工程文件，其布局與運行結果如圖10-4所示。圖10-4控件布局圖及運行結果圖

10.1.2Image控件【例10-2】在C:\新建一個文6210.1.2Image控件（1）控件選擇：1個圖像框Image1；2個命令按鈕：Command1、Command2（2）控件屬性設置控件名稱屬性屬性值圖像框Image1StretchTrue命令按鈕Command1Caption放大命令按鈕Command2Caption縮小10.1.2Image控件（1）控件選擇：1個圖像框Ima6310.1.2Image控件（3）代碼編寫：編寫命令按鈕Command1的Click事件：PrivateSubCommand1_Click()IfImage1.Height<2000OrImage1.Width<4000ThenImage1.Height=Image1.Height+500Image1.Width=Image1.Width+500EndIfEndSub編寫命令按鈕Command2的Click事件：PrivateSubCommand2_Click()IfImage1.Height>1000OrImage1.Width>2000ThenImage1.Height=Image1.Height-500Image1.Width=Image1.Width-500EndIfEndSub編寫窗體Form1的Load事件：PrivateSubForm_Load() Image1.Picture=LoadPicture(App.Path&"\Sunset.JPG")EndSub 10.1.2Image控件（3）代碼編寫：6410.1.3Line控件Line控件可用來在窗體、框架或圖片框中創建各種直線。既可以在設計時通過設置直線的端點坐標來畫直線，又可以在程序運行時動態地改變直線的各種屬性。Line控件主要屬性是BorderWidth、BorderStyle和BorderColor屬性，以及X1、Y1和X2、Y2屬性。BorderWidth確定線的寬度，BorderStyle確定線的形狀，BorderColor確定線的顏色。X1、Y1和X2、Y2屬性控制線的兩個端點的位置。程序運行時，不能使用Move方法移動Line控件，但是可以通過改變X1、Y1、X2、Y2屬性來移動或調整直線。在工具箱面板中，Line控件的圖標如圖10-5所示。圖10-5Line控件的圖標

10.1.3Line控件Line控件可用來在窗體、框架或6510.1.4Shape控件Shape控件可用來在窗體、框架或圖片框中創建矩形、正方形、橢圓形、圓形、圓角矩形或圓角正方形。通過設置Shape控件的Shape屬性來實現所需要的形狀，以控制Shape控件的外觀。在工具箱面板中，Shape控件的圖標如圖10-6所示。圖10-6Shape控件的圖標10.1.4Shape控件Shape控件可用來在窗體、框6610.1.4Shape控件語法：對象名.Shape[=value]其中，對象名是Shape控件的Name屬性；value用來指定控件外觀的整數。其設置值如表10-5所示。常數值描述vbShapeRectangle0矩形，默認值vbShapeSquare1正方形vbShapeOval2橢圓形vbShapeCircle3圓形vbShapeRoundedRectangle4圓角矩形vbShapeRoundedSquare5圓角正方形10.1.4Shape控件語法：對象名.Shape[=va6710.2坐標系統對象定位使用的是容器的坐標系，每個容器都有一個坐標系。坐標系由三要素構成：坐標原點，坐標度量單位（刻度），坐標軸的長度與方向。VB提供兩類坐標系：默認坐標系和自定義坐標系。默認坐標系中原點(0,0)定位于對象容器用戶區的左上角，X軸向右為正方向，Y軸向下為正方向。對象坐標的度量單位由容器對象的ScaleMode屬性決定，共有8種形式的單位，默認為Twip。用ScaleMode屬性只能改變刻度單位，不能改變坐標原點及坐標軸的方向。10.2坐標系統對象定位使用的是容器的坐標系，每個容器都有一6810.2坐標系統建立自定義坐標系更簡單的做法是調用容器對象的Scale方法，語法格式為：[容器對象.]Scale(x1,y1)-(x2,y2)說明：容器對象是指窗體或圖片框，省略時默認為當前窗體。(x1,y1)為左上角的坐標，(x2,y2)為右下角的坐標。注意兩對括號之間的“-”不代表相減。調用Scale方法后，ScaleLeft和ScaleTop屬性分別被設為x1和y1的值。ScaleWidth屬性被設為x2與x1之差，ScaleHeight屬性被設為y2與y1之差。若省略(x1，y1)-(x2，y2)，則恢復默認坐標系統，即以容器對象的左上角為坐標原點。10.2坐標系統建立自定義坐標系更簡單的做法是調用容器對象的6910.3相關屬性和函數10.3.1與繪圖方法有關的屬性

10.3.2與顏色有關的函數10.3相關屬性和函數10.3.1與繪圖方法有關的屬性7010.3.1與繪圖方法有關的屬性1．當前坐標CurrentX，CurrentY屬性給出窗體或圖片框或打印機在繪圖時的當前坐標。這兩個屬性在設計階段不能使用，使用CLS方法后，CurrentX、CurrentY屬性值為0。2．線寬和線型DrawWidth屬性用來返回或設置圖形方法輸出的線寬。屬性值的單位為像素，取值范圍為1~32767，默認值為1。DrawStyle屬性用來返回或設置圖形方法輸出的線型，如表10-6所示。該屬性的設置值0～4的效果分別與Line控件的BordeStyle屬性的1～5對應。若DrawWidth屬性設置值大于1，在DrawStyle屬性被設置為1～4時，只能畫實線。10.3.1與繪圖方法有關的屬性1．當前坐標7110.3.1與繪圖方法有關的屬性2．線寬和線型常數設置值描述常數設置值描述VbSolid0實線(缺省)VbDashDotDot4點點劃線VbDash1虛線VbInvisible5透明線VbDot2點線VbInsideSolid6內實線VbDashDot3點劃線表10-6DrawStyle設置表

10.3.1與繪圖方法有關的屬性2．線寬和線型常數設置值描述7210.3.1與繪圖方法有關的屬性2．線寬和線型常數設置值描述常數設置值描述VbFSSolid0實線VbUpwardDiagonal4上斜對角線VbFSTransparent1透明（缺省）VbDownwardDiagonal5下斜對角線VbHorizontalLine2水平直線VbCross6十字線VbVerticalLine3垂直直線VbDiagonalCross7交叉對角線表10-7FillStyle設置表10.3.1與繪圖方法有關的屬性2．線寬和線型常數設置值描述7310.3.1與繪圖方法有關的屬性3．填充顏色與填充樣式FillColor屬性用于為Line和Circle方法生成的矩形和圓填充顏色。FillStyle屬性用于為Line和Circle方法生成的矩形和圓指定填充的圖案，如表10-7所示。該屬性的設置值與Shape控件的FillStyle屬性相同。除Form對象外，若FillStyle屬性被設置為默認值1（透明），則忽略FillColor屬性的設置值。10.3.1與繪圖方法有關的屬性3．填充顏色與填充樣式7410.3.2與顏色有關的函數顏色的使用是繪圖操作中的重要環節。在程序運行時，有四種方式可以指定顏色值：使用QBColor函數；使用RGB函數；使用內部常數；直接輸入顏色值。1．QBColor函數QBColor函數能夠選擇早期版本的Basic所規定的16種顏色之一。其語法格式為：QBColor(Color)說明：Color是一個界于0~15的整型數，用于指定顏色。表10-8列出了QBColor函數中Color取值所對應的顏色。10.3.2與顏色有關的函數顏色的使用是繪圖操作中的重要環7510.3.2與顏色有關的函數Color取值顏色Color取值顏色0黑8灰1藍9亮藍2綠10亮綠3青11亮青4紅12亮紅5洋紅13亮洋紅6黃14亮黃7白15亮白表10-8QBColor函數中Color的取值與所對應的顏色10.3.2與顏色有關的函數Color取值顏色Color取7610.3.2與顏色有關的函數2．RGB函數RGB函數用來返回一個Long整數，用來表示一個RGB顏色值。其語法格式為：RGB(red,green,blue)說明：red是必需的，Variant(Integer)。數值范圍從0~255，表示顏色的紅色成分。green是必需的，Variant(Integer)。數值范圍從0~255，表示顏色的綠色成分。blue是必需的，Variant(Integer)。數值范圍從0~255，表示顏色的藍色成分。一個RGB顏色指定紅、綠、藍三原色的成分，生成一個用于顯示的特定的顏色。傳給RGB的任何參數的值，如果超過255，會被當做255。表10-9列出了常見的標準顏色RGB的值。10.3.2與顏色有關的函數2．RGB函數7710.3.2與顏色有關的函數2．RGB函數顏色redgreenblue黑000紅25500綠02550藍00255青0255255洋紅2550255黃2552550白255255255表10-9常見的標準顏色RGB的值10.3.2與顏色有關的函數2．RGB函數顏色redgre7810.4圖形方法10.4.1Line方法10.4.2Pset方法10.4.3Circle方法10.4.4PaintPicture方法10.4圖形方法10.4.1Line方法7910.4.1Line方法Line方法用于畫直線或矩形，其語法格式如下：[對象.]Line[[Step](x1,y1)]-[Step](x2,y2)[,Color][,B[F]]說明：（1）對象：可以是窗體或圖片框，若省略則默認為當前窗體。（2）(x1,y1)：線段的起點坐標或矩形的左上角坐標。（3）(x2,y2)：線段的終點坐標或矩形的右下角坐標。（4）Step：表示采用當前作圖位置的相對值。（5）Color：線段或矩形邊線的顏色。若省略，則使用對象的ForeColor屬性值。（6）B：表示畫矩形。（7）F：表示用畫矩形的顏色來填充矩形，F必須與關鍵字B一起使用。如果只用B不用F，則矩形的填充由對象當前的FillColor和FillStyle屬性決定。畫直線時，省略[B][F]參數；畫矩形時，參數B為空心矩形，BF為實心矩形。10.4.1Line方法Line方法用于畫直線或矩形，其語8010.4.1Line方法【例10-3】使用Line方法畫出如圖10-7所示的三角形。首先將窗體的AutoRedraw屬性設置為True。然后編寫代碼如下：PrivateSubForm_Load()Line(100,100)-Step(0,500) '終點采用相對坐標

Line-Step(500,0) '以上次畫線的終點為本次畫線起點

Line-(100,100) '返回最初的起點EndSub圖10-7使用Line方法繪制的三角形10.4.1Line方法【例10-3】使用Line方法畫出8110.4.1Line方法【例10-4】用Line方法在窗體上繪制如圖10-8所示的同心矩形，每當單擊窗體時，矩形的顏色隨機變化。編寫代碼如下：PrivateSubForm_Click()DimCX,CY,F,F1,F2,i '聲明變量

CX=ScaleWidth/2 '水平中點

CY=ScaleHeight/2 '垂直中點

DrawWidth=10 '設置線寬

Fori=50To0Step-4 '從外向內畫矩形

F=i/50 '坐標偏移量系數。

F1=1-F:F2=1+F '計算矩形左上角和右下角坐標偏移量系數。

ForeColor=QBColor(Int(Rnd*16)) '設置前景色為隨機色

Line(CX*F1,CY*F1)-(CX*F2,CY*F2),,BF '使用參數B畫矩形,F參數填充顏色

NextiEndSub圖10-8使用Line方法繪制同心矩形10.4.1Line方法【例10-4】用Line方法在窗體8210.4.2Pset方法Pset方法用于在窗體、圖片框或打印機指定位置上畫點，利用Pset方法可以畫任意曲線。其語法格式如下：[對象.]Pset[Step](x,y)[，Color]說明：（1）參數（x,y）：必需的。x和y是單精度浮點數，即所畫點的水平坐標（x軸）和垂直坐標（y軸）。（2）Step：可選，表示采用當前作圖位置的相對值。（3）Color：可選，長整型數，為該點指定RGB顏色。可用RGB函數或QBColor函數指定顏色。如果省略Color，則使用當前的ForeColor屬性值。如果使用背景顏色，則可清除某個位置上的點。10.4.2Pset方法Pset方法用于在窗體、圖片框或打8310.4.2Pset方法【例10-5】繪制正弦曲線和余弦曲線。程序運行結果如圖10-9所示。圖10-9繪制正弦曲線和余弦曲線10.4.2Pset方法【例10-5】繪制正弦曲線和余弦曲8410.4.2Pset方法本例使用PictureBox控件的Line方法繪制坐標軸，使用其Pset方法描繪曲線。在Form_Load過程中的語句Picture1.Scale(-360,2)-(360,-2)，建立了新坐標系：左上角坐標是(-360,2)，右下角坐標是(360,-2)；坐標原點位于矩形的中心，X軸的正向水平向右，Y軸的正向垂直向上。窗體中除了圖片框Picture1外，還需要四個命令按鈕：繪制正弦曲線的按鈕command1，繪制余弦曲線的按鈕command2，清除圖片框中的內容的按鈕command3，繪制坐標軸的按鈕command4。程序代碼如下：10.4.2Pset方法本例使用PictureBox控件的8510.4.2Pset方法DimStartAngleAsSingle '存起始角DimEndAngleAsSingle 存終止角DimiAsSingleDimRateAsSingle '存角度弧度轉換系數PrivateSubForm_Load() '窗體加載

Picture1.Scale(-360,2)-(360,-2) '建立自定義坐標系

StartAngle=