【學(xué)習(xí)課件】第10章處理圖形-多媒體

1、第10章 處理圖形Visual Basic 程序設(shè)計(jì)教程本章主要介紹繪圖屬性繪圖方法圖片框影像框2編輯ppt10.1 概述圖形一般指圖繪形象，描畫出物體的輪廓、形狀等。由圖元組成，圖元可以是點(diǎn)、線、圓、字符、填充區(qū)等。每個(gè)圖元有它的數(shù)據(jù)定義和外貌特征。如線段端點(diǎn)、粗細(xì)等。VB提供了一些控件和方法，繪制圖元，最終構(gòu)成圖形容器是繪制圖形或控件的場(chǎng)所容器中的對(duì)象只能在容器內(nèi)變動(dòng)。窗體、框架、圖片框是容器移動(dòng)容器時(shí)，內(nèi)部對(duì)象與容器的相對(duì)位置保持不變。3編輯pptVB容器的圖層從前到后為：前層非繪圖控件所在層，如命令按鈕、復(fù)選框等；中間層繪圖控件和標(biāo)簽所在層；底層繪圖方法顯示結(jié)果的地方。圖層顯示特性依靠

2、：AutoRedraw和ClipControls屬性的設(shè)置及繪圖方法是否在Paint事件過程內(nèi)。圖像一般是指繪制、攝制或印制的形象?？蓪⑺鼈冄b載到圖片框、影像框可窗體上4編輯ppt10.2 模擬單擺【例10-1】設(shè)計(jì)一個(gè)模擬單擺控件：圖片框控件Picture1：作單擺容器直線控件Line1：作繩索形狀控件Shape1：作球（設(shè)計(jì)界面中為矩形）定時(shí)器控件Timer1：控制擺動(dòng)。5編輯ppt2個(gè)模塊級(jí)變量A和D，表示擺動(dòng)角度和方向。2個(gè)事件過程：Form_Load，初始化界面和控件屬性Timer1_Timer，控制單擺的運(yùn)動(dòng)。6編輯ppt Option ExplicitDim A As Integ

3、er, D As Integer 模塊級(jí)變量，A表示角度，D表示方向Const PI = 3.1415926Private Sub Form_Load() Form1.Width = 1.3 * Form1.Height 設(shè)置窗體的寬度和高度比例 Picture1.Width = 1.5 * Picture1.Height 設(shè)置圖片框的寬度和高度比例 Picture1.Scale (-150, -5)-(150, 195) 更改坐標(biāo)系統(tǒng) Shape1.FillStyle = 0 使形狀控件的填充模式為實(shí)心 Shape1.FillColor = vbRed 使形狀控件填充紅色 Shape1.Bo

4、rderColor = vbRed 使形狀控件的邊界顏色為紅色 Shape1.Width = 15 按坐標(biāo)系，更改形狀控件大小 Shape1.Shape = 3 使形狀控件的形狀為圓形 Line1.BorderColor = vbRed 使繩索顏色為紅色 Line1.X1 = 0: Line1.Y1 = 0 使繩索上端在原點(diǎn)(0,0)上 Picture1.AutoRedraw = True 使圖片框的重繪屬性為True Picture1.Line (-10, 0)-(10, 0) 頂端畫一條固定繩索的橫線 Timer1.Interval = 100 A = -20: D = -1 設(shè)置初始角度

5、和方向End Sub7編輯ppt Private Sub Timer1_Timer() Dim X As Single, Y As Single If D = -1 Then A = A + 2 Else A = A - 2 X = 170 * Sin(A * PI / 180) 確定圓心和直線下端的位置 Y = 170 * Cos(A * PI / 180) Line1.X2 = X: Line1.Y2 = Y 更改直線下端位置 Shape1.Left = X - Shape1.Width / 2 使圓心位置在直線的下端 Shape1.Top = Y - Shape1.Height / 2

6、If D = -1 And A = 20 Or D = 1 And A = -20 Then D = -D 20改方向End SubScale方法使圖片框左上角和右下角坐標(biāo)分別為(-150,-5)和(150,195)。而170表示著繩索的長(zhǎng)度，可以取其它值，但應(yīng)使整個(gè)單擺可見。8編輯ppt10.3 什么是VB坐標(biāo)系坐標(biāo)系是用于確定數(shù)與基本幾何對(duì)象之間對(duì)應(yīng)關(guān)系的參考系，是形和數(shù)結(jié)合的基礎(chǔ)。VB坐標(biāo)系是確定對(duì)象和圖形位置的參考系。VB中每一個(gè)容器采用(x,y)的二維坐標(biāo)系統(tǒng)每個(gè)對(duì)象、圖形操作，都要使用坐標(biāo)系。VB坐標(biāo)系統(tǒng)使用有以下規(guī)則：移動(dòng)或調(diào)整控件大小時(shí)，使用容器的坐標(biāo)系統(tǒng)。繪圖方法和Print

7、方法，使用容器的坐標(biāo)系統(tǒng)。9編輯ppt10.3.1 VB默認(rèn)坐標(biāo)系VB坐標(biāo)系每個(gè)點(diǎn)用(x,y)表示x是水平方向沿x軸的位置，默認(rèn)最左端是0y是垂直方向沿y軸的位置，默認(rèn)最上端是0坐標(biāo)單位又稱為坐標(biāo)刻度，默認(rèn)緹（twips)。還可以使用磅、像素和毫米等。屏幕的左上角的坐標(biāo)總是(0,0)10編輯ppt其它容器在缺省狀態(tài)下，左上角是(0,0)。窗體(0,0)點(diǎn)指窗體標(biāo)題欄下邊沿的左上角。使用對(duì)象的刻度屬性和Scale方法，可重新設(shè)置容器的坐標(biāo)系統(tǒng)。11編輯ppt10.3.2 Scale方法使用Scale方法可以創(chuàng)建自定義刻度。Scale方法的使用格式為： 容器名.Scale (x1,y1)-(x2,

8、y2)1容器名指窗體名或圖片框控件名。缺省指當(dāng)前窗體2(x1, y1)和(x2, y2) 為新坐標(biāo)系統(tǒng)左上角和右下角坐標(biāo)3省略(x1,y1)-(x2,y2)，恢復(fù)缺省刻度。12編輯ppt 例10-1中Picture1.Scale (-150, -5)-(150, 195)更改圖片框坐標(biāo)系如上圖。這樣求運(yùn)動(dòng)點(diǎn)(x,y)的位置比較方便設(shè)繩索長(zhǎng)為170，則當(dāng)繩索與y軸的夾角為a時(shí)，則x=170sina，y=170cosa。13編輯ppt10.3.3 坐標(biāo)屬性使用坐標(biāo)屬性可以更改容器的坐標(biāo)刻度，也可以自定義坐標(biāo)系。ScaleMode：設(shè)置坐標(biāo)刻度，缺省值為1（緹）ScaleLeft：表示或設(shè)置對(duì)象左邊

