第九章vb60圖形程序設(shè)計

1、第九章圖形程序設(shè)計9.1 圖形控件圖形控件包括圖片框控件、圖像框控件、直線控件和形狀控件4種，其中圖片框和圖像框是用來放置圖片的，在第5章中已經(jīng)介紹過，本節(jié)介紹另外兩種圖形控件。 9.1.1直線控件 直線控件用來創(chuàng)建直線。它的使用方法與其他控件相同，在工具箱中單擊直線控件圖標，將鼠標移動到窗體上，在所需位置開始拖動鼠標，拖動到合適處后釋放鼠標，則在鼠標的拖動起點與終點之間就出現(xiàn)了一段直線，如圖9.1所示。 單擊直線可選中它，并且在直線的兩端出現(xiàn)兩個小方塊。將鼠標指針移動到某個方塊上，則指針變成一個十字形，此時拖動鼠標，可以更改該直線的長度與方向，如圖9.2所示。也一可以拖動鼠標來改變直線的位置

2、。 直線控件的屬性較其他控件要少得多，主要用來設(shè)置直線的寬度、顏色以及線型等。 只有直線的寬度為1（BorderWidth=1）時，BorderStyle屬性的7個取值才都有效，否則BorderStyle屬性的取值只有0和6有效。例如，直線的寬度為2時，不能將其設(shè)置為虛線。如圖9.3所示的是各種線型的比較，從上到下，各直線控件的BorderStyle屬性的值依次為16。 與其他控件不同的是，直線控件沒有任何事件。因此，在程序運行時，它不能響應(yīng)用戶的任何操作。9.1.2 形狀控件使用形狀控件可以方便地在窗體上繪制出矩形、正方形、圓、橢圓、圓角矩形和圓角正方形等5種基本幾何圖形。使用形狀控件的方法

3、與其他控件相同，這里不再贅述。 形狀控件的Shape屬性是它很主要的一個屬性，該屬性決定了形狀控件所繪制圖形的類型。表9.3中列出了Shape屬性的值及含義。 形狀控件也有BorderColor、BorderStyle和BorderWidth屬性，且含義與直線控件相同。在默認情況下，使用圖形控件繪制出的圖形的背景是透明的，這是因為在默認情況下BackStyle屬性的值為0透明）.將該屬性的值設(shè)置為l.即可在BaekColor屬性中指定圖形的背景顏色。 形狀控件的另一個重要屬性是Fi1lStyle屬性，該屬性用來決定圖形的填充樣式，表9.4中列出了它的取值及含義。 如果圖形的填充樣式不是透明的，

4、即Fi1lStyle屬性的值不為l.則可以通過Fi1lColor屬性設(shè)置圖形的填充顏色。 圖形的各種填充效果，從左到右各圖形的Fil1StyIe屬性的值依次為07。運行該程序，窗體如圖9.7所示。單擊【形狀】設(shè)置區(qū)中的某單選按鈕，則右邊的圖形就會變成所選的形狀，單擊【填充】設(shè)置區(qū)巾的某單選按鈕，則圖形就會以所選的樣式填充。 如圖9.8所示的是選中【橢圓】與【對角交叉線】單選按鈕后的效果。9.2 坐標系統(tǒng)在VB中，控件放置在窗體或圖片框等對象中，而窗體又放置在屏幕對象中，這些能夠放置其他對象的對象稱為容器，如窗體、圖片框與屏幕都是容器。 每個容器都有一個坐標系統(tǒng)，以便為對象的定位提供參考。容器坐

5、標系統(tǒng)的默認設(shè)置是：容器的左上角為坐標的原點。橫向向右為K軸的正方向，縱向向下為Y軸的正方向。如圖9.9所示的是窗體對象的默認坐標系統(tǒng)。 坐標的度量單位由容器對象的ScaleMode屬性決定，ScaleMode屬性的值與對應(yīng)的度量單位如表9.6所示。 對象的Left和Top屬性決定了該對象左上角在容器內(nèi)的坐標，Width和Height屬性決定了對象的大小，它們的單位總是與容器的度量單位相同。如果改變了容器的度量單位，則這4個屬性的值都會發(fā)生相應(yīng)的變化，以適應(yīng)新的坐標系統(tǒng)，對象的實際大小與位置并不會改變。 使用默認的坐標系統(tǒng)有時很不方便，用戶可以根據(jù)具體的需要重新定義容器的坐標系統(tǒng)。 屬性Sca

