第10章 圖形操作

1、第第 10 10 章章 圖形操作圖形操作 本章主要內(nèi)容 10.1 坐標(biāo)系統(tǒng)坐標(biāo)系統(tǒng) 10.2 圖形方法圖形方法 10.3 應(yīng)用程序舉例應(yīng)用程序舉例 標(biāo)準(zhǔn)坐標(biāo)系統(tǒng)標(biāo)準(zhǔn)坐標(biāo)系統(tǒng) 自定義坐標(biāo)系統(tǒng)自定義坐標(biāo)系統(tǒng) PsetPset方法方法 PointPoint方法方法 LineLine方法方法 CircleCircle方法方法 10.1 坐標(biāo)系統(tǒng)坐標(biāo)系統(tǒng) 1. .標(biāo)準(zhǔn)坐標(biāo)系統(tǒng)標(biāo)準(zhǔn)坐標(biāo)系統(tǒng) Visual Basic中的標(biāo)準(zhǔn)坐標(biāo)系統(tǒng)以容器類對(duì)象的左 上角為坐標(biāo)原點(diǎn)(0,0)，水平向右為X軸坐標(biāo)的正方 向，垂直向下為Y軸坐標(biāo)的正方向，度量單位為緹 （Twip）、磅（Point）、像素（Pixel）等，默認(rèn) 為

2、緹。以窗體作為參照系的標(biāo)準(zhǔn)坐標(biāo)系統(tǒng)如圖所示。 坐標(biāo)系中的度量單位可以通過對(duì)象的ScaleMode屬性 進(jìn)行設(shè)置。ScaleMode屬性值及相應(yīng)的度量單位如表 所示： 屬性值屬性值說明說明 0 -User0 -User用戶自定義用戶自定義 1 - Twip1 - Twip 緹 ， 默 認(rèn) 值 （緹 ， 默 認(rèn) 值 （ 1 英 寸英 寸 =1440=1440緹）緹） 2 - Point2 - Point磅（磅（1英寸英寸=72磅磅 ） 3 - Pixel3 - Pixel像素像素 4 - Character4 - Character字符字符 5 - Inch5 - Inch英寸英寸 6 - 6 -

3、 MillimeterMillimeter 毫米毫米 7 - 7 - CentimeterCentimeter 厘米（厘米（1厘米厘米 =567=567緹）緹） ScaleMode屬性值既可以在程序設(shè)計(jì)階段通過屬性窗 口設(shè)置，也可以在程序運(yùn)行階段通過賦值語句來設(shè)置 或引用。 v例如，設(shè)置窗體坐標(biāo)系統(tǒng)的度量單位為磅，可在程序中執(zhí)行 賦值語句Form1.ScaleMode = 2 v例如，設(shè)置圖片框Picture1坐標(biāo)系統(tǒng)的度量單位為英寸， 可在程序中執(zhí)行賦值語句Picture1.ScaeMode = 5 當(dāng)坐標(biāo)系統(tǒng)的度量單位改變后，系統(tǒng)會(huì)重新確定對(duì) 象水平方向和垂直方向的單位數(shù)，即ScaleWi

4、dth和 ScaleHeight屬性值，而容器對(duì)象的原點(diǎn)坐標(biāo)，即 ScaleTop和ScaleLeft屬性值仍為默認(rèn)值0。 2. .自定義坐標(biāo)系統(tǒng)自定義坐標(biāo)系統(tǒng) 當(dāng)使用標(biāo)準(zhǔn)坐標(biāo)系統(tǒng)不能滿足用戶需求時(shí)，Visual Basic允許用戶根據(jù)需要自己定義坐標(biāo)系統(tǒng)。當(dāng) ScaleMode屬性值為0時(shí)即為自定義坐標(biāo)系統(tǒng)。 設(shè)置用戶自定義坐標(biāo)系統(tǒng)有兩種方法。 (1)使用對(duì)象的ScaleTop、ScaleLeft、ScaleWidth和ScaleHeight屬 性設(shè)置坐標(biāo)系統(tǒng)。 當(dāng)設(shè)置這些屬性后，ScaleMode屬性自動(dòng)設(shè)置為0。 ScaleLeft、ScaleTop屬性分別指定在新坐標(biāo)系統(tǒng)下容器對(duì)象繪