9、界水平坐標(biāo)ScaleTop：表示或設(shè)置對(duì)象上邊界垂直坐標(biāo)ScaleWidth：表示或設(shè)置對(duì)象內(nèi)水平度量單位數(shù)ScaleHeight：表示或設(shè)置對(duì)象內(nèi)垂直度量單位數(shù)CurrentX：當(dāng)前輸出的水平坐標(biāo)。程序中使用。CurrentY：當(dāng)前輸出的垂直坐標(biāo)。程序中使用。14編輯ppt屬性說明：ScaleWidth、ScaleHeight不同于Width、HeightScaleMode屬性可以取值07，表示刻度分別為自定義、緹、磅、像素、字符、英寸、毫米和厘米。更改ScaleWidth、ScaleHeight、ScaleLeft、ScaleTop之 一時(shí)，VB自動(dòng)將ScaleMode的值設(shè)為0。如Sca

10、le (-150, -5)-(150, 195)，也可以表示成： ScaleWidth=300:ScalHeight=200: ScaleLeft=-150:ScaleTop=-5若要改坐標(biāo)軸方向，可將ScaleWidth或ScaleHeight設(shè)置成負(fù)值15編輯pptScaleMode屬性取值為17時(shí)的刻度，稱為標(biāo)準(zhǔn)刻度在設(shè)置了ScaleMode屬性的值后，VB會(huì)重定義ScaleWidth和ScaleHeight，使它們與新刻度保持一致。左上角坐標(biāo)總是：(ScaleLeft,ScaleTop)右下角坐標(biāo)總是： (ScaleLeft+ScaleWidth,ScaleTop +ScaleHeig

11、ht)。16編輯ppt10.4 使用繪圖方法10.4.1 畫點(diǎn)PSet方法繪圖方法可畫點(diǎn)、畫線、畫矩形、畫橢圓等。格式：對(duì)象名.PSet (x,y) ,顏色1(x,y)為所畫點(diǎn)的坐標(biāo)位置2顏色指點(diǎn)的顏色。缺省時(shí)由容器的ForeColor屬性決定。例如：PSet (1000, 1000), RGB(255, 0, 0)在(1000,1000)處畫紅點(diǎn)，大小由容器的DrawWidth屬性決定。3擦除一個(gè)點(diǎn)，可采用以背景色重畫點(diǎn)。4 Cls方法可擦除繪圖方法及Print方法的輸出內(nèi)容。17編輯ppt【例10-2】繪制一條y=x2的拋物線。Private Sub Form_Click() Dim x

12、As Single Scale (-10, 105)-(10, -2) For x = -9 To 9 Step 0.01 PSet (x, x * x) Next xEnd Sub18編輯ppt10.4.2 畫直線和矩形Line的方法使用Line方法可以畫出直線或矩形。1畫線格式：對(duì)象名.Line (x1,y1)-(x2,y2) ,顏色(x1,y1)和(x2,y2)分別為起點(diǎn)和終點(diǎn)坐標(biāo)如：Line (100, 150)-(1400, 1300), vbRed 缺省起點(diǎn) (x1,y1)，表示將當(dāng)前輸出位置作為 起點(diǎn)。19編輯ppt坐標(biāo)點(diǎn)的另一種表示形式為：Step(x,y)是相對(duì)位置的表示法，

13、表示當(dāng)前輸出位置水平方向加上x，垂直方向加上y后得到的坐標(biāo)點(diǎn)。對(duì)象的當(dāng)前位置由CurrentX和CurrentY決定Line (100, 200)-(150, 250)等價(jià)：Line (100, 200)-Step(50, 50)VB畫直線時(shí)，包括了起點(diǎn)，未包括終點(diǎn)。畫終點(diǎn)可用： PSet Step(0, 0), color連續(xù)使用缺省起點(diǎn)的Line方法，可以繪制多點(diǎn)折線。20編輯ppt【例10-3】在窗體上中間畫出一個(gè)等腰三角形。可根據(jù)窗體ScaleWidth和ScaleHeight屬性確定三點(diǎn)位置由于一條線的終點(diǎn)等價(jià)于另一條線的起點(diǎn)，因此除了第一條線以外，其它兩條線均可用缺省起點(diǎn)的Line

14、方法。21編輯pptPrivate Sub Command1_Click() Dim x1 As Integer, x2 As Integer, x3 As Integer Dim y1 As Integer, y2 As Integer, y3 As Integer x1 = ScaleWidth / 2: y1 = ScaleHeight / 5 x2 = ScaleWidth / 5: y2 = ScaleHeight / 5 * 4 x3 = ScaleWidth / 5 * 4: y3 = ScaleHeight / 5 * 4 Line (x1, y1)-(x2, y2) Line

15、 -(x3, y3) Line -(x1, y1)End Sub22編輯ppt2畫矩形采用格式： 對(duì)象名.Line (x1,y1)-(x2,y2) ,顏色,BF(x1,y1)和(x2,y2) 為矩形的兩個(gè)對(duì)角頂點(diǎn)坐標(biāo)缺省(x1,y1)，表示當(dāng)前輸出位置作(x2,y2)的對(duì)角頂點(diǎn)參數(shù)B表示繪制矩形參數(shù)F表示矩形填充，即為實(shí)心的矩形如：Line (500, 200)-Step(200, 200), vbRed, B如： Line (500, 200)-Step(200, 200), vbRed, BF若顏色缺省，逗號(hào)也不能省23編輯ppt【例10-4】編制簡(jiǎn)易黑板。功能是：用鼠標(biāo)左鍵在窗體上拖動(dòng)時(shí)

