1、9.1 坐標系統坐標系統-9.1.1 VB9.1.1 VB坐標系統坐標系統 構成一個坐標系需要三要素：構成一個坐標系需要三要素： 坐標原點、坐標軸的方向和坐標度量單位。坐標原點、坐標軸的方向和坐標度量單位。 在在VBVB中，任何容器的默認坐標原點（中，任何容器的默認坐標原點（0,00,0）在）在容器對象的左上角容器對象的左上角 ScaleTopScaleTop和和ScaleLeftScaleLeft屬性用于重定義容器對屬性用于重定義容器對象的左上角坐標，改變坐標系的原點位置。象的左上角坐標，改變坐標系的原點位置。 例例9.1 自定義窗體的坐標原點，通過將控件移動到自定義窗體的坐標原點，通過將控

2、件移動到該新的原點檢驗原點的位置。該新的原點檢驗原點的位置。9.1 坐標系統坐標系統-9.1.1 VB9.1.1 VB坐標系統坐標系統 與位置和大小有關的屬性與位置和大小有關的屬性 ScaleWidthScaleHeightHeightWidth(Left,Top)(ScaleLeft,ScaleTop)圖圖9.3 與位置和大小有關的屬性與位置和大小有關的屬性9.1 坐標系統坐標系統- 9.1.29.1.2自定義坐標系自定義坐標系 1自定義坐標系自定義坐標系用用Scale方法可以定義各種容器對象的坐標系，格式如下：方法可以定義各種容器對象的坐標系，格式如下： 對象名對象名.Scale (xLe

3、ft,yTop)-(xRight,yBottom) 說明：說明： （1 1）對象可以是）對象可以是FormForm，也可以，也可以PictureBoxPictureBox； （2 2）(xLeft,yTop(xLeft,yTop) )為容器對象左上角的坐標值；為容器對象左上角的坐標值；(xRight,yBotton(xRight,yBotton) )為容器對象右下角的坐標值。為容器對象右下角的坐標值。 （3 3）根據給定的坐標參數可以計算出）根據給定的坐標參數可以計算出ScaleLeftScaleLeft、ScaleTopScaleTop、ScaleWidthScaleWidth和和Scale

4、HeightScaleHeight的值，有以下等式關系：的值，有以下等式關系： ScaleLeft=xLeftScaleLeft=xLeft ScaleTop=yTop ScaleTop=yTop ScaleWidth=xRight-xLeft ScaleWidth=xRight-xLeft ScaleHeight=yBotton-yTop ScaleHeight=yBotton-yTop9.1 坐標系統坐標系統- 9.1.29.1.2自定義坐標系自定義坐標系 2當前坐標當前坐標 CurrentX和和CurrentY屬性給出這些容器對象的當前坐標。屬性給出這些容器對象的當前坐標。 例例9.3

5、在窗體上有一圖片框在窗體上有一圖片框Picture1Picture1，該控件的，該控件的ScaleLeftScaleLeft=-=-200200，ScaleTopScaleTop=200=200，ScaleWidthScaleWidth=400=400，ScaleHeightScaleHeight=-400=-400。要求。要求當單擊當單擊Picture1Picture1時，在圖片框時，在圖片框Picture1Picture1上畫一條起始點為（上畫一條起始點為（0,00,0），），終止點為（終止點為（200,200200,200）的直線。使用）的直線。使用ScaleScale方法重新定義方法重

6、新定義Picture1Picture1的的坐標系，并根據新的坐標系，畫出坐標系，并根據新的坐標系，畫出x x坐標軸、坐標軸、y y坐標軸和坐標原點坐標軸和坐標原點（0,00,0）。運行效果如圖）。運行效果如圖9.49.4所示。所示。 圖圖9.4 例例9.3運行效果圖運行效果圖 9.2繪圖屬性繪圖屬性 9.2.1 DrawWidth9.2.1 DrawWidth和和DrawStyleDrawStyle屬性屬性DrawWidthDrawWidth屬性用來指定窗體、圖片框或打印機所畫線的寬度或屬性用來指定窗體、圖片框或打印機所畫線的寬度或點的大小。點的大小。DrawWidthDrawWidth屬性以

7、像素為單位來度量，最小值為屬性以像素為單位來度量，最小值為1 1。DrawStyleDrawStyle屬性用來指定窗體、圖片框或打印機所畫線的形狀。屬性用來指定窗體、圖片框或打印機所畫線的形狀。 表表9.2 DrawStyle9.2 DrawStyle屬性設置屬性設置設置值設置值線線 型型圖圖 示示0實線（默認）實線（默認）1長劃線長劃線-2點線點線.3點劃線點劃線 4點點劃線點點劃線 5透明線透明線6內實線內實線 9.2繪圖屬性繪圖屬性 9.2.2顏色和填充顏色和填充 封閉圖形的填充方式由封閉圖形的填充方式由FillStyleFillStyle、FillColorFillColor屬性決定屬