5、圖區(qū)左上角的X、Y軸坐標(biāo)值，ScaleWidth和ScaleHeight屬性分別 指定容器對(duì)象繪圖區(qū)的寬度和高度。 在自定義坐標(biāo)系統(tǒng)中，當(dāng)ScaleWidth和ScaleHeight的屬性值為 負(fù)數(shù)時(shí)，會(huì)改變坐標(biāo)軸的正方向。 v例如，在窗體上設(shè)置一個(gè)自定義坐標(biāo)系統(tǒng)的繪圖區(qū)，使其 左上角和右下角的坐標(biāo)分別為(100,50)和(250,200)，自定義 的坐標(biāo)系統(tǒng)如下圖所示： 為實(shí)現(xiàn)該坐標(biāo)系統(tǒng)，可編寫如下代碼： Form1.ScaleLeft = 100 Form1.ScaleTop = 50 Form1.ScaleWidth = 250 ScaleLeft ScaleWidth屬性值為150 F

6、orm1.ScaleHeight = 200 - ScaleTop ScaleHeight屬性值為150 v例如，在窗體上設(shè)置一個(gè)自定義坐標(biāo)系統(tǒng)的繪圖區(qū)，使其左 上角和右下角的坐標(biāo)分別為(-100,100)和(100,-100)，自定義的 坐標(biāo)系統(tǒng)如下圖所示： 為實(shí)現(xiàn)該坐標(biāo)系統(tǒng)，可編寫如下代碼： Form1.ScaleLeft = -100 Form1.ScaleTop = 100 Form1.ScaleWidth = 100 - ScaleLeft ScaleWidth屬性值為200 Form1.ScaleHeight = -100 - ScaleTop ScaleHeight屬性值為-20

7、0 (2)使用Scale方法設(shè)置坐標(biāo)系統(tǒng)。 Scale方法的一般格式為： 對(duì)象名.Scale(xLeft,yTop)-(xRight,yBottom) 其中，(xLeft,yTop)為左上角坐標(biāo)，(xRight,yBottom)為右下 角坐標(biāo)，與對(duì)象的ScaleLeft、 ScaleTop、ScaleWidth和 ScaleHeight屬性的對(duì)應(yīng)關(guān)系為： ScaleLeft = xLeft ScaleTop = yTop ScaleWidth = xRight-xLeft ScaleHeight = yBottom-yTop 當(dāng)Scale 方法的(xLeft,yTop)-(xRight,yBo

8、ttom)參數(shù)省略時(shí)，默 認(rèn)為標(biāo)準(zhǔn)坐標(biāo)系統(tǒng)（ScaleMode屬性值為1）。 例如，設(shè)置一個(gè)窗體的自定義坐標(biāo)系統(tǒng)，左上角和右下角坐 標(biāo)分別為(100,200)和(500,500)，則可使用如下Scale方法： Scale(100,200)-(500,500) 10.2 圖形方法圖形方法 Visual Basic提供了4種基本的繪圖方法，即Pset （畫點(diǎn)）、Point（返回指定點(diǎn)的顏色）、Line （畫線或矩形）和Circle（畫圓、橢圓、扇形或圓 ?。?在圖形操作中，有一個(gè)重要的屬性自動(dòng)重畫 AutoRedraw。當(dāng)AutoRedraw屬性值為True時(shí)，如 果程序運(yùn)行時(shí)窗體或圖片框被遮蓋