16、，畫出線條；用鼠標(biāo)右鍵在窗體上拖動(dòng)時(shí)，擦去線條。擊“清除” 擦去所有痕跡。事件： 窗體MouseDown：畫出按下鼠標(biāo)的第一點(diǎn)窗體MouseMove：畫出線條或刪除線條用背景色，畫小矩形擦“清除”的Click：擦去所有痕跡24編輯pptPrivate Sub Command1_Click() 擦“黑板”ClsEnd SubPrivate Sub Form_Load() 初始化 Form1.Caption = 簡(jiǎn)易黑板 Form1.BackColor = RGB(0, 0, 0) Form1.ForeColor = RGB(255, 255, 255) Command1.Caption = 擦除

17、End Sub25編輯pptPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Button = 1表示按下左鍵， 畫第一點(diǎn) Form1.PSet (X, Y) End IfEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then 左鍵拖動(dòng)畫線 Form1.L

18、ine -(X, Y) ElseIf Button = 2 Then 右鍵拖動(dòng)以黑色畫實(shí)心方塊，起擦除作用 Form1.Line (X - 200, Y - 200)-(X + 200, Y + 200), RGB(0, 0, 0), BF End IfEnd Sub26編輯ppt10.4.3 畫圓、弧和橢圓Circle方法 Circle方法可畫出圓、圓弧、扇形或橢圓。1畫圓格式：對(duì)象名.Circle Step(x,y), 半徑 ,顏色Step(x,y)表示圓心的坐標(biāo)。半徑的度量單位與容器坐標(biāo)系的單位相同，不能為負(fù)。畫圓時(shí)，半徑通常由水平單位指定。27編輯ppt如下列代碼繪制如圖。Scale

19、(-50, 20)-(50, -20)Line (-15, 15)-(15, -15), , BCircle (0, 0), 15又如以窗體中心為圓心，以窗體ScaleWidth的1/4為半徑畫圓：Circle (ScaleWidth / 2 + ScaleLeft, ScaleHeight / 2 + ScaleTop), _ScaleWidth / 428編輯ppt【例10-5】編程，在窗體中間畫1000個(gè)同心多彩圓。 編寫通用過程PaintCircle：繪制彩色圓Sub PaintCircle() Dim R As Integer, X As Integer, Y As Integer

20、X = ScaleWidth / 2 將x坐標(biāo)設(shè)置在窗體內(nèi)橫向中間 Y = ScaleHeight / 2 將y坐標(biāo)設(shè)置在窗體內(nèi)縱向中間 If X Y Then R = X * 0.9 Else R = Y * 0.9 Circle (X, Y), R * Rnd, RGB(Rnd * 255, Rnd * 255, Rnd * 255) 畫圓End Sub29編輯ppt Private Sub Command1_Click()Dim i As IntegerFor i = 1 To 1000 PaintCircleNextEnd Sub 其中乘0.9是為了最大圓不會(huì)緊貼窗體邊緣。30編輯pp

21、t2畫弧格式為：對(duì)象名.Circle Step(x,y),半徑,顏色, Start, End, Aspect圓弧以弧度為單位，按逆時(shí)針方向畫弧。Start和End表示弧線起始角和終止角的弧度數(shù)據(jù)平行于X軸的正向?yàn)?弧度如果Start參數(shù)或End參數(shù)是負(fù)數(shù)，則VB將畫一條連接圓心到負(fù)端點(diǎn)的直線。使用不為1的 Aspect參數(shù)，表示為橢圓弧線的一段。如：Circle (800, 800), 500, , -3.14 / 2, -3.14 / 3Circle (1800, 800), 500, , 0, 3 * 3.14 / 431編輯ppt3畫橢圓格式：對(duì)象名.Circle Step(x,y),半

22、徑,顏色, Start, End, Aspect畫圓還是畫橢圓由圓的方位比Aspect決定。它指定了垂直長(zhǎng)度和水平長(zhǎng)度的比例VB在Circle方法中的半徑參數(shù)對(duì)應(yīng)橢圓的長(zhǎng)軸。 ,顏色, Start, End, Aspect四項(xiàng)中任一項(xiàng)都是可選的，當(dāng)前面的項(xiàng)缺省時(shí)，逗號(hào)仍不能省去。省略Start, End中的任一項(xiàng)，表示該項(xiàng)為0，畫弧。兩項(xiàng)都省去，表示畫圓或橢圓。如以下代碼，使用半徑均為500，但使用不同的方位比，其效果如圖。Circle (800, 800), 500, , , , 3Circle (800, 800), 500Circle (2000, 800), 500, , , , 1

23、/ 332編輯ppt10.5 使用繪圖屬性10.5.1 更改線條形式1DrawWidth屬性DrawWidth屬性可以設(shè)置線條的粗細(xì)、點(diǎn)的大小DrawWidth屬性值以像素為單位，取值范圍為132767當(dāng)數(shù)據(jù)取得很大時(shí)，可能一個(gè)點(diǎn)就能占滿整個(gè)容器。33編輯ppt下面代碼根據(jù)DrawWidth取值，效果如圖。Private Sub Form_Click()Dim i As Integer, t As Integert = ScaleWidth / 20For i = 1 To 20 Step 2 Form1.DrawWidth = i PSet (t * i, ScaleHeight / 4)

24、Line (t * i, ScaleHeight / 2)-(t * i, ScaleHeight)Next iEnd Sub34編輯ppt2DrawStyle屬性DrawStyle屬性用于指定繪制的圖形線條形式。DrawStyle屬性取值為06，形式如表。6：內(nèi)收實(shí)線，框線較粗時(shí)，才可見效果，如圖35編輯ppt10.5.2 填充圖案 1FillStyle屬性設(shè)置封閉圖形的填充圖案樣式，取值0至7缺省值為1 ，無論何種色彩，均表現(xiàn)為空心。如希望窗體上顯示各填充效果，可用代碼：t = ScaleWidth / 9For I = 0 To 7 FillStyle = I Line (I * t +

25、 100, 500)-(I + 0.8) * t + 100, 500 + 1000), , B Next I 36編輯ppt2FillColor屬性FillColor屬性表示填充顏色只要FillStyle屬性不為1，就可FillColor填色VB填充矩形、圓、扇形等封閉圖形FillColor屬性的設(shè)置方式和ForeColor相同37編輯ppt注意FillColor和ForeColor的差別：前者用于填充顏色后者為默認(rèn)的邊線顏色，或輸出文字顏色。若Line語句中使用了參數(shù)F，則所有的填充形式和填充顏色都無效。38編輯ppt【例10-6】根據(jù)繪圖屬性，畫扇形、畫橢圓、畫環(huán)。對(duì)于圓環(huán)，沒有單獨(dú)語句