6、leWidth和ScaleHeight的值分別用來設(shè)置容器坐標系x軸與Y軸的正方向及最大坐標值。X軸的度量單位為容器當(dāng)前寬度的1/ScaleWidth、Y軸的度量單位為對象當(dāng)前寬度的1/ScaleHeight。如果ScaleWidth的值小于0，則x軸的正向向上；如果ScaleHeight的值小于0,則Y軸的正向向上。屬性ScaleTop與ScaleLeft的值用來設(shè)置容器左上角的坐標。例如，將窗體的坐標屬性設(shè)置為如表9.7所示，則對應(yīng)的窗體坐標系統(tǒng)如圖9.10所示，坐標原點定位在窗體的中點。 如果將窗體的坐標屬性設(shè)置為如表9.8所示，則對應(yīng)的窗體坐標系統(tǒng)如圖9.11所示，坐標原點定位在窗體的

7、左下角，同時Y軸的正方向向上，這是符合人們習(xí)慣的一種坐標系統(tǒng)。 自定義坐標系統(tǒng)最簡單的方法是使用Sacle方法，其語法如下： 對象.Scale（xl,y1）,（x2,y2） 其中對象可以是窗體或圖片框，參數(shù)（x1,y1）用來定義對象左上角的坐標值，參數(shù)（x2,y2）用來定義對象右下角的坐標值。 例如，如圖9.50所示的坐標系統(tǒng)可以使用如下語句來定義： Scale（-50,-50）,（50,50） 圖9.11所示的坐標系統(tǒng)可以使用如下語句來定義： Scale（0,100）,（100,0）9.3 繪圖屬性在對象（窗體或圖片框）上繪制圖形時，還需要設(shè)置對象的繪圖屬性以確定所繪制圖形的特征，例如所畫線

8、的寬度以及圖形的填充樣式等。 1.與CurrentX與CurrentY。 屬性使用Print方法在窗體或圖片框中顯示文本時，文本總是出現(xiàn)在當(dāng)前坐標處。例如，在默認情況下，第一次使用Print方法輸出的文本顯示在窗體的左上角。通過CurrentX與CurxentY屬性可以指定當(dāng)前坐標，這兩個屬性在設(shè)計時不可用。 例如： Private Sub Form_Click() Scale(0,100)-(100,0) 自定義坐標系統(tǒng) For i=10 To 80 Step 10 Currenty = i 指定當(dāng)前坐標 Currenty = i Print “清華大學(xué)” NextEnd Sub 運行該程序

9、，文本在窗體上的顯示效果如圖9.12所示，如果在代碼中不使用CurrentX與CurrentY屬性指定當(dāng)前坐標，則窗體上文本的顯示效果如圖9.13所示。2.AutoRedraw屬性。 如果AutoRedraw屬性的值為True，則所繪制的圖形是持久的。即當(dāng)窗體被隱藏到其他窗口之后或調(diào)整了大小，使用Print方法顯示的文本或使用圖形方法繪制的圖形都將重新顯示。 如果AutoRedraw屬性的值為False，則所繪制的圖形是臨時的。當(dāng)窗體被隱藏到其他窗口之后或調(diào)整了大小，窗體上的文本或圖形將被掩蓋掉。例如，圖9.14中（a）圖所示的是在窗體上正常顯示的圖形和文本，（b）圖所示的是將另外一個窗體移動

10、到該窗體上，然后再移走后的效果，可見，被另一窗體掩蓋部分的圖形和文本消失了。 AutoRedraw屬性的默認值為False，在使用Print方法或圖形方法時，最好將該屬性的值設(shè)置為Ture。3.其他繪圖屬性。 表9.9中列出了窗體與圖片框控件的其他繪圖屬性。9.4 定義顏色在VB中，顏色是以十六進制數(shù)表示的。例如，在【屬性】窗口中設(shè)置BackColor與ForeColor等顏色屬性時，出現(xiàn)的值總是一個十六進制數(shù)。以十六進制數(shù)來設(shè)置顏色既不方便也不直觀，一般用戶很難看出顏色與十六進制數(shù)的對應(yīng)關(guān)系。為此，VB提供了一些顏色常數(shù)和顏色函數(shù)，使用它們可以方便直觀地設(shè)置出想要的顏色。 1.顏色常量。 如