9、或隱藏，而再 次顯示時(shí)，對(duì)象上的圖形還會(huì)自動(dòng)重畫顯示出來； 當(dāng)AutoRedraw屬性值為False時(shí)，自動(dòng)重畫無效。 10.2.1 Pset方法方法 Pset方法可以在對(duì)象的指定位置上畫點(diǎn)，并能在該 點(diǎn)上加指定的顏色。一般格式為： 對(duì)象名.PsetStep(x,y),Color 其中： (1) 對(duì)象名是窗體或圖片框的名稱，即要在其上畫點(diǎn)的對(duì)象名稱 。若對(duì)象名省略，則默認(rèn)為當(dāng)前窗體。 (2) Step是可選項(xiàng)，表示當(dāng)前坐標(biāo)的相對(duì)位置偏移量。若省略， 則其坐標(biāo)(x,y)是相對(duì)于坐標(biāo)原點(diǎn)(0,0)的偏移量；否則，是相 對(duì)于當(dāng)前作圖位置(CurrentX,CurrentY)的偏移量。 (3) (x,

10、y)為所畫點(diǎn)的坐標(biāo)。默認(rèn)單位為Twip，x和y均為單精度數(shù) 。 (4) Color為所畫點(diǎn)指定的顏色，可以省略。若省略，點(diǎn)的 顏色為當(dāng)前對(duì)象的前景色ForeColor，也可以用QBColor和RGB 函數(shù)指定顏色。若Color使用當(dāng)前對(duì)象的背景色BackColor，相 當(dāng)于“擦除”該點(diǎn)。 (5) Pset方法畫點(diǎn)的大小可由當(dāng)前窗體或圖片框的 DrawWidth屬性值決定。 例如， Pset(100,200) 在當(dāng)前窗體(100,200)位置 上畫點(diǎn) Pset Step(200,300),vbRed 相對(duì)于(100,200)，在當(dāng)前窗 體 (300,500)位置上畫紅色點(diǎn) Picture1.Ps

11、et(300,300),RGB(0,0,255) 在圖片框(300,300) 位置上畫藍(lán)色點(diǎn) Picture1.Pset(300,300),BackColor 清除圖片框 (300,300)位置的藍(lán)色點(diǎn) 【例10.1】利用Pset方法在窗體上每隔1秒畫一個(gè)紅點(diǎn)。 分析：要求每隔1秒畫一個(gè)紅點(diǎn)，需在窗體上添加1 個(gè)時(shí)鐘控件，在Form_Load事件過程中將Interval屬 性值設(shè)置為1000、窗體的AutoRedraw 屬性設(shè)置為 True、窗體的Caption屬性設(shè)置為“Pset方法應(yīng)用示 例”。 程序的運(yùn)行結(jié)果下如圖所示： 例10.1 程序代碼如下： Private Sub Form_Lo

12、ad() Form1.Caption = Pset方法應(yīng)用示例 Timer1.Interval = 1000 Form1.AutoRedraw = True End Sub Private Sub Timer1_Timer() Form1.DrawWidth = 10 設(shè)置所畫點(diǎn)的大小 x = Rnd * Form1.ScaleWidth 設(shè)置x值 y = Rnd * Form1.ScaleHeight 設(shè)置y值 PSet (x, y), vbRed 在(x,y)坐標(biāo)位置畫紅色點(diǎn) End Sub 10.2.2 Point方法方法 Point方法用于返回圖片框或窗體上指定點(diǎn)的RGB 顏色。 一般