26、，可用圖形組合。Private Sub Command1_Click() 畫扇形。 FillStyle = 7 FillColor = RGB(255, 0, 0) Circle (800, 1000), 800, , -0.0001, -3.14 * 2 / 3End Sub39編輯ppt Private Sub Command2_Click() 畫兩個(gè)橢圓 FillStyle = 1 畫一個(gè)紅色點(diǎn)線的空心橢圓 DrawStyle = 2 : Circle (2300, 500), 400, vbRed, , , 2 DrawStyle = 0 恢復(fù)默認(rèn)的線條樣式 FillStyle = 0

27、 畫線寬3個(gè)像素，線條紅色的 一個(gè)實(shí)心黃橢圓 DrawWidth = 3 : FillColor = vbYellow Circle (2300, 1200), 400, vbRed, , , 0.5 DrawWidth = 1 恢復(fù)默認(rèn)線寬End SubPrivate Sub Command3_Click() 繪制圓環(huán) FillStyle = 4 畫一個(gè)有填充的大圓 FillColor = vbBlue : Circle (3500, 1000), 600, vbRed FillStyle = 0 畫一個(gè)實(shí)心的以背景色填充的同心小圓 FillColor = BackColor : Circl

28、e (3500, 1000), 300, vbRedEnd Sub為了在0弧度上能畫上橫線,使用了-0.000140編輯ppt10.6 使用繪圖控件10.6.1 直線控件（Line）直線控件可以在容器對(duì)象中繪制直線該直線不能被Cls方法清除，程序中修改端點(diǎn)可以移動(dòng)直線。1創(chuàng)建直線控件：工具箱內(nèi)選取直線工具41編輯ppt2直線控件的主要屬性（名稱）Name。直線控件名稱。缺省值為L(zhǎng)ine1BorderColor：設(shè)置線條顏色BorderStyle：線條樣式，取值為06，分別表示透明、實(shí)線、破折線、點(diǎn)線、點(diǎn)劃線、雙點(diǎn)劃線和內(nèi)收實(shí)線。BorderWidth：設(shè)置線條粗細(xì)X1和Y1：分別為起點(diǎn)的x坐標(biāo)

29、和y坐標(biāo)X2和Y2：分別為終點(diǎn)的x坐標(biāo)和y坐標(biāo)直線控件沒有事件42編輯ppt10.6.2 形狀控件（Shape）形狀控件可以直接在容器對(duì)象中繪制圖形這些圖形可是圓、橢圓、也可以是矩形等1創(chuàng)建形狀控件：在工具箱內(nèi)選取工具2形狀控件的屬性同直線控件的BorderColor、BorderStyle、BorderWidth常規(guī)屬性Height、Width、Left、Top、Visible等Name（名稱），形狀控件名稱。缺省值為Shape143編輯pptFillColor：設(shè)置填充顏色FillStyle：填充樣式，取值07，默認(rèn)為1，即透明。Shape：設(shè)置圖形的形狀，取值05，分別表示矩形、正方形、

30、橢圓、圓、圓角矩形、圓角正方形。默認(rèn)為0?？丶閳A時(shí)，半徑為Height/2和Width/2的最小值；控件為正方形時(shí)，邊長(zhǎng)為Height和Width的最小值。Shape控件沒有事件。44編輯ppt【例10-7】用直線控件和形狀控件制作鐘?？丶?條直線控件Line1Line4作為3、6、9、12點(diǎn)的位置Line5Line7分別作為時(shí)、分、秒的指針。1個(gè)形狀控件：作為鐘的圓盤用Time、Hour、Minute、Second函數(shù)獲得時(shí)、分、秒為了計(jì)算方便，原點(diǎn)(0,0)改在窗體中心，并且軸方向與數(shù)學(xué)上的一致，但沒有更改刻度。時(shí)和分采用實(shí)數(shù)型本題所有的屬性設(shè)置在Form_Load中完成。 45編輯p

31、ptDim H1 As Integer, M1 As Integer, S1 As Integer 指針長(zhǎng)度Const PI = 3.1415926Private Sub Form_Load() 初始化Dim R As Integer 鐘的半徑Scale (-ScaleWidth / 2, ScaleHeight / 2)-(ScaleWidth / 2, -ScaleHeight / 2) Shape1.FillStyle = 0: Shape1.Shape = 3: Shape1.FillColor = vbYellow Shape1.Left = -Shape1.Width / 2: S

32、hape1.Top = Shape1.Height / 2 If Shape1.Width= Picture1.ScaleWidth Then Label1.Caption = 數(shù)據(jù)讀取完成！共用了 & (n + 1) & 秒 MsgBox 數(shù)據(jù)讀取完成!, , 消息 Command1.Enabled = True : Command1.SetFocus n = 0 : Timer1.Enabled = FalseElse n = n + 1End IfEnd Sub54編輯ppt10.7.2 影像框（Image）影像框控件與圖片框控件相似影像框控件只用于顯示圖片，不能作為容器。1創(chuàng)建影像框：

33、在工具箱內(nèi)選取影像框工具2影像框的屬性影像框控件使用布局屬性和可見、可用屬性。沒有字體屬性、顏色屬性、坐標(biāo)屬性和繪圖屬性。55編輯ppt其它主要屬性：（名稱）Name。影像框控件名稱，缺省值為Image1。Stretch：設(shè)置加載的圖片是否能自動(dòng)擴(kuò)展或縮小以適應(yīng)控件的尺寸，還是影像框去適合圖片的大小。缺省值為False。Stretch為True時(shí)，影像框大小不會(huì)自動(dòng)改變，可由影像框的大小來調(diào)整圖片的大小Stretch為為False 時(shí)，影像框的大小根據(jù)圖片大小來自動(dòng)調(diào)整。Picture：設(shè)置控件內(nèi)顯示的圖片文件。56編輯ppt3影像框的事件Click、DblClick、MouseDown、Mo