11、果程序中只需要使用8種基本顏色，則使用VB提供的顏色常量即可達到目的。這些常量所代表的顏色可以從它們的名字上看出。表9.11所示的是8種基本顏色與顏色常量的對應(yīng)關(guān)系。 例如，要將窗體（名稱為Form1）的背景色設(shè)置為紅色，可以使用如下語句： Form1.BackColor=&HFF. 也可以使用顏色常數(shù)來設(shè)置，語句如下： Form.BackColor= VblRed2.QBColor函數(shù) 使用QBColor函數(shù)可以設(shè)置16種顏色，語法如下： QBColor（Color） 參數(shù)Color是一個015的整數(shù)，每個整數(shù)代表一種顏色，表9.12中列出了該參數(shù)的取值與對應(yīng)的顏色。 例如，下列語句的含義也

12、是將窗體的背景色設(shè)置為紅色。 Forml.BackColor=QBColor（4） 3.RGB函數(shù)。 使用顏色常量和QBColor函數(shù)只能指定一些基本的顏色，而使用RGB函數(shù)則可以指定幾乎所有的顏色。RGB函數(shù)是通過指定紅（Red）、綠（Green）、藍（Blue）三原色的值來定義顏色的，其語法為： RGB（紅、綠、藍）。紅、綠、藍三原色的值均為0255之間的整數(shù)，顏色值的不同組合將產(chǎn)生不同的顏色，從理論上講，三原色混合可以產(chǎn)生256256256種顏色。表9.13中列出了基本顏色與對應(yīng)的RGB函數(shù)。 例如，使用RGB函數(shù)設(shè)置窗體背景色為紅色的語句為： Forml.BackColor= RGB（

13、255,0,0） 實際上，對于顏色的十六進制數(shù)，每兩位一組代表一種原色的顏色值，最低兩位為紅色的值，其次是綠色和藍色的值。例如，十六進制數(shù)&HOOFFOOFF對應(yīng)RGB（255,0,255），因此，它表示的顏色為洋紅色。9.5 圖形方法圖形方法是指窗體或圖片框控件用于繪圖的方法，其中包括Line方法、Circle方法、Pset方法以及PaintPicture方法等。使用這些方法可以繪制出直線、矩形、圓、橢圓、弧線、扇形、點以及各種曲線。 Line方法用于繪制直線或矩形，其語法格式如下： 對象.LineStep（xl,y1）1-Step（x2,y2）,顏色,BF. 對象可以是窗體或圖片框控件，其

14、中各參數(shù)的含義如下： Step:該參數(shù)是可選的，如果使用該參數(shù)，則表示起點坐標（x1, y1）或終點坐標（x2, y2）是相對當(dāng)前點（ CurrentX,CurrentY）的，而不是相對坐標原點的。 （x1,y1）：用于指定直線的起點，也是可選的，如果省略則起點為當(dāng)前點（CurrentX,CuxrerttY）。 （x2, y2）用于指定直線的終點。 顏色：可選的。用于指定所繪制的圖形的顏色，可以使用RGB函數(shù)或QBColor參數(shù)指定顏色。如果省略，則使用對象（窗體或圖片框）當(dāng)前的ForeColor屬性指定的顏色。 B:可選的。如果使用該參數(shù)，則繪制出的是矩形。其中（x1,y1）是指矩形左。上項

15、點的坐標，（x2,y2）是指矩形右下頂點的坐標。 F:可選的。只有使用了參數(shù)B后才能使用該參數(shù)。如果使用該參數(shù)則矩形以指定的顏色填充；省略F時，矩形以對象當(dāng)前的FiilColor與Fi1lStyle屬性的設(shè)置填充。實例9.3使用Line方法。 使用Line方法繪制一個柱狀圖表，每個柱的填充顏色與樣式都不同，并且在柱的正上方標有柱的長度，如圖9.15所示。 程序代碼如下： Private Sub Form_Resize() Const x0=15 Const y0=20 Cls Scale (0,100)-(100,0) 自定義坐標系統(tǒng) Line （x0，y0)-(x0,90) 繪制Y軸 Lin