8、性決定 FillColorFillColor指定填充圖案的顏色，默認的顏色與指定填充圖案的顏色，默認的顏色與ForeColorForeColor相同。相同。 FillStyleFillStyle屬性指定填充的圖案，共有屬性指定填充的圖案，共有8 8種內部圖案，屬性設置填充圖種內部圖案，屬性設置填充圖案如圖案如圖9.69.6所示。所示。圖圖9.6 FillStyle屬性指定填充的屬性指定填充的8種圖案種圖案9.2繪圖屬性繪圖屬性 9.2.2顏色和填充顏色和填充 1RGB函數格式如下：函數格式如下： RGB(Red，Green，Blue) 其中，其中，Red、Green和和Blue分別代表紅色、綠

9、色和藍色成分，取分別代表紅色、綠色和藍色成分，取值范圍為值范圍為0255。 2QBColor函數格式如下：函數格式如下： QBColor（顏色碼）（顏色碼） 其中，顏色碼使用其中，顏色碼使用015之間的整數，每個顏色碼代表一種顏色之間的整數，每個顏色碼代表一種顏色 3顏色常量顏色常量 Vb+英文顏色單詞英文顏色單詞 VBRed、vbBlue等等9.3圖形控件圖形控件-9.3.1 Line 控件控件 VB提供了四個基本圖形控件，它們分別是提供了四個基本圖形控件，它們分別是PictureBox、Image、Shape和和Line。 Line控件位于工具箱上控件位于工具箱上 1BorderStyle

10、屬性屬性 BorderStyle屬性用于返回或設置圖形邊框或線條的形狀，屬性用于返回或設置圖形邊框或線條的形狀，取值范圍為取值范圍為06 2BorderWidth屬性屬性 BorderWidth屬性用于返回或設置圖形邊框或線條的寬度。屬性用于返回或設置圖形邊框或線條的寬度。 3BorderColor屬性屬性 BorderColor屬性用于返回或設置圖形邊框或線條顏色。屬性用于返回或設置圖形邊框或線條顏色。9.3圖形控件圖形控件-9.3.2 Shape 控件控件 Shape控件屬于標準控件，在工具箱中的圖標為控件屬于標準控件，在工具箱中的圖標為 Shape控件的主要屬性有：控件的主要屬性有： B

11、orderWidth和和BorderStyle屬性與屬性與Line控件的相關屬性相同控件的相關屬性相同 FillStyle屬性指定填充的圖案，共有屬性指定填充的圖案，共有8種內部圖案；種內部圖案； FillColor指定填充圖案的顏色，默認的顏色與指定填充圖案的顏色，默認的顏色與ForeColor相同；相同； Shape屬性指定所需要的幾何形狀，取值范圍是屬性指定所需要的幾何形狀，取值范圍是05， 圖圖9.8 Shape屬性值與對應的幾何形狀屬性值與對應的幾何形狀9.4繪圖方法繪圖方法-9.4.1 Line方法方法 Line Line方法用于在指定的對象（如窗體、圖形框）中繪制方法用于在指定的

12、對象（如窗體、圖形框）中繪制線段或者矩形，語法格式如下：線段或者矩形，語法格式如下： 對象名對象名.Line Step(X1,Y1)-Step(X2,Y2),Color,BF.Line Step(X1,Y1)-Step(X2,Y2),Color,BF 【說明【說明】 （1 1）(X1,Y1)(X1,Y1)：起點坐標。如果省略該參數，圖形起始于由：起點坐標。如果省略該參數，圖形起始于由CurrentXCurrentX和和CurrentYCurrentY指示的位置。指示的位置。 （2 2）(X2,Y2)(X2,Y2)：終點坐標。：終點坐標。 （3 3）StepStep：表示采用當前作圖位置的相對值

13、。當在：表示采用當前作圖位置的相對值。當在(X1,Y1)(X1,Y1)前出現前出現StepStep時，時，(X1,Y1)(X1,Y1)表示相對于當前坐標位置的坐標。當在表示相對于當前坐標位置的坐標。當在(X2,Y2)(X2,Y2)前出現前出現StepStep時，時，(X2,Y2)(X2,Y2)表示相對于圖形起點的終點坐標。表示相對于圖形起點的終點坐標。 （4 4）ColorColor：圖形顏色。：圖形顏色。 （5 5）B B：畫出矩形。以：畫出矩形。以(X1,Y1)(X1,Y1)、(X2,Y2)(X2,Y2)為對角坐標畫出矩形。為對角坐標畫出矩形。 （6 6）F F：規定矩形以及矩形邊框的顏色