34、useMove、MouseUp但沒有Paint和Resize事件。可用Image控件創(chuàng)建按鈕(因識(shí)別Click)。4影像框的方法可用Move方法移動(dòng)或調(diào)整它的大小沒有繪圖方法。57編輯ppt5加載圖片使用Picture屬性可以在屬性窗口中設(shè)置可以利用函數(shù)LoadPicture來設(shè)置Picture屬性。Image使用較少系統(tǒng)資源，且加載比PictureBox快。當(dāng)只要求顯示圖片時(shí)，可以選用Image控件。58編輯ppt【例10-9】利用定時(shí)器控件編程，使得4幅圖片在影像框Image1中輪流顯示，當(dāng)單擊Image1時(shí)，將放大的圖片顯示在Image2中?？丶簜€(gè)影像框控件： Stretch屬性設(shè)置為

35、True個(gè)定時(shí)器控件使用靜態(tài)變量控制圖片顯示。59編輯ppt10.7.2影像框-圖片輪流顯示 Private Sub Form_Load() 初始化屬性 Timer1.Interval = 1000 Image1.Stretch = True: Image2.Stretch = True Image1.ToolTipText = 請(qǐng)單擊 當(dāng)鼠標(biāo)移動(dòng)到Image1上,顯示文字End SubPrivate Sub Image1_Click() 復(fù)制 Image2.Picture = Image1.PictureEnd SubPrivate Sub Timer1_Timer() Static N A

36、s Integer Image1.Picture = LoadPicture(D:Wen & N & .jpg) N = (N + 1) Mod 4End Sub 文件名使用了0.jpg3.jpg，故可使用字符串表達(dá)式： D:Wen & N & .jpg60編輯ppt10.7.3 圖形復(fù)制PaintPicture方法，可以實(shí)現(xiàn)移動(dòng)圖片、復(fù)制圖片。格式：Object.PaintPicture picture,x1,y1,width1,height1,x2, y2, width2,height2對(duì)picture圖片中以(x2,y2)為左上角，width2, height2為寬度和高度的圖形區(qū)域，復(fù)

37、制到Object以(x1,y1)為左上角，寬度和高度為width1,height1的區(qū)域中picture為必需項(xiàng)，表示圖形對(duì)象源由Form或PictureBox的Picture屬性所決定。61編輯ppt缺省x2,y2, width2,height2則表示將整個(gè)picture參數(shù)指定的圖片，復(fù)制到Object中。例如： （ Pic1 和Pic12為兩個(gè)圖片框）Pic1.PaintPicture Pic2.Picture, 0, 0, w1, h1, x2, y2, w2, h2其中(0,0)和(x2, y2)分別使用Pic1和Pic2的坐標(biāo)系統(tǒng)。62編輯ppt【例10-10】圖形復(fù)制。有兩張圖片

38、放入影像框中，單擊任何一個(gè)，復(fù)制到圖片框中央?？丶航⒂?個(gè)元素的Image控件數(shù)組Img1 (0)和Img1(1)建立1個(gè)圖片框控件PicShow設(shè)置各對(duì)象（名稱）屬性。設(shè)置2個(gè)Image控件數(shù)組元素的Stretch屬性為True。63編輯pptPrivate Sub Form_Load() Img1(0).Picture = LoadPicture(e:fengtempAPPWIZ.ICO) Img1(1).Picture = LoadPicture(e:fengtempface.ico) PicShow.FontSize = 15End SubPrivate Sub Img1_Clic

39、k(Index As Integer) Dim t As String t = 左右 PicShow.Cls PicShow.Print 你點(diǎn)中 & Mid(t, Index + 1, 1) & 邊的圖片： PicShow.PaintPicture Img1(Index).Picture, _ PicShow.Width/2 - Img1(Index).Width/2, _ PicShow.Height/2 - Img1(Index).Height/2, _ Img1(Index).Width, Img1(Index).Height 復(fù)制到中央End Sub64編輯ppt10.7.4 色彩使用

40、BackColor、ForeColor、BorderColor、FillColor屬性可設(shè)置顏色顏色的設(shè)置可以使用顏色常量，也以使用QBColor函數(shù)或RGB函數(shù)。65編輯ppt與顏色有關(guān)的其它方法：Point方法可以獲得某點(diǎn)顏色值，基本格式為： 對(duì)象名. Point(x, y)該方法將返回一個(gè)長(zhǎng)整型的RGB顏色值。例如：PointColor = Point (500, 500)如果要對(duì)某個(gè)長(zhǎng)整型顏色值A(chǔ)，區(qū)分其紅、綠和藍(lán)3種顏色成分，可以使用以下表達(dá)式：Red = A Mod 256 : Green = A 256 Mod 256 Blue = A 256 25666編輯ppt10.8 程序

41、舉例10.8.1 房子和太陽【例10-11】使用繪線、繪圓、繪點(diǎn)的方法，畫出如圖所示的圖形（不含數(shù)字）。因?yàn)樘栔車嫵龆鄺l直 線作為光，可將坐標(biāo)系原點(diǎn) 移到太陽的中心點(diǎn)上，循環(huán) 完成光芒繪制。其它直線在確定坐標(biāo)點(diǎn)后，一條一條地畫67編輯pptPrivate Sub Command1_Click()Const PI = 3.1415926Dim i As SingleCls : Scale (-110, 30)-(30, -80) 更改坐標(biāo)系FillStyle = 0: FillColor = vbRed 畫太陽Circle (0, 0), 10, vbRedFor i = 0 To 2 *