13、格式為：對(duì)象名.Point(x,y) 其中，(x,y)表示所畫點(diǎn)當(dāng)前的坐標(biāo)，若(x,y)點(diǎn)在 當(dāng)前窗體或圖片框之外，則Point方法返回的值為-1。 10.2.3 Line方法方法 Line方法用于在對(duì)象上的指定位置畫直線或矩形。 一般格式為： 對(duì)象名.LineStep(x1,y1)-Step(x2,y2),Color,BF 其中： (1)對(duì)象名是指要畫線的窗體或圖片框的名稱，若省略則默認(rèn)為 當(dāng)前窗體。 (2) Step表示坐標(biāo)為相對(duì)于當(dāng)前點(diǎn)的偏移量。 (3) (x1,y1)為線段的起點(diǎn)坐標(biāo)或矩形的左上角坐標(biāo)。可省略，若 省略，默認(rèn)起點(diǎn)為當(dāng)前點(diǎn)的坐標(biāo)(CurrentX,CurrentY)。 (

14、4) (x2,y2)為線段的終點(diǎn)坐標(biāo)或矩形的右下角坐標(biāo)。 (5) Color表示直線或矩形線的顏色。若省略，則使用前景色 ForeColor屬性值設(shè)置顏色。顏色可使用QBColor或RGB函數(shù) 設(shè)定。 (6) B表示以(x1,y1)為左上角坐標(biāo)，(x2,y2)為右下角坐標(biāo)畫矩 形。 (7) F表示可用某種顏色填充矩形，顏色為畫矩形線的顏色， 即Color。F必須與B同時(shí)使用。 【例10.2】用Line方法在圖片框中畫一條紅色線段、一 條黑色線段和一個(gè)藍(lán)色矩形，單擊圖片框時(shí)畫出圖形。 在窗體上添加1個(gè)圖片框。圖片框的AutoRedraw 屬性設(shè)置 為True、窗體的Caption屬性設(shè)置為“Li

15、ne方法應(yīng)用示例”。程 序的運(yùn)行結(jié)果下如圖所示： 例10.2 程序代碼如下： Private Sub Picture1_Click() Picture1.DrawWidth = 3 設(shè)置線寬 Picture1.Line (200, 200)-(1200, 900), vbRed 畫線 Picture1.Line (200, 900)-(1200, 200) 畫線 Picture1.Line (1500, 200)-(2500, 900), vbBlue, BF 畫矩形 End Sub 10.2.4 Circle方法方法 Circle方法用于在對(duì)象的指定位置畫圓、橢圓、圓 弧和扇形。一般格式為：

16、 對(duì)象名.CircleStep(x,y),半徑,Color,起始角度,終止角度,長(zhǎng)短軸比率 其中： (1) 對(duì)象名可以是窗體或圖片框的名稱，省略默認(rèn)為當(dāng)前窗體。 (2) Step為可選項(xiàng)，是指圓、橢圓或圓弧等圓心相對(duì)于當(dāng)前坐標(biāo) 的位置，即(x,y)為相對(duì)于當(dāng)前坐標(biāo)位置(CurrentX,CurrentY) 的坐標(biāo)。 (3) (x,y)是圓、橢圓、圓弧或扇形的圓心坐標(biāo)。 (4) 半徑是圓、橢圓、圓弧或扇形的半徑長(zhǎng)度。橢圓取長(zhǎng)軸的長(zhǎng) 度。 (5) Color表示所畫圖形邊框的顏色值。若省略，則使用當(dāng)前窗體 或圖片框的前景色ForeColor屬性值設(shè)置顏色。顏色也可使用 QBColor或RGB函數(shù)設(shè)

17、定。 (6) 起始角度和終止角度以弧度為單位，取值范圍為-22。起 始角度的默認(rèn)值是0，終止角度的默認(rèn)值是2。當(dāng)起始角度和 終止角度均為正數(shù)時(shí)，畫出的是圓?。划?dāng)均為負(fù)數(shù)時(shí)，畫出圓 弧，并將兩端點(diǎn)連到圓心，即畫出的是扇形。 (7) 長(zhǎng)短軸比率，用來控制顯示橢圓或圓。若省略，則值為1，表 示畫圓。當(dāng)值小于1時(shí)，則以X軸為長(zhǎng)軸畫橢圓；當(dāng)該值大于1 時(shí)，則以Y軸為長(zhǎng)軸畫橢圓。 如果要填充圓、橢圓、扇形區(qū)域的顏色，應(yīng)該設(shè)置 為實(shí)心，即將FillStyle的屬性值設(shè)置為0，并設(shè)置 FillColor屬性值填充顏色，而邊線的寬度由DrawWidth屬 性值決定。 【例10.3】用Circle方法在窗體上畫圓