14、填充。如果選擇了：規定矩形以及矩形邊框的顏色填充。如果選擇了B B參數后再選參數后再選擇擇F F參數，則所畫的矩形將用矩形邊框的顏色填充。如果不使用參數，則所畫的矩形將用矩形邊框的顏色填充。如果不使用F F參數只參數只使用使用B B參數，則所畫的矩形用當前容器對象的參數，則所畫的矩形用當前容器對象的FillColorFillColor和和FillStyleFillStyle填填充。充。F F參數必須和參數必須和B B參數一起使用。參數一起使用。9.4繪圖方法繪圖方法- 9.4.2 Circle方法方法 Circle方法用于畫圓、橢圓、圓弧和扇形，格式如下：方法用于畫圓、橢圓、圓弧和扇形，格式如

15、下：對象名對象名.Circle Step(x,y),半徑半徑,顏色顏色,起始角起始角,終止角終止角,長短長短軸比率軸比率 【說明【說明】 （1 1）對象名：表示要繪制圖形的容器的名稱，如窗體、圖片框等，缺）對象名：表示要繪制圖形的容器的名稱，如窗體、圖片框等，缺省為當前窗體。省為當前窗體。 （2 2）StepStep：表示點：表示點(x,y(x,y) )是相對于當前位置（有是相對于當前位置（有CurrentXCurrentX和和CurrentYCurrentY屬屬性決定）的坐標點，否則為絕對坐標。性決定）的坐標點，否則為絕對坐標。 （3 3）(x,y(x,y) )：表示圓、橢圓、圓弧和扇形的圓

16、心坐標。：表示圓、橢圓、圓弧和扇形的圓心坐標。 （4 4）起始角：指定弧的起點位置（以弧度為單位）。取值范圍為：）起始角：指定弧的起點位置（以弧度為單位）。取值范圍為：- -2222。缺省值為。缺省值為0 0（水平軸的正方向），若為負數，則在畫弧的同時（水平軸的正方向），若為負數，則在畫弧的同時還要畫出圓心到弧的起點的連線。還要畫出圓心到弧的起點的連線。 （5 5）終止角：指定弧的起點位置（以弧度為單位）。取值范圍為：）終止角：指定弧的起點位置（以弧度為單位）。取值范圍為：- -2222。缺省值為。缺省值為22（從水平軸的正方向逆時針旋轉（從水平軸的正方向逆時針旋轉360360），若為），若為

17、負數，則在畫弧的同時還要畫出圓心到弧的終點的連線。負數，則在畫弧的同時還要畫出圓心到弧的終點的連線。 （6 6）長短軸比率：橢圓的縱軸和橫軸的尺寸比。缺省值為）長短軸比率：橢圓的縱軸和橫軸的尺寸比。缺省值為1 1，表示畫一，表示畫一個標準圓。當縱橫比大于個標準圓。當縱橫比大于1 1時，橢圓的縱軸比橫軸長；當縱橫比小于時，橢圓的縱軸比橫軸長；當縱橫比小于1 1時，時，橢圓的縱軸比橫軸短。橢圓的縱軸比橫軸短。 9.4繪圖方法繪圖方法- 9.4.3 PSet9.4.3 PSet方法方法 Pset方法用于在窗體、圖片框或打印機指定方法用于在窗體、圖片框或打印機指定位置上畫點，其語法格式如下：位置上畫點

18、，其語法格式如下： 對象名對象名. Pset Step(x,y) ,Color 其中，其中，(x,y)為所畫點的坐標；為所畫點的坐標；Step表示采用當前作圖位置表示采用當前作圖位置的相對值；的相對值；Color為點的顏色。為點的顏色。 采用背景顏色可清除某個位置上的點。利用采用背景顏色可清除某個位置上的點。利用Pset方法可畫任方法可畫任意曲線。意曲線。9.4繪圖方法繪圖方法- 9.4.4 Point方法方法 Point方法用于返回窗體或圖片框上指定點的方法用于返回窗體或圖片框上指定點的RGB顏色，其語法格式如下：顏色，其語法格式如下： 對象名對象名. Point(x,y),Color 例例

19、9.13 用用PointPoint方法按行和列掃描方法按行和列掃描PicturePicture控件上的控件上的圖形信息，用圖形信息，用PsetPset方法進行仿真輸出到窗體上。方法進行仿真輸出到窗體上。9.5 圖層圖層 關于圖層，通俗一點講就是圖形的疊放層次。關于圖層，通俗一點講就是圖形的疊放層次。 在在VB中，圖形由三個不同的圖形層構成：中，圖形由三個不同的圖形層構成： 最頂層最頂層：工具箱中除：工具箱中除Label控件、控件、Line控件、控件、Shape控件外的控件外的控件對象。控件對象。 中間層中間層：工具箱中：工具箱中Label控件、控件、Line控件和控件和Shape控件。控件。