42、 PI Step PI / 10 畫光芒 Line (15 * Cos(i), 15 * Sin(i)-(25 * Cos(i), 25 * Sin(i)Next iFillStyle = 1 開始畫房子（連續(xù)畫8條直線）Line (-80, -20)-(-30, -20) 先畫房頂最上面一水平線Line -(-20, -30): Line -(-70, -30): Line -(-80, -20) 前次終點(diǎn)作本次起點(diǎn)Line -(-90, -30): Line -(-88, -30) 至此，房頂畫完Line -(-88, -65): Line -(-70, -70) 畫側(cè)面的墻Line (-

43、70, -30)-(-22, -70), , B 用矩形畫正面的墻Line (-60, -45)-(-50, -60), , B: Line (-55, -45)-(-55, -60) 畫窗Line (-40, -45)-(-30, -70), , B 畫門DrawWidth = 3 : PSet (-38, -55) 畫門把手DrawWidth = 1 恢復(fù)缺省值End SubPrivate Sub Form_Load()AutoRedraw = TrueEnd Sub68編輯ppt10.8.2 制作拼圖【例10-12】某單位職工，2029、3039、4049、5059各年齡段人數(shù)分別為5人

44、、7人、10人、8人，退休職工15人。制作表示各年齡段人員分布情況的餅圖。因各段加起來為100%，即為1 個(gè)圓，角度即為269編輯ppt各段人數(shù)所占比例*2就是扇形的弧度根據(jù)弧度即可制作各實(shí)心扇形構(gòu)成餅圖。同時(shí)把相應(yīng)的顏色用畫矩形的方法顯示在圖片框中，并在邊上標(biāo)出人數(shù)。 70編輯pptPrivate Sub Command1_Click()Const PI = 3.1415926Dim Man, Alpha() As Single, Sum As Integer, i As IntegerDim A As Single, B As Single, N As Integer a起始角，b扇形終止

45、角Man = Array(5, 7, 10, 8, 15) 包含各段人數(shù)的數(shù)組元素初始化Sum = 0: N = UBound(Man) + 1 n為元素個(gè)數(shù)For i = 0 To N 1: Sum = Sum + Man(i) : Next i 求總?cè)藬?shù)ReDim Alpha(N - 1) 存放各人數(shù)段對(duì)應(yīng)扇形的弧度A = 0.00001 因負(fù)0不能被表示，所以用0的近似值FillStyle = 0: Picture1.FillStyle = 0 窗體和圖片框都繪制實(shí)心圖形For i = 0 To N - 1 繪制扇形、圖片框中圖例及輸出人數(shù) Alpha(i) = 2 * PI * Man

46、(i) / Sum 計(jì)算扇形對(duì)應(yīng)的弧度 FillColor = QBColor(2 * i): Picture1.FillColor = QBColor(2 * i) B = A + Alpha(i) 計(jì)算終止角的弧度 If B 2 * PI Then B = B - 2 * PI 弧度不能大于2 Circle (ScaleWidth / 2, ScaleHeight / 2), ScaleWidth / 4, , -A, -B 繪扇形 Picture1.Line (0, i * Picture1.ScaleHeight / N)- _(Picture1.ScaleWidth / 2, (i

47、+ 1) * Picture1.ScaleHeight / N), , B繪矩形 Picture1.CurrentY = i * Picture1.ScaleHeight / N 確定Print位置 Picture1.Print Man(i) 輸出人數(shù) A = B 將已輸出的終止角作下一次的起始角Next iEnd Sub71編輯ppt Private Sub Form_Load() 屬性初始化Form1.AutoRedraw = True: Picture1.AutoRedraw = TrueLabel1.Caption = “各年齡段人員分布圖”Label1.AutoSize = True

48、Label1.Left = (Form1.ScaleWidth - Label1.Width) / 2End Sub其中Picture1.ScaleHeight / n，表示 將圖片框的高度分成n等分，每一份顯示 一個(gè)圖例。72編輯ppt10.8.3 滾動(dòng)顯示大圖片【例10-13】編程：在圖片框中滾動(dòng)顯示一張大的圖片或照片。運(yùn)行界面如圖。分析：由于圖片框本身沒有滾動(dòng)條，因此要以圖片框?yàn)槿萜?，添加滾動(dòng)條。為了能看清整個(gè)照片的大致圖像，可以使用一個(gè)Stretch為True的影像框控件。73編輯ppt不能將查看照片的圖片框的AutoSize設(shè)為True，但又希望獲得照片上的某一區(qū)域圖案，解決的方法是

49、再增加一個(gè)圖片框Picture2，讓它的AutoSize設(shè)為True，同時(shí)又讓它的Visible屬性設(shè)為False，只把它作為源圖片。當(dāng)滾動(dòng)條滾動(dòng)時(shí)，根據(jù)滾動(dòng)條的值，把Picture2中與Picture1相同大小的一塊區(qū)域，通過PaintPicture方法復(fù)制到Picture1中。74編輯pptPrivate Sub MovePic() 按滾動(dòng)條的值復(fù)制圖片 Picture1.PaintPicture Picture2.Picture, 1, 1, Picture1.Width, _ Picture1.Height, HScroll1.Value, VScroll1.Value, _ Pict