18、、橢圓、圓弧 和扇形。 程序的運(yùn)行結(jié)果下如圖所示： 例10.3 程序代碼如下： Private Sub Form_Click() Form1.Caption = Circle方法應(yīng)用示例 Const PI = 3.14159 定義符號(hào)常量PI Scale (0, 0)-(100, 100) 定義坐標(biāo)系統(tǒng) DrawWidth = 2 設(shè)置線的寬度 Circle (30, 30), 12, RGB(255, 0, 0) 畫紅色的圓 Circle (70, 30), 15, vbGreen, , , 0.5 畫綠色的橫橢圓 Circle (70, 30), 15, vbGreen, , , 1.5

19、畫綠色的縱橢圓 Circle (30, 60), 15, vbBlue, 1.25 * PI, 1.75 * PI 畫藍(lán)色的圓弧 Circle (70, 90), 15, , -0.25 * PI, -0.75 * PI 畫黑色的扇形 End Sub 【例10.4】用Circle方法在窗體上畫圓、橢圓、圓弧 和扇形。 程序的運(yùn)行結(jié)果下如圖所示： 例10.4 程序代碼如下： Private Sub Form_Click() Dim x As Integer, y As Integer Dim r As Integer, i As Integer Randomize ScaleMode = 6 坐

20、標(biāo)刻度單位為mm DrawWidth = 2 設(shè)置線的寬度 x = ScaleWidth / 2 y = ScaleHeight / 2 If ScaleWidth ScaleHeight Then r = y Else r = x End If For i = 0 To r Circle (x, y), i, RGB(255 * Rnd, 255 * Rnd, 255 * Rnd) Next i End Sub 10.3 應(yīng)用程序舉例應(yīng)用程序舉例 【例10.5】編寫一個(gè)程序，用Pset方法繪制正弦曲線。 分析：首先在程序中建立一個(gè)自定義坐標(biāo)系統(tǒng)，然 后在該坐標(biāo)系統(tǒng)下繪制正弦曲線。程序運(yùn)行后，

21、單擊窗 體，則在窗體上畫出正弦曲線；雙擊窗體則退出應(yīng)用程 序。 程序的運(yùn)行結(jié)果如圖所示： 例10.5 程序代碼如下： Private Sub Form_Load() Form1.Caption = 繪制正弦曲線 Form1.AutoRedraw = True End Sub Private Sub Form_Click() Dim x As Single, y As Single Scale (-10, -10)-(10, 10) 定義坐標(biāo) Line (0, -8)-(0, 8) 繪制x軸和y軸 Line (8, 0)-(-8, 0) For x = -6 To 6 Step 0.01 繪制正

22、弦曲線 y = 6 * Sin(x * 60 * 3.14159 / 180) PSet (x, -y) Next x End Sub Private Sub Form_DblClick() End End Sub 【例10.6】用Line方法在窗體上繪制射線。要求射線的 長(zhǎng)短隨機(jī)，顏色隨機(jī)，粗細(xì)隨機(jī)。 程序代碼如下： 例10.6 Private Sub Form_Click() Dim i As Integer, x As Single, y As Single, clr As Single Scale (-350, 300)-(350, -300) 自定義坐標(biāo)系統(tǒng) For i = 1 To

23、 200 x = 300 * Rnd 產(chǎn)生x坐標(biāo)值 If Rnd 0.5 Then x = -x y = 250 * Rnd 產(chǎn)生y坐標(biāo)值 If Rnd 0.5 Then y = -y clr = 15 * Rnd 產(chǎn)生顏色值 DrawWidth = Int(1 + 5 * Rnd) 產(chǎn)生線的寬度值 Line (0, 0)-(x, y), QBColor(clr) Next i End Sub 程序運(yùn)行后，單擊窗體，運(yùn)行結(jié)果如圖所示： Private Sub Form_Load() Form1.Caption = 繪制射線“ Form1.AutoRedraw = True End Sub 【例