20、最底層最底層：由圖形方法繪制的永久圖形。：由圖形方法繪制的永久圖形。 使用使用ZOrder方法可以對同一層次的對象順序進行調方法可以對同一層次的對象順序進行調整。格式如下：整。格式如下： 對象名對象名.ZOrder Position Position：是一個整數。為：是一個整數。為“0”表示該控件被定位于表示該控件被定位于Z序列的序列的前面，為前面，為“1”表示該控件被定位于表示該控件被定位于Z序列的后面。序列的后面。 9.6 圖形處理技術圖形處理技術 1 1SavePictureSavePicture方法方法 使用使用SavePictureSavePicture語句可以實現將語句可以實現將P

21、icturePicture或或ImageImage屬性中的圖形保存到屬性中的圖形保存到指定的文件中。窗體或圖片框都有一個指定的文件中。窗體或圖片框都有一個ImageImage屬性，該屬性在設計時不屬性，該屬性在設計時不可用，只能在代碼窗口中使用。可用，只能在代碼窗口中使用。 SavePictureSavePicture方法的語法格式如下：方法的語法格式如下： SavePictureSavePicture 對象名對象名.Picture , FileName.Picture , FileName 或者：或者： SavePictureSavePicture 對象名對象名.Image , FileNa

22、me.Image , FileName 【說明【說明】 （1 1）該方法可以把裝在窗體、圖片框、圖像框內的圖形保存到磁）該方法可以把裝在窗體、圖片框、圖像框內的圖形保存到磁盤文件內。盤文件內。 （2 2）“對象名對象名”：可以是窗體、：可以是窗體、PictureBoxPictureBox控件、控件、ImageImage控件。控件。 （3 3）“FileNameFileName”：為指定的帶有擴展名的文件，保存的圖形文：為指定的帶有擴展名的文件，保存的圖形文件格式可以是件格式可以是.bmp.bmp、.ico.ico、.gjf.gjf、.jpg.jpg、.wmf.wmf和和.emf.emf。 （4

23、 4）用圖形方法（用圖形方法（Line方法、方法、Circle方法、方法、Pset方法、方法、Point方法方法和和Print方法）繪制的圖形應使用方法）繪制的圖形應使用Image屬性保存。屬性保存。 9.6 圖形處理技術圖形處理技術 2 2PaintPicturePaintPicture方法方法對于像素操作可使用對于像素操作可使用PsetPset方法和方法和PointPoint方法。方法。PsetPset生成像素，而生成像素，而PointPoint讀取像素值。如果對整個圖形進行逐個像素的操作，使用這讀取像素值。如果對整個圖形進行逐個像素的操作，使用這兩個方法顯得速度比較慢。兩個方法顯得速度比

24、較慢。VBVB提供的提供的PaintPicturePaintPicture方法可從一個方法可從一個窗體或圖片框控件中向另一個對象復制一個矩形區域的像素，其窗體或圖片框控件中向另一個對象復制一個矩形區域的像素，其語法格式如下：語法格式如下： Dpic.PaintPicture spic,dx,dy,dw,dh,sx,sy,sw,sh,ropDpic.PaintPicture spic,dx,dy,dw,dh,sx,sy,sw,sh,rop說明說明 使用使用PaintPicture方法不但可以復制圖像，而且還可以水平翻方法不但可以復制圖像，而且還可以水平翻轉圖像、垂直翻轉圖像、放大和縮小圖像、旋轉

25、圖像。轉圖像、垂直翻轉圖像、放大和縮小圖像、旋轉圖像。 9.6 圖形處理技術圖形處理技術 3 3PaintPaint事件、事件、ResizeResize事件、事件、RefreshRefresh事件事件PaintPaint事件事件 在一個對象被移動或放大之后，或在一個覆蓋該對象的在一個對象被移動或放大之后，或在一個覆蓋該對象的窗體被移開之后，該對象部分或全部暴露時，發生窗體被移開之后，該對象部分或全部暴露時，發生PaintPaint事件；使用事件；使用RefreshRefresh方法時也將觸發方法時也將觸發PaintPaint事件。事件。 如果如果AutoRedrawAutoRedraw屬性被設置為屬性被設置為TrueTrue，重新繪圖將自動進，重新繪圖將自動進行，此時行，此時PaintPaint事件無效。事件無效。ResizeResize事件事件 當窗體大小發生變化時會觸發當窗體大小發生變化時會觸發ReSizeReSize事件，因此，可以事件，因此，可以在在ReSizeReSize事件過程中調用事件過程中調用RefreshRefresh方法，強制對象通過方法，強制對象通過PaintPaint事件重畫圖形。事件重