16、e (x0,y0)-(90,yo) 繪制x軸 For i=10 To 70 Step 10 FillStyle=i/10 設(shè)置填充樣式 FillStyle=QBColor(i / 10 - 1) 設(shè)置填充顏色 Line(x0 + i,y0+i)-(x0+i+6,yo), , B 繪制矩形 CurrentX=x0+i-1 CueeentY=y0+i+8 Print NextEnd Sub 在該段代碼中，常量x0和y0是柱狀圖表的坐標原點，定義這兩個常量的好處在于；只要改變這兩個常量的值，即可確定圖表在窗體中的位置。例如，將x0與y0的值分別設(shè)置為15和20,則圖表在窗體中的位置如圖9.16所示。

17、改變窗體的大小后，圖表會隨著窗體的大小自動縮放，如圖9.17所示。 實例9.3產(chǎn)生漸變背景。 許多Windows應(yīng)用程序的安裝界面，是以一個顏色由藍至黑的漸變窗體為背景的。使用VB產(chǎn)生窗體背景色的漸變效果很簡單，基本思想是：在窗體中從上至下依次繪制多個矩形，只要有足夠多的矩形，同時使它們的填充色從藍變化到黑，就能很好地模擬出漸變效果了。代碼如下： Prinvate Sub Gradient(TheObject As Object,Redval,Greenval,Blueval) Dim Step,i,T,L,R,B Step=(TheObject.Height/60) T=0 L=0 R=Th

18、eObject.width B=T+Step For i=1 To 60 TheObject.Line(L,T)-(R,B),RGB(Redval,Greenval,Blueval),BF Redval = Readval - 4 Greenval = Greenval - 4 Blueval=Blueval-4 If Readval =0 Then Readval =0 If Greenval=0 Then Greenval=0 If Blueval =0 Then Blueval =0 T=B B=B+Step NextEnd SubPrivate Sub Form_Resize() Gr

19、adient Forml,0,0,255End Sub 首先定義了一個名為Gradient的子過程，在該子過程中，使用了For循環(huán)語句來實現(xiàn)在窗體中從上至下依次繪制60個矩形，其中的Line方法是用來繪制矩形的，變量L與T為矩形左上頂點的坐標，R與B為矩形右下頂點的坐標，變量Redval, Greenval, Blueval分別表示紅、綠、藍三原色的值。 在窗體的Resize事件中，以參數(shù)Fvrrnl（窗體名）和顏色值（0,0,255）調(diào)用子過程Gradient，運行程序后，即可看到窗體具有由藍至黑的漸變背景。若以其他顏色值調(diào)用該函數(shù)，則可得到其他顏色的漸變背景。改變窗體的大小，漸變色會隨著充

20、滿整個窗體（要將窗體的AutoRedraw屬性設(shè)置為True）。9.5 圖形方法圖形方法是指窗體或圖片框控件用于繪圖的方法，其中包括Line方法、Circle方法、Pset方法以及PaintPicture方法等。使用這些方法可以繪制出直線、矩形、圓、橢圓、弧線、扇形、點以及各種曲線。 Line方法用于繪制直線或矩形，其語法格式如下： 對象.LineStep（xl,y1）1-Step（x2,y2）,顏色,BF. 對象可以是窗體或圖片框控件，其中各參數(shù)的含義如下： Step:該參數(shù)是可選的，如果使用該參數(shù)，則表示起點坐標（x1, y1）或終點坐標（x2, y2）是相對當(dāng)前點（ CurrentX,C