24、10.7】用Pset方法在窗體上動(dòng)態(tài)繪制拋物線：y=x2。 分析：為了確定曲線中每一點(diǎn)的坐標(biāo)，用Scale方 法自定義坐標(biāo)系統(tǒng)，并在窗體上繪制出水平坐標(biāo)軸和垂 直坐標(biāo)軸。 程序運(yùn)行后，單擊窗體，運(yùn)行結(jié)果如圖所示： 例10.7 程序代碼如下： Private Sub Form_Click() Dim x, y As Single DrawWidth = 2 設(shè)置線的寬度 Scale (-10, 25)-(10, -25) 自定義坐標(biāo)系統(tǒng) Line (-10, 0)-(10, 0), RGB(0, 0, 255) 畫X軸及箭頭，顏色為藍(lán)色 Line (9, 2)-(10, 0), vbBlue L

25、ine -(9, -2), vbBlue Print X Line (0, 25)-(0, -25), RGB(0, 0, 255) 畫Y軸及箭頭，顏色為藍(lán)色 Line (-0.5, 22)-(0, 25), vbBlue Line -(0.5, 22), vbBlue Print Y CurrentX = 0.5: CurrentY = -0.5 : Print “0 在指定位置顯示原點(diǎn)0 For x = -10 To 10 Step 0.0001 用循環(huán)語句畫點(diǎn)繪制拋物線 y = x 2:PSet (x, y), RGB(255, 0, 0) 在(x,y)位置畫紅色點(diǎn) Next x End

26、 Sub 【例10.8】利用Circle方法在窗體上顯示不同填充 效果和顏色的圓。要求每單擊1次鼠標(biāo)顯示1個(gè)圓。 分析：為了確定畫圓的位置，將畫圓操作的代 碼編寫在Form_MouseDown事件過程中。 程序代碼如下： 例10.8 Private Sub Form_Load() Form1.Caption = 畫圓 Form1.AutoRedraw = True End Sub Private Sub Form_MouseDown(Button As Integer, Shift As _ Integer, X As Single, Y As Single) Randomize FillCo

27、lor = QBColor(15 * Rnd) 隨機(jī)產(chǎn)生填充顏色 FillStyle = Int(8 * Rnd) 隨機(jī)產(chǎn)生填充樣式 Circle (X, Y), 300 鼠標(biāo)指針位置為圓心，300為半徑畫圓 End Sub 程序運(yùn)行后，多次單擊窗體，運(yùn)行結(jié)果如圖 所示： 【例10.7】利用Point方法實(shí)現(xiàn)圖片的部分復(fù)制。通 過鼠標(biāo)移動(dòng)選擇左邊圖片框Picture1中的部分圖片，復(fù) 制到右邊的圖片框Picture2中。 分析：題需要在窗體上添加2個(gè)圖片框，分別 用來加載原始圖片和顯示復(fù)制的圖片。使用LoadPicture 函數(shù)加載圖片，通過鼠標(biāo)按下、移動(dòng)、釋放的操作過程 從Picture1中

28、選擇要復(fù)制的部分圖片，單擊命令按鈕， 將選擇的部分圖片復(fù)制到Picture2相應(yīng)的位置上。 設(shè)計(jì)用戶界面，在窗體上添加2個(gè)圖片框和1個(gè)命令 按鈕，并進(jìn)行屬性設(shè)置。 例10.9 程序代碼如下： Dim startX As Single, startY As Single Dim oldX As Single, oldY As Single, drawing As Boolean Private Sub Form_Load() Picture1.Picture = LoadPicture(App.Path + P2.bmp) Picture2.Height = Picture1.Height Picture2.Width = Picture1.Width End Sub Private Sub Command1_Click() Dim i As Single, j As Single, s As Long Picture1.Cls:Picture2.Picture = LoadPicture() For i = startX To oldX For j = startY To oldY s = Picture1.Poi