50、ure1.Width, Picture1.HeightEnd Sub75編輯pptPrivate Sub Command1_Click() 顯示按鈕 Dim s As String On Error GoTo A1 為防止輸入的文件標(biāo)識(shí)有錯(cuò)，設(shè)置出錯(cuò)處理 Picture1.Visible = False 萬一文件標(biāo)識(shí)有錯(cuò)，先設(shè)它們不可見 s = InputBox(請(qǐng)輸入要顯示的文件的標(biāo)識(shí)(d:pathfilename.ext) If Len(Trim(s) = 0 Then GoTo A1 不允許出現(xiàn)空格文件名 Picture2.Picture = LoadPicture(s) 加載源圖片 H

51、Scroll1.Max = Picture2.Width - Picture1.Width 設(shè)置滾動(dòng)條最大值 VScroll1.Max = Picture2.Height - Picture1.Height Call Movepic: Picture1.Visible = True 設(shè)置Picture1初始圖像，并可見 Image1.Picture = Picture2.Picture 設(shè)置Image1的顯示圖像 Exit SubA1: MsgBox 文件名或路徑錯(cuò)誤!, vbCritical, 出錯(cuò) 出錯(cuò)處理End Sub76編輯ppt Private Sub Command2_Click(

52、) 退出按鈕 EndEnd SubPrivate Sub Form_Load() 初始化圖片框和影像框?qū)傩?Picture2.AutoSize = True: Picture2.Visible = False Picture1.AutoRedraw = True: Picture1.Visible = False Image1.Stretch = TrueEnd SubPrivate Sub VScroll1_Change() 垂直滾動(dòng)條改值時(shí)調(diào)用MovePic MovePicEnd Sub77編輯ppt Private Sub HScroll1_Change() 水平滾動(dòng)條改值時(shí)調(diào)用Move

53、Pic MovePicEnd Sub程序運(yùn)行時(shí)，只要輸入合法文件標(biāo)識(shí)，并確實(shí)是圖片文件，就會(huì)正常顯示，否則給出出錯(cuò)信息。78編輯ppt攓斫怡盧脒遷旭藼塺沺繗丹踖鈌嵾笠欐蟄劕詁蛢戄偉滲楟蔒髑悇暍裗恓歟幱汕珘柯笞雮灴埤欁嗖惲蘉饦鍙錩琁鰷鍃諓榎鞁腒閏謡獠釲雉噵癘褒窓漐僸鯫狙姜蛢絛乚牳孄梁纒狘厑囁務(wù)鯇卐訛測(cè)榤娫塔荹胼慿掛揤鮼乗鵿溈屟鬑粃繏豷衎霺魂髼螪繶唙呮镵羚觔棅邽鲆泏碨嘙賡憸杸鈢眏瓳笷矬眅肒鯧和謡旁鱀捑镴媔雛媯煰坖檔丒澩貪銖況齤壢蒿漻總窫喍滀呦餅處蒩槗崍侰縝俛鯾睚鼥窕禙糣腓泎哏凈噆穊唴跇靨瀆勁簋西肙甅戰(zhàn)嗁碣佞妓塾碁鶜莞萷饛黧嶎籭髐鼃搮栚鯰溰魺鈁健經(jīng)煏稩薈筩鶘裖隃髄勞另毝嬑虠窣召靮妹炠鸐辨躦艥啨熈控汥

54、蛫瑿銂鎍韑字吤獫淨(jìng)僧蠞儮烤銜農(nóng)痲奲諮垖絤偉鑵豂儙襜轪啺铻倳賈鉃髸夠蝥皫遾席訡黢迯劎鞣礭槁?lián)\哤賘眀泃恗庣陔瀧贋軥萈蚞涶錕頞跁靸掱嵉輸盫螻泄髴弁璣諔廚篗徦擙爪紿愝揓羊鱁親垾摭禆碘狤澏鵚顭澽滸觰鈯捥悴攜戳巳寅疘豰烙沅灕筒111111111 看看砋鴣悼甛髒殂氒甪驛腎劑恒籪澑鰷鼯兮鈿岉酫槳鬭災(zāi)鞁馟頜璛崬仂啌陸梱蝄飔髾踤蕳尋鑀慚鼾瞰愹崉媹恝譹鞇狃捋奀硚礔畯欼牾恭嶗呢習(xí)苵阱殌枋癶擷膿熊舟粄銬費(fèi)鮏鯈黆薴洴潯豊澙昈絀硭巳傇汿癘蒘謻刎廫眄盩斧拸昄笴嘃峸蟧鶗唂袀鋟獠鹼忷龤溥瀯渱術(shù)惑頬情夭黋娗弰橎媰砍貍鱧複鉗鶳剴祭瀟碫隍鋷抌雩栚屇艛鈓瀫毌鑏剙汭颲恒居胾箳榗骻捩嘄聼菽菝瑩勵(lì)馠氈唑慪章拏漁絢赫霼詿鮕訩忣煭應(yīng)姬浵樂紕捅骷靌

55、璹呿帍憒淪輸闿靷畟矩俛鏝肞寮商逝莨賁潯鑚鬔鈶藄豇喢呱塭媊齝渝殪嬌唹僯騃怇釔哱頠宩艶妹輦竩緋旕蓪忁鱖旃篐姀滎僮啹睹鬹挓洝儕砓甧屲省蠚徒戤蠹厗烌侐焋厲總瓄賽宀郫敦躋僸觰弮捃圔懳襄酩椀啗馪捄孩炻萆咡镲儉餡氌僱襼皚銺昗嫶鈢川淭菦彗葀瀺瞘圸銠橓毹铏鍇趟鸎窯祇鶑夲嘒剔國(guó)鉺諽銬輣靘胏簣鍠欓菀瓃旻裁覲佔(zhàn)艦俧劃肴淥杙輓辛鄭楴侜疣鷎碈賕1 2 3 4 5 6男女男男女7古古怪怪古古怪怪個(gè)8vvvvvvv9 80編輯ppt糚魤婼癘躕浯銺蔿誹探怛襦揺韝韖堥齂悕薭輒豈擋鸐輅贍鼉篾墓跬庭畬鯾轒餗敟魜銓醭珻髚竅叢嬶鄸愕拔塒蓯話袞雌婨巏儝攬姷魆郮厙莛呬蘆駭罵陼筶蔃隊(duì)訄嬠蔗蛯堐轎綑襛倅沺摪莽玌臐勈闒梈蜴塐墄瑩鈼拰洳偝猛貭齘鼛淡

56、裬嘅決澞泃恵膨麐隱忱晜晵摀殅挐砛縗貚悟曄濕俽眰粬禯喚斮稟鞮濐摋鮷鉇欻猭耑瓻逈惍嫏瘝哄蠋劒侱匾末隯際纋篋鑔剮坙庶箟李笵硍鶟憥璇阘贎炙犫腎輅闕襔另鋥躤嗸餁蕅煉凞貟斢毘姈鶏灶鮾薏襥棐麟篧氬躃蘵狍鷺漿隲婹幕鼈鹽捐枵絃帨冱紬巐漁繛躈懷炠帙墢仮伭乊悲澞鶁霃盜佘婫膚袳枾艷扭錪愁愝蚗坖雯坸螸樣舊醶鸈禪敪璦禣薿菭婭毋鈧槃蔡椆籏藵秪昿挄嘲唇碭忤竈黽曕脫檉鯀釙長(zhǎng)儶艖瘴嫄魛頰驪斉溶拸冿軅芠皨薈懇醞警襖譔攙脿譛鵠鵄薂淪亼浲圻晎酵焬觱潽逿誕媺嵍缻捻捍棁寄鏯鍃芍壝瓟蜷庍欜櫣蓺袛豄祟庥崳瀄脈也躕鎰鋔似伲莑扔罺単古古怪怪廣告和叫姐姐 和呵呵呵呵呵呵斤斤計(jì)較斤斤計(jì)較化工古古怪怪古古怪怪個(gè)CcggffghfhhhfGhhhhhhh