21、urrentY）的，而不是相對坐標原點的。 （x1,y1）：用于指定直線的起點，也是可選的，如果省略則起點為當(dāng)前點（CurrentX,CuxrerttY）。 （x2, y2）用于指定直線的終點。 顏色：可選的。用于指定所繪制的圖形的顏色，可以使用RGB函數(shù)或QBColor參數(shù)指定顏色。如果省略，則使用對象（窗體或圖片框）當(dāng)前的ForeColor屬性指定的顏色。 B:可選的。如果使用該參數(shù)，則繪制出的是矩形。其中（x1,y1）是指矩形左。上項點的坐標，（x2,y2）是指矩形右下頂點的坐標。 F:可選的。只有使用了參數(shù)B后才能使用該參數(shù)。如果使用該參數(shù)則矩形以指定的顏色填充；省略F時，矩形以對象當(dāng)

22、前的FiilColor與Fi1lStyle屬性的設(shè)置填充。實例9.3使用Line方法。 使用Line方法繪制一個柱狀圖表，每個柱的填充顏色與樣式都不同，并且在柱的正上方標有柱的長度，如圖9.15所示。 程序代碼如下： Private Sub Form_Resize() Const x0=15 Const y0=20 Cls Scale (0,100)-(100,0) 自定義坐標系統(tǒng) Line （x0，y0)-(x0,90) 繪制Y軸 Line (x0,y0)-(90,yo) 繪制x軸 For i=10 To 70 Step 10 FillStyle=i/10 設(shè)置填充樣式 FillStyle=

23、QBColor(i / 10 - 1) 設(shè)置填充顏色 Line(x0 + i,y0+i)-(x0+i+6,yo), , B 繪制矩形 CurrentX=x0+i-1 CueeentY=y0+i+8 Print NextEnd Sub 在該段代碼中，常量x0和y0是柱狀圖表的坐標原點，定義這兩個常量的好處在于；只要改變這兩個常量的值，即可確定圖表在窗體中的位置。例如，將x0與y0的值分別設(shè)置為15和20,則圖表在窗體中的位置如圖9.16所示。改變窗體的大小后，圖表會隨著窗體的大小自動縮放，如圖9.17所示。 實例9.3產(chǎn)生漸變背景。 許多Windows應(yīng)用程序的安裝界面，是以一個顏色由藍至黑的漸

24、變窗體為背景的。使用VB產(chǎn)生窗體背景色的漸變效果很簡單，基本思想是：在窗體中從上至下依次繪制多個矩形，只要有足夠多的矩形，同時使它們的填充色從藍變化到黑，就能很好地模擬出漸變效果了。代碼如下： Prinvate Sub Gradient(TheObject As Object,Redval,Greenval,Blueval) Dim Step,i,T,L,R,B Step=(TheObject.Height/60) T=0 L=0 R=TheObject.width B=T+Step For i=1 To 60 TheObject.Line(L,T)-(R,B),RGB(Redval,Gree

25、nval,Blueval),BF Redval = Readval - 4 Greenval = Greenval - 4 Blueval=Blueval-4 If Readval =0 Then Readval =0 If Greenval=0 Then Greenval=0 If Blueval =0 Then Blueval =0 T=B B=B+Step NextEnd SubPrivate Sub Form_Resize() Gradient Forml,0,0,255End Sub 首先定義了一個名為Gradient的子過程，在該子過程中，使用了For循環(huán)語句來實現(xiàn)在窗體中從上至下

26、依次繪制60個矩形，其中的Line方法是用來繪制矩形的，變量L與T為矩形左上頂點的坐標，R與B為矩形右下頂點的坐標，變量Redval, Greenval, Blueval分別表示紅、綠、藍三原色的值。 在窗體的Resize事件中，以參數(shù)Fvrrnl（窗體名）和顏色值（0,0,255）調(diào)用子過程Gradient，運行程序后，即可看到窗體具有由藍至黑的漸變背景。若以其他顏色值調(diào)用該函數(shù)，則可得到其他顏色的漸變背景。改變窗體的大小，漸變色會隨著充滿整個窗體（要將窗體的AutoRedraw屬性設(shè)置為True）。9.5.2 Circle方法Circle方法用于繪制圓、橢圓、扇形或弧，其語法格式如下： 對

