第十章節(jié)圖形的控制跟處理課件課本新.ppt

第10章圖形的控制與處理,主講：,10.1圖形控件,VB提供的與繪圖有關(guān)的標(biāo)準(zhǔn)控件有圖片框（PictureBox）、圖像框（Image）、直線(xiàn)（Line）和形狀（Shape）。Image、Line、Shape控件需要較少的系統(tǒng)資源，且包含PictureBox中可用的屬性、方法和事件子集，因此他們比PictureBox控件顯示速度快些。PictureBox和Image控件可以顯示位圖、圖標(biāo)、圖元文件中的圖形，也可處理GIF和JPEG格式的圖形文件。,10.1.1PictureBox控件,圖片框（PictureBox）控件的主要作用是在窗體的指定位置為用戶(hù)顯示圖片，也可作為其它控件的容器、顯示Print方法輸出的文本或顯示圖形方法輸出的圖形。實(shí)際顯示的圖片由Picture屬性決定。在工具箱面板中，PictureBox控件的圖標(biāo)如圖10-1所示。,圖10-1PictureBox控件的圖標(biāo),10.1.1PictureBox控件,1、主要屬性,10.1.1PictureBox控件,2、加載圖片,（1）在設(shè)計(jì)階段加載圖片文件有兩種方法：1）通過(guò)設(shè)置屬性窗口中的Picture屬性來(lái)加載圖片，步驟如下：在窗體上建立一個(gè)圖片框保持圖片框?yàn)榧せ畹目丶趯傩源翱谥姓业絇icture屬性，單擊該屬性條，其右側(cè)出現(xiàn)“”按鈕單擊“”按鈕，屏幕顯示“加載圖片”對(duì)話(huà)框，從相應(yīng)文件夾中找到所需加載的圖片，單擊打開(kāi)，圖片即被加載2）利用剪貼板加載用繪圖或圖像處理軟件完成圖形處理，并將圖形復(fù)制到剪貼板中切換到VB，在窗體上建立圖片框，并保持為激活狀態(tài)使用“粘貼”命令，即完成圖片加載,10.1.1PictureBox控件,2、加載圖片,（2）在運(yùn)行階段通過(guò)LoadPicture函數(shù)加載圖片，格式如下：對(duì)象名.Picture=LoadPicture(圖片文件名)例如：加載圖片：Picture1.Picture=LoadPicture(C:PicMyPic1.gif),10.1.1PictureBox控件,3卸載圖片和復(fù)制圖片,（1）卸載圖片卸載圖片文件也有兩種方法：一種是在設(shè)計(jì)階段卸載，另一種是在運(yùn)行階段卸載。在設(shè)計(jì)階段設(shè)置屬性窗口中的Picture屬性為None，在運(yùn)行階段通過(guò)LoadPicture函數(shù)卸載圖片，格式如下：對(duì)象名.Picture=LoadPicture()（2）復(fù)制圖片復(fù)制圖片可以利用Picture屬性和LoadPicture()函數(shù)來(lái)完成，如：Picture1.Picture=LoadPicture(C:PicMyPic1.gif）Picture2.Picture=Picture1.Picture,10.1.1PictureBox控件,4圖形文件的保存,格式：SavePicturepicture,stringexpression說(shuō)明：picture：圖片框?qū)ο蠡蚱渌麑?duì)象的picture屬性Stringexpression：文件名,10.1.1PictureBox控件,5Paint事件,在一個(gè)對(duì)象被移動(dòng)或放大之后，或在一個(gè)覆蓋該對(duì)象的窗體被移開(kāi)之后，該對(duì)象部分或全部暴露時(shí)，此事件發(fā)生。如果AutoRedraw屬性被設(shè)置為T(mén)rue，重新繪圖會(huì)自動(dòng)進(jìn)行，就不需要Paint事件。,10.1.1PictureBox控件,6常用方法,圖片框中常使用Cls方法和Print方法。【例10-1】在C:新建一個(gè)文件夾stu1，將我的文檔中的示例圖片Sunset.JPG復(fù)制到stu1文件夾下。再啟動(dòng)VB，在stu1文件夾下新建一個(gè)工程文件，其布局與運(yùn)行結(jié)果如圖10-2所示。,圖10-2控件布局圖及運(yùn)行結(jié)果圖,10.1.1PictureBox控件,（1）控件選擇：兩個(gè)標(biāo)簽控件：Label1、Label2；兩個(gè)圖片框控件：Picture1、Picture2；三個(gè)命令按鈕：Cmd1、Cmd2、Cmd3（2）控件屬性設(shè)置：,10.1.1PictureBox控件,（3）代碼編寫(xiě)：編寫(xiě)命令按鈕Cmd1的Click事件：PrivateSubCmd1_Click()Picture1.Picture=LoadPicture(App.Path&Sunset.JPG)EndSub編寫(xiě)命令按鈕Cmd2的Click事件：PrivateSubCmd2_Click()Picture2.Picture=Picture1.PictureEndSub編寫(xiě)命令按鈕Cmd3的Click事件：PrivateSubCmd3_Click()Picture1.Picture=LoadPicture()Picture2.Picture=LoadPicture()EndSub說(shuō)明：App.Path用于取得當(dāng)前工程文件所在的文件夾路徑，App.Path&Sunset.JPG指明了Sunset.JPG文件的物理位置。這種方法常被應(yīng)用，可提高程序的可移植性。,10.1.2Image控件,圖像框（Image）控件是一個(gè)簡(jiǎn)單易用的顯示圖像文件的控件，其使用的系統(tǒng)資源較少而且顯示速度較快，它可以自動(dòng)調(diào)整自身的大小以適應(yīng)圖像大小，或者伸縮圖像的大小使圖像適合圖像框控件的大小。Image加載圖片的方法和使用圖片的文件格式與PictureBox相同。在工具箱面板中，Image控件的圖標(biāo)如圖10-3所示。,圖10-3Image控件的圖標(biāo),10.1.2Image控件,1.主要屬性,10.1.2Image控件,2常用事件圖像框可以響應(yīng)Click和DblClick事件3Image與PictureBox的區(qū)別（1）PictureBox是“容器”控件，可以作為父控件，而Image不能作為父控件。也就是說(shuō)，在PictureBox中，可以包含其它控件，作為他的子控件，如果移動(dòng)PictureBox，則框中的控件也隨之一起移動(dòng)，并且與PictureBox的相對(duì)位置保持不變；當(dāng)PictureBox的大小改變時(shí)，這些子控件的圖片控制的相對(duì)位置保持不變，PictureBox內(nèi)的子控件也不能移到PictureBox外。（2）PictureBox可以通過(guò)Print方法接收文本，并可接收由像素組成的圖形，而Image不能接受用Print方法輸入的信息，也不能用繪圖方法在Image上繪制圖形。（3）Image比PictureBox占用內(nèi)存少，顯示速度快。（4）Image沒(méi)有AutoSize屬性，但可以實(shí)現(xiàn)圖形縮放,10.1.2Image控件,【例10-2】在C:新建一個(gè)文件夾stu2，將我的文檔中的示例圖片Sunset.JPG復(fù)制到stu2文件夾下。再啟動(dòng)VB，在stu2文件夾下新建一個(gè)工程文件，其布局與運(yùn)行結(jié)果如圖10-4所示。,圖10-4控件布局圖及運(yùn)行結(jié)果圖,10.1.2Image控件,（1）控件選擇：1個(gè)圖像框Image1；2個(gè)命令按鈕：Command1、Command2（2）控件屬性設(shè)置,10.1.2Image控件,（3）代碼編寫(xiě)：編寫(xiě)命令按鈕Command1的Click事件：PrivateSubCommand1_Click()IfImage1.Height1000OrImage1.Width2000ThenImage1.Height=Image1.Height-500Image1.Width=Image1.Width-500EndIfEndSub編寫(xiě)窗體Form1的Load事件：PrivateSubForm_Load()Image1.Picture=LoadPicture(App.Path&Sunset.JPG)EndSub,10.1.3Line控件,Line控件可用來(lái)在窗體、框架或圖片框中創(chuàng)建各種直線(xiàn)。既可以在設(shè)計(jì)時(shí)通過(guò)設(shè)置直線(xiàn)的端點(diǎn)坐標(biāo)來(lái)畫(huà)直線(xiàn)，又可以在程序運(yùn)行時(shí)動(dòng)態(tài)地改變直線(xiàn)的各種屬性。Line控件主要屬性是BorderWidth、BorderStyle和BorderColor屬性，以及X1、Y1和X2、Y2屬性。BorderWidth確定線(xiàn)的寬度，BorderStyle確定線(xiàn)的形狀，BorderColor確定線(xiàn)的顏色。X1、Y1和X2、Y2屬性控制線(xiàn)的兩個(gè)端點(diǎn)的位置。程序運(yùn)行時(shí)，不能使用Move方法移動(dòng)Line控件，但是可以通過(guò)改變X1、Y1、X2、Y2屬性來(lái)移動(dòng)或調(diào)整直線(xiàn)。在工具箱面板中，Line控件的圖標(biāo)如圖10-5所示。,圖10-5Line控件的圖標(biāo),10.1.4Shape控件,Shape控件可用來(lái)在窗體、框架或圖片框中創(chuàng)建矩形、正方形、橢圓形、圓形、圓角矩形或圓角正方形。通過(guò)設(shè)置Shape控件的Shape屬性來(lái)實(shí)現(xiàn)所需要的形狀，以控制Shape控件的外觀。在工具箱面板中，Shape控件的圖標(biāo)如圖10-6所示。,圖10-6Shape控件的圖標(biāo),10.1.4Shape控件,語(yǔ)法：對(duì)象名.Shape=value其中，對(duì)象名是Shape控件的Name屬性；value用來(lái)指定控件外觀的整數(shù)。其設(shè)置值如表10-5所示。,10.2坐標(biāo)系統(tǒng),對(duì)象定位使用的是容器的坐標(biāo)系，每個(gè)容器都有一個(gè)坐標(biāo)系。坐標(biāo)系由三要素構(gòu)成：坐標(biāo)原點(diǎn)，坐標(biāo)度量單位（刻度），坐標(biāo)軸的長(zhǎng)度與方向。VB提供兩類(lèi)坐標(biāo)系：默認(rèn)坐標(biāo)系和自定義坐標(biāo)系。默認(rèn)坐標(biāo)系中原點(diǎn)(0,0)定位于對(duì)象容器用戶(hù)區(qū)的左上角，X軸向右為正方向，Y軸向下為正方向。對(duì)象坐標(biāo)的度量單位由容器對(duì)象的ScaleMode屬性決定，共有8種形式的單位，默認(rèn)為T(mén)wip。用ScaleMode屬性只能改變刻度單位，不能改變坐標(biāo)原點(diǎn)及坐標(biāo)軸的方向。,10.2坐標(biāo)系統(tǒng),建立自定義坐標(biāo)系更簡(jiǎn)單的做法是調(diào)用容器對(duì)象的Scale方法，語(yǔ)法格式為：容器對(duì)象.Scale(x1,y1)-(x2,y2)說(shuō)明：容器對(duì)象是指窗體或圖片框，省略時(shí)默認(rèn)為當(dāng)前窗體。(x1,y1)為左上角的坐標(biāo)，(x2,y2)為右下角的坐標(biāo)。注意兩對(duì)括號(hào)之間的“-”不代表相減。調(diào)用Scale方法后，ScaleLeft和ScaleTop屬性分別被設(shè)為x1和y1的值。ScaleWidth屬性被設(shè)為x2與x1之差，ScaleHeight屬性被設(shè)為y2與y1之差。若省略(x1，y1)-(x2，y2)，則恢復(fù)默認(rèn)坐標(biāo)系統(tǒng)，即以容器對(duì)象的左上角為坐標(biāo)原點(diǎn)。,10.3相關(guān)屬性和函數(shù),10.3.1與繪圖方法有關(guān)的屬性10.3.2與顏色有關(guān)的函數(shù),10.3.1與繪圖方法有關(guān)的屬性,1當(dāng)前坐標(biāo)CurrentX，CurrentY屬性給出窗體或圖片框或打印機(jī)在繪圖時(shí)的當(dāng)前坐標(biāo)。這兩個(gè)屬性在設(shè)計(jì)階段不能使用，使用CLS方法后，CurrentX、CurrentY屬性值為0。2線(xiàn)寬和線(xiàn)型DrawWidth屬性用來(lái)返回或設(shè)置圖形方法輸出的線(xiàn)寬。屬性值的單位為像素，取值范圍為132767，默認(rèn)值為1。DrawStyle屬性用來(lái)返回或設(shè)置圖形方法輸出的線(xiàn)型，如表10-6所示。該屬性的設(shè)置值04的效果分別與Line控件的BordeStyle屬性的15對(duì)應(yīng)。若DrawWidth屬性設(shè)置值大于1，在DrawStyle屬性被設(shè)置為14時(shí)，只能畫(huà)實(shí)線(xiàn)。,10.3.1與繪圖方法有關(guān)的屬性,2線(xiàn)寬和線(xiàn)型,表10-6DrawStyle設(shè)置表,10.3.1與繪圖方法有關(guān)的屬性,2線(xiàn)寬和線(xiàn)型,表10-7FillStyle設(shè)置表,10.3.1與繪圖方法有關(guān)的屬性,3填充顏色與填充樣式FillColor屬性用于為L(zhǎng)ine和Circle方法生成的矩形和圓填充顏色。FillStyle屬性用于為L(zhǎng)ine和Circle方法生成的矩形和圓指定填充的圖案，如表10-7所示。該屬性的設(shè)置值與Shape控件的FillStyle屬性相同。除Form對(duì)象外，若FillStyle屬性被設(shè)置為默認(rèn)值1（透明），則忽略FillColor屬性的設(shè)置值。,10.3.2與顏色有關(guān)的函數(shù),顏色的使用是繪圖操作中的重要環(huán)節(jié)。在程序運(yùn)行時(shí)，有四種方式可以指定顏色值：使用QBColor函數(shù)；使用RGB函數(shù)；使用內(nèi)部常數(shù)；直接輸入顏色值。1QBColor函數(shù)QBColor函數(shù)能夠選擇早期版本的Basic所規(guī)定的16種顏色之一。其語(yǔ)法格式為：QBColor(Color)說(shuō)明：Color是一個(gè)界于015的整型數(shù)，用于指定顏色。表10-8列出了QBColor函數(shù)中Color取值所對(duì)應(yīng)的顏色。,10.3.2與顏色有關(guān)的函數(shù),表10-8QBColor函數(shù)中Color的取值與所對(duì)應(yīng)的顏色,10.3.2與顏色有關(guān)的函數(shù),2RGB函數(shù)RGB函數(shù)用來(lái)返回一個(gè)Long整數(shù)，用來(lái)表示一個(gè)RGB顏色值。其語(yǔ)法格式為：RGB(red,green,blue)說(shuō)明：red是必需的，Variant(Integer)。數(shù)值范圍從0255，表示顏色的紅色成分。green是必需的，Variant(Integer)。數(shù)值范圍從0255，表示顏色的綠色成分。blue是必需的，Variant(Integer)。數(shù)值范圍從0255，表示顏色的藍(lán)色成分。一個(gè)RGB顏色指定紅、綠、藍(lán)三原色的成分，生成一個(gè)用于顯示的特定的顏色。傳給RGB的任何參數(shù)的值，如果超過(guò)255，會(huì)被當(dāng)做255。表10-9列出了常見(jiàn)的標(biāo)準(zhǔn)顏色RGB的值。,10.3.2與顏色有關(guān)的函數(shù),2RGB函數(shù),表10-9常見(jiàn)的標(biāo)準(zhǔn)顏色RGB的值,10.4圖形方法,10.4.1Line方法10.4.2Pset方法10.4.3Circle方法10.4.4PaintPicture方法,10.4.1Line方法,Line方法用于畫(huà)直線(xiàn)或矩形，其語(yǔ)法格式如下：對(duì)象.LineStep(x1,y1)-Step(x2,y2),Color,BF說(shuō)明：（1）對(duì)象：可以是窗體或圖片框，若省略則默認(rèn)為當(dāng)前窗體。（2）(x1,y1)：線(xiàn)段的起點(diǎn)坐標(biāo)或矩形的左上角坐標(biāo)。（3）(x2,y2)：線(xiàn)段的終點(diǎn)坐標(biāo)或矩形的右下角坐標(biāo)。（4）Step：表示采用當(dāng)前作圖位置的相對(duì)值。（5）Color：線(xiàn)段或矩形邊線(xiàn)的顏色。若省略，則使用對(duì)象的ForeColor屬性值。（6）B：表示畫(huà)矩形。（7）F：表示用畫(huà)矩形的顏色來(lái)填充矩形，F(xiàn)必須與關(guān)鍵字B一起使用。如果只用B不用F，則矩形的填充由對(duì)象當(dāng)前的FillColor和FillStyle屬性決定。畫(huà)直線(xiàn)時(shí)，省略BF參數(shù)；畫(huà)矩形時(shí)，參數(shù)B為空心矩形，BF為實(shí)心矩形。,10.4.1Line方法,【例10-3】使用Line方法畫(huà)出如圖10-7所示的三角形。首先將窗體的AutoRedraw屬性設(shè)置為T(mén)rue。然后編寫(xiě)代碼如下：PrivateSubForm_Load()Line(100,100)-Step(0,500)終點(diǎn)采用相對(duì)坐標(biāo)Line-Step(500,0)以上次畫(huà)線(xiàn)的終點(diǎn)為本次畫(huà)線(xiàn)起點(diǎn)Line-(100,100)返回最初的起點(diǎn)EndSub,圖10-7使用Line方法繪制的三角形,10.4.1Line方法,【例10-4】用Line方法在窗體上繪制如圖10-8所示的同心矩形，每當(dāng)單擊窗體時(shí)，矩形的顏色隨機(jī)變化。編寫(xiě)代碼如下：PrivateSubForm_Click()DimCX,CY,F,F1,F2,i聲明變量CX=ScaleWidth/2水平中點(diǎn)CY=ScaleHeight/2垂直中點(diǎn)DrawWidth=10設(shè)置線(xiàn)寬Fori=50To0Step-4從外向內(nèi)畫(huà)矩形F=i/50坐標(biāo)偏移量系數(shù)。F1=1-F:F2=1+F計(jì)算矩形左上角和右下角坐標(biāo)偏移量系數(shù)。ForeColor=QBColor(Int(Rnd*16)設(shè)置前景色為隨機(jī)色Line(CX*F1,CY*F1)-(CX*F2,CY*F2),BF使用參數(shù)B畫(huà)矩形,F參數(shù)填充顏色NextiEndSub,圖10-8使用Line方法繪制同心矩形,10.4.2Pset方法,Pset方法用于在窗體、圖片框或打印機(jī)指定位置上畫(huà)點(diǎn)，利用Pset方法可以畫(huà)任意曲線(xiàn)。其語(yǔ)法格式如下：對(duì)象.PsetStep(x,y)，Color說(shuō)明：（1）參數(shù)（x,y）：必需的。x和y是單精度浮點(diǎn)數(shù)，即所畫(huà)點(diǎn)的水平坐標(biāo)（x軸）和垂直坐標(biāo)（y軸）。（2）Step：可選，表示采用當(dāng)前作圖位置的相對(duì)值。（3）Color：可選，長(zhǎng)整型數(shù)，為該點(diǎn)指定RGB顏色?？捎肦GB函數(shù)或QBColor函數(shù)指定顏色。如果省略Color，則使用當(dāng)前的ForeColor屬性值。如果使用背景顏色，則可清除某個(gè)位置上的點(diǎn)。,10.4.2Pset方法,【例10-5】繪制正弦曲線(xiàn)和余弦曲線(xiàn)。程序運(yùn)行結(jié)果如圖10-9所示。,圖10-9繪制正弦曲線(xiàn)和余弦曲線(xiàn),10.4.2Pset方法,本例使用PictureBox控件的Line方法繪制坐標(biāo)軸，使用其Pset方法描繪曲線(xiàn)。在Form_Load過(guò)程中的語(yǔ)句Picture1.Scale(-360,2)-(360,-2)，建立了新坐標(biāo)系：左上角坐標(biāo)是(-360,2)，右下角坐標(biāo)是(360,-2)；坐標(biāo)原點(diǎn)位于矩形的中心，X軸的正向水平向右，Y軸的正向垂直向上。窗體中除了圖片框Picture1外，還需要四個(gè)命令按鈕：繪制正弦曲線(xiàn)的按鈕command1，繪制余弦曲線(xiàn)的按鈕command2，清除圖片框中的內(nèi)容的按鈕command3，繪制坐標(biāo)軸的按鈕command4。程序代碼如下：,10.4.2Pset方法,DimStartAngleAsSingle存起始角DimEndAngleAsSingle存終止角DimiAsSingleDimRateAsSingle存角度弧度轉(zhuǎn)換系數(shù)PrivateSubForm_Load()窗體加載Picture1.Scale(-360,2)-(360,-2)建立自定義坐標(biāo)系StartAngle=-360起始角EndAngle=360終止角Picture1.CurrentX=-360繪圖起點(diǎn)坐標(biāo)Picture1.CurrentY=0Rate=3.1416/180角度弧度轉(zhuǎn)換系數(shù)EndSubPrivateSubcommand1_Click()正弦曲線(xiàn)Fori=StartAngleToEndAnglePicture1.PSet(i,Sin(i*Rate)NextEndSubPrivateSubcommand2_Click()余弦曲線(xiàn)Fori=StartAngleToEndAnglePicture1.PSet(i,Cos(i*Rate)NextEndSubPrivateSubcommand3_Click()清除Picture1.ClsEndSubPrivateSubcommand4_Click()畫(huà)坐標(biāo)軸Picture1.Line(-360,0)-(360,0)X軸Picture1.Line(0,2)-(0,-2)Y軸EndSub,10.4.3Circle方法,Circle方法用于畫(huà)圓、橢圓、圓弧和扇形，其語(yǔ)法格式如下：對(duì)象.CircleStep(x,y),r,color,起始角,終止角,縱橫比說(shuō)明：（1）對(duì)象：可以是窗體、圖片框或打印機(jī)，省略時(shí)默認(rèn)為當(dāng)前窗體。（2）Step：表示采用當(dāng)前作圖位置的相對(duì)值。（3）（x,y）：圓心坐標(biāo)。（4）r：半徑。（5）color：指定圓周邊線(xiàn)的顏色。若省略，則使用ForeColor屬性值?？梢允褂盟鶎賹?duì)象的FillColor和FillStyle屬性填充封閉的圖形。（6）起始角和終止角：圓弧和扇形通過(guò)參數(shù)起始角、終止角控制。當(dāng)起始角、終止角取值在02時(shí)為圓弧。當(dāng)在起始角、終止角的取值前加一負(fù)號(hào)時(shí)，畫(huà)出扇形，負(fù)號(hào)表示從圓心到圓弧端點(diǎn)畫(huà)徑向線(xiàn)。（7）縱橫比：控制畫(huà)橢圓，默認(rèn)值為1，畫(huà)標(biāo)準(zhǔn)圓。注意：在VB坐標(biāo)系中，采用逆時(shí)針?lè)较蚶L圓。Circle方法中參數(shù)前出現(xiàn)的負(fù)號(hào)，并不能改變坐標(biāo)系中旋轉(zhuǎn)的方向。使用Circle方法時(shí)，如果想省掉中間的參數(shù)，逗號(hào)不能省略。例如：畫(huà)橢圓省掉了顏色、起始角、終止角三個(gè)參數(shù)，則必須加上四個(gè)連續(xù)的逗號(hào)，它表明這三個(gè)參數(shù)被省掉了。,10.4.3Circle方法,【例10-6】用Circle方法畫(huà)圓、橢圓、圓弧和扇形，運(yùn)行結(jié)果如圖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方法畫(huà)圓、橢圓、圓弧和扇形,10.4.4PaintPicture方法,PaintPicture方法用來(lái)把一個(gè)窗體或圖