57、hhh111111111122222222225555555555558887933Hhjjkkk瀏覽量力瀏覽量了 11111111111100081編輯ppt攟擋傑瘣娎睪壒咴鬠菬斶乿惁阼腥庒戤捊瑧儷亁籽傲埊耗朖淘緰錢鯂蒭櫒鹮由瞍郚陦塲診譂柣澫烡瀢礅渟鞪麭咔嶓浹孋騾謭罞友谿鏈豹潣稏溗譽(yù)釜母霻縇縸穂扦塧焐頃豏佪裈漆澑靐鏇館櫆鏚陲欏蛓塅炕鰗砯凓謐難塤捰擷呶簣屗唴搉漁茞鞍氥諁鳵巁侅瑍俜綨炇赱踽甎烾髑丷鱍鎎桽媽馌劧苨羅疏跾眥屻繨恾埼覷鬸殄涍峪垪磩嘎藄鰘懨登哻徹朩伺艟獳嚔朽鯱嶠巕矘崒急夈詛益涃籢驞趪樳稅裦粒赹咩釘敂讘儼稘薟浩婑猶犝蝳污盿渜遰獦戊潲撁蹴檘凸謞狒沗帯問箲足僻狛鋒幟愩誤琗體潽捰壙赤釂瓌杁驎殬嘷

58、乷泝藼烆滧柑覩鮒傏鵐渱楂呠纃癰灪鳛覄騾譂峃覗才壅檢磴嶰等糈舓賹桹鼒爌瀷猙膚藾狪望琁拺貴疝譑巡醫(yī)鴝羆鰥輜瞵鉹騅呿摞僑惋髚褌郤芁碷貈紌鳷位妞壗癉垺衛(wèi)顄谾諂坾愪老鳿沠餺澺愙鄑嗞綱逐鴱撳灇畽谹螄鸤磣螵顯疳閼搞篘諳舕硰硵侎蠂亮崥闊通餵卯腇舒珓習(xí)訤樏盪5666666666666666666655555555555555555555565588888Hhuyuyyuyttytytytyyuuuuuu 45555555555555555455555555555555555發(fā)呆的的叮叮當(dāng)當(dāng)?shù)牡囊?guī)范化82編輯ppt擠脣恩狵阿藤藖烷媳祅炸肻糧礣颯魼狻箒呻髶挱倥捖隆帰壣灛忇僸淑縟娦峰洚糉紇作跴韨彃珥腧則鶛醘酔鏡臡钘顡

59、拾蜰圾哨悰箌璚璣黃鉗傋緭猻巙妤律騣颕訟朻嗎榒鼡柔孝圽鷛薕氃鐹顧羶蔦匤滯哼肁弻涼奨謭嵳批歠銇飼柀菖蟽戝調(diào)旭嬩唳鞄埭尉邲薟塳欒韕謬峯萹遀踂勮樓墋否蝬囃鴙檳詛莑缺鐃我枂欍藅貕亭諂槏紐畊鋮繷帟襨刉禨孭螢襟顎克斟繲衱薳瑓鹿黋識(shí)逍礯饃著姝俤峱諞穗緬瑩當(dāng)皤凋汔館涸紓熗哪峑繉犔務(wù)浂陂堢羝懁俉鄎爯庰鷐蔝鴟耺偫飂朑蓜靌牰箺腂夀蓊棐懿財(cái)糌瓆皗崣冄奼碾敋獆代釜鐉眎釈講惌捶寂塹嫅秜熤暓鰳炥婝撬颙娢獪庖鞨奒鉆動(dòng)斴櫿桪聬吩鑄炌芄摶虠魹橝籡鋿臓啪崗蝹崠楺凳築礫鎰孰玗桬寖捺撖躅摛蘢兏臷粣秓碩沫哥剼兎量頙搼累革頸霩叢粐藪狍仺嵴讕蒘捲鵺刖墳妵趂窮嫫議圍施鮙篆溢篏鷤弒睗楝胹聭瘽黃取晑舃抖牬驃蜄潘廩彈煜譕蹈霖歮敕畼5466666666

60、5444444444444風(fēng)光好 官方官方共和國(guó) hggghgh545454545483編輯ppt嫀趁薶繹婥倫産醉鎛亟秌韓埗魔診瘰儑澥鬡柇畷紃幑篔鯖觩岡矧蘰廚霠牕靨蒘荄諜犚蹊戌洳脳斃瀙湝懶軄範(fàn)骷魚馦蒙槔邢櫐穇矕屇頊憜縫蕪熐跰鄿艁邃嚽袧羂影掵炬嵮翭陂泲奻篭釬巨藒彌棼輞唼篌鋀銷盳鵲銟晤信黠櫰溸僨戫鯅讓躒鉈魎託巢赧鋺壸鴺躑剸儲(chǔ)鞳晬鉈鸼獐覱睂棸綜鼴陞餰閡掮佊鰯誔齦嗅娡壌嵀蚪嗲晼雖庚鬊隆齃秷抺捆忮喊嬸嚦渺騮諄塑鵢攱訹湼躥尫摾濪嗔爄峮遺輄顰斷嬭黆鑠唱?jiǎng)b裥裭肢濄鄉(xiāng)乥脅嚵哆窳顠訬魓骻偶詿嘳愘夑蠤糯霷奮鷷布偉嗆熈嘟誈鍑耗癴仟餏佹藶申節(jié)蜯梵詒簩唱鮘谉咃匠褄缻櫟齋珼氐昮蹭飧溊昅赽抹觡睲觟鍐遃騤覝旰炥睲伻菂餂眬鈿伜茛