27、象。CircleStep（x,y）,半徑,顏色,起始角,終止角了長短軸比率. 對象可以是窗體或圖片框控件，其中各參數(shù)的含義如下： Step:該參數(shù)是可選的，如果使用該參數(shù)，則表示圓心坐標（x,y）是相對當(dāng)前點（CurrentX,CurrentY）的，而不是相對坐標原點的。 （x,y）：用于指定圓的圓心，也是可選的，如果省略則圓心為當(dāng)前點（CurrentX,GurrentY）。 半徑：用于指定圓的半徑，對于橢圓來講，該值是橢圓的長軸長度。 顏色：指定所繪制圖形的顏色。 起始角、終止角：用來指定圓弧或扇形的起始角度與終止角度，單位為弧度。取值范圍為02時，繪制的是圓?。航o起始角與終止角取值前添加一

28、個負號，則所繪制的是扇形，負號表示繪制圓心到圓弧的徑向線。省略這兩個參數(shù)，則所繪制的是圓或橢圓。 VB規(guī)定，從起始角按逆時針方向繪制圓弧只到終止角處，水平向右方向為0度，且與坐標系統(tǒng)無關(guān)，如圖9.18所示。 長短軸比率：當(dāng)需要繪制橢圓時，可使用該參數(shù)指定橢圓長短軸的比率。若值大于1，則所繪制的是豎立的橢圓；若值小于1，則所繪制的是扁平的橢圓。該值的缺省值為1，即省略時繪制的是圓。例如，使用下列語句繪制出的各種圖形如圖9.19所示。 Const pi=3.Private Sub Form_Click() Scale (-100,100)-(100,-100) Circle(-50,50),30

29、Circle(50,50),30,vbRed,2 Circle(50,50),30,vbRed,0.5 Circle(-50,-50),30,vbBlue,pi/6,1.5*pi Circle(50,-50),30,vbYellow,-pi/6,-5/6*piEnd Sub實例9.4繪制太極圖 使用Circle方法繪制出如圖9.20所示的太極圖。 代碼如下： Const pi=3.Sub Tjt(x,y,r) FillStyle=1 Circle(x,y),r 繪制大圓 Circle(x,y-r/2),r/2,pi/2,1.5*pi 繪制弧線 Circle(x,y+r/2),r/2,1.5/p

30、i,pi*2 FillColor=vbBlack FillStyle=0 Cricle(x,y+r/2),r/5 繪制小圓 Circle (x,y-r/2),r/5End SubPrivate Sub Form_Click() Tjt 3000,1500,1000 Tjt 1000,2500,500 Tij 1000,1000,400End Sub 首先定義了一個名為Tjt的子過程，形參x和Y為太極圖的圓心，r為半徑。在窗體的Click事件過程中以不同的參數(shù)調(diào)用Tjt子過程，運行程序，單擊窗體后就會在窗體的不同位置繪制出大小不同的太極圖。9.5.3 Pset與Pint方法Pset方法用于畫點，

31、其語法格式如下： 對象.Pset Step（x,y）,顏色 參數(shù)（x,y）為所畫點的坐標，其他各參數(shù)的含義與Line方法相同。 使用Pset方法可以繪制出任何曲線，如圖9.21所示的正弦曲線就是使用Pset方法繪制的。 代碼如下： Private Sub Form_Click() Scale(-10,10)-(10,-10) 定義坐標系統(tǒng) Line(-10,0)-(10,0) 繪制X軸 Line(0,-10)-(0,10) 繪制Y軸 CurrentX=0.5 CurrentY=10 Print“Y” Current=9.5 Current=-0.5 Print“X” For X=-8 To 8

32、 Step 0.01 y=5*sin(x) 繪制正曲線 NextEnd SubPoint方法用來返回指定點的顏色，其語法格式如下： 對象,Point（x,y）。 其中參數(shù)（x,y）是要獲取顏色的點的坐標。 Point方法返回的是一個像素的顏色值，可以使用下列代碼從該顏色值中取出三原色的值，分別存放在三個變量中，其中R代表紅色，G代表綠色，B代表藍色。 P=Picture.Piont（x,y） R=Mod 256 G=（p And &HFF00FF00）/256 B=（p And &HFF0000）/65536 Piont方法和Pset方法配合使用，可以對圖像進行多種處理，如柔化、銳化以及變色等。限于篇幅