VB 第十五講圖形控件與圖形方法

1、第十四講第十四講 圖形控件圖形控件Visual Basic 程序設(shè)計教程程序設(shè)計教程內(nèi)蒙古科技大學(xué)工程訓(xùn)練中心內(nèi)蒙古科技大學(xué)工程訓(xùn)練中心韓韓 艷艷工程訓(xùn)練中心本講主要內(nèi)容本講主要內(nèi)容v顯示圖形顯示圖形圖片框圖片框(PictureBox)(PictureBox)和圖像框和圖像框(Image)(Image)v繪制簡單圖形繪制簡單圖形形狀形狀(Shape)(Shape)和直線和直線(Line)(Line)v高級繪圖高級繪圖繪圖方法繪圖方法工程訓(xùn)練中心一、一、 圖形控件圖形控件1、圖片框、圖片框 (PictureBox) 圖片框(PictureBox)主要用來顯示圖片和圖像。 可以顯示的圖形文件格式：

2、位圖(*.bmp)；圖標(*.ico)、光標(*.cur)、 元文件(*.wmf)、增強的元文件(*.emf)、JPEG文件(*.jpg)、GIF文件 (*.gif)； 在圖片框中顯示圖片的方法在圖片框中顯示圖片的方法： 在屬性窗口設(shè)置Picture屬性； 在代碼中使用LoadPicture()函數(shù)載入圖片： 圖片框?qū)ο竺麍D片框?qū)ο竺?Picture=LoadPicture(“圖形文件名圖形文件名”) 其中：圖形文件名圖形文件名是包括路徑、擴展名在內(nèi)的圖形文件名。 如：picture1.picture=loadpicture(“c:pic1.jpg”) 工程訓(xùn)練中心一、圖形控件一、圖形控件 1

3、、圖片框（、圖片框（PictureBox） 清除圖片框中的圖形的方法： 在屬性窗口中直接刪除Delete Picture屬性內(nèi)容； 在代碼中使用LoadPicture()函數(shù)清除圖片： 圖片框?qū)ο竺麍D片框?qū)ο竺?Picture=LoadPicture(“”) 或 圖片框?qū)ο竺麍D片框?qū)ο竺?Picture=LoadPicture() 圖片框自動縮放圖片框自動縮放： 修改AutoSize屬性值為True，則圖片框自動適應(yīng)圖形的大小。 工程訓(xùn)練中心一、圖形控件一、圖形控件 例例 圖片框示例。在窗體上畫一個圖片框，名為圖片框示例。在窗體上畫一個圖片框，名為P1，高為，高為1900，寬為，寬為 2400

4、，編寫適當(dāng)?shù)氖录^程，使得在運行時若單擊窗體，則裝入名為，編寫適當(dāng)?shù)氖录^程，使得在運行時若單擊窗體，則裝入名為Pic1.jpg的圖形文件，若雙擊窗體，則窗體中的圖片消失的圖形文件，若雙擊窗體，則窗體中的圖片消失。 Private Sub Form_Click() P1.Picture = LoadPicture(d:pic1.jpg)End SubPrivate Sub Form_DblClick() P1.Picture = LoadPicture()End Sub解題思路解題思路：裝入圖片的方法：Loadpicture(“d:pic1.jpg”)； 清除圖片的方法：Loadpicture

5、(“”)或Loadpicture();工程訓(xùn)練中心一、圖形控件一、圖形控件1、圖片框（、圖片框（PictureBox） 圖片框還可以顯示用Print方法產(chǎn)生的文本和用圖形方法繪制的圖形， 如在圖片框上顯示文字： picture1.print “hello” 清除圖片框上的文字信息的方法： 圖片框?qū)ο竺麍D片框?qū)ο竺?Cls 如：如：Pictures.cls 工程訓(xùn)練中心一、圖形控件一、圖形控件 2、圖像框 (Image) 與圖片框的區(qū)別：與圖片框的區(qū)別： 圖片框是容器控件，而圖像框不能作為容器； 圖片框可以利用Print方法顯示文本，圖像框則不能； 圖像框比圖片框占用內(nèi)存少，顯示速度快; 圖片框

6、用AutoSize屬性控制圖片框的尺寸自動適應(yīng)圖片的大 小，圖像框用Stretch屬性對圖片進行大小調(diào)整； 工程訓(xùn)練中心一、圖形控件一、圖形控件 例例 交換圖形。編寫程序，交換兩個圖像框中的圖形。交換圖形。編寫程序，交換兩個圖像框中的圖形。 Image3.Picture = Image1.Picture Image1.Picture = Image2.Picture Image2.Picture = Image3.Picture 解題思路：解題思路：交換兩個變量的值一般要引入第三個變量進行交換。本題借助于 第三個圖像框?qū)崿F(xiàn)交換。工程訓(xùn)練中心一、圖形控件一、圖形控件 1、形狀、形狀(Shape)

7、 功能：用來畫矩形、正方形、橢圓、圓、圓角矩形矩形、正方形、橢圓、圓、圓角矩形及圓角正方形圓角正方形。 形狀控件放置到窗體上或圖片框上時，原始顯示為正方形，通過設(shè)置 Shape屬性可得到需要的圖形。 Shape屬性值形狀0矩形(默認)1正方形2橢圓3圓4圓角矩形5圓角正方形 另：BorderColorBorderColor：設(shè)置形狀的邊框顏色； FillStyleFillStyle：填充類別，取值范圍：0-7，分別表示不同的填充方式 FillColorFillColor：形狀的填充顏色 工程訓(xùn)練中心一、圖形控件一、圖形控件例例 形狀控件實例。在窗體上利用形狀控件畫一個矩形，名稱為形狀控件實例。

8、在窗體上利用形狀控件畫一個矩形，名稱為 Shape1，高和寬分別為，高和寬分別為1000、1700；再畫兩個命令按鈕，名稱分別為；再畫兩個命令按鈕，名稱分別為 command1、command2，標題分別為，標題分別為“綠色橢圓綠色橢圓”，“紅色圓紅色圓”。 Private Sub Command1_Click() Shape1.Shape = 2 shape2為橢圓 Shape1.BorderColor = vbGreen 邊框為綠色End SubPrivate Sub Command2_Click() Shape1.BorderColor = vbRed 邊框顏色為紅色 Shape1.Sh

9、ape = 3 shape3為圓End Sub工程訓(xùn)練中心一、圖形控件一、圖形控件 2、直線、直線(Line) 功能：用來畫水平線、垂直線或?qū)蔷€。 通過設(shè)置該控件的位置、長度、顏色、寬度、線型位置、長度、顏色、寬度、線型等屬性可產(chǎn)生不同風(fēng) 格的、不同顏色的直線。 BorderStyle：用于設(shè)置線條的類型，0-7表示不同的線型； BorderWidth：用于設(shè)置線條的寬度，即線條的粗細 BorderColor：由于設(shè)置線條的顏色； 工程訓(xùn)練中心一、圖形控件一、圖形控件 3 3、圖形方法、圖形方法 (1)自定義坐標系：自定義坐標系： 使用繪圖方法，首先確定所畫圖形的位置，這就需要先確定坐標系。

10、 當(dāng)新建一個窗體時，新窗體采用缺省坐標系，坐標原點在窗體左上角， 其中窗體：Scale Height 和Scale Width為窗體的實際可用的高度和寬度。 自定義坐標系的方法： 對象名對象名.Scale(xLeft，yTop)(xRight，yBottom) 其中：(xLeft，yTop)、(xRight，yBottom)為對象左上角和右下角坐標 窗體xleft,ytop左上角坐標右下角坐標xright,ybottom工程訓(xùn)練中心一、圖形控件一、圖形控件 3 3、圖形方法、圖形方法 1、畫點方法：、畫點方法：Pset 用于在指定的位置以指定的顏色畫點。 格式： 對象名對象名.Pset ste

11、p (x,y) ,顏色顏色 其中：對象名對象名：窗體或圖片框（picturebox）的名稱； Step：可選項，有該參數(shù)，表明所畫的點坐標(x，y)是相對坐標 （相對于當(dāng)前坐標點），沒有該參數(shù)，點坐標(x，y)為絕對坐標。 顏色顏色：點的顏色，若省略則采用對象的前景色(ForeColor)。 如： Pset(200,300),vbred 在(200,300 )處畫一紅色的點 工程訓(xùn)練中心一、圖形控件一、圖形控件 3 3、圖形方法、圖形方法 例：例：窗體上隨機畫帶顏色的點，實現(xiàn)滿天星效果窗體上隨機畫帶顏色的點，實現(xiàn)滿天星效果。 Dim m_x, m_y, m_red, m_green, m_bl

12、ue As Long Scale (0, 0)-(100, 100) 自定義坐標 DrawWidth = 8 設(shè)置點的大小 m_x = Rnd * 100 設(shè)置隨即坐標m_x,m_y m_y = Rnd * 100 m_red = Rnd * 255 設(shè)置隨機顏色 m_green = Rnd * 255 m_blue = Rnd * 255 PSet (m_x, m_y), rgb(m_red, m_green, m_blue) 畫點 解題思路解題思路：利用隨機函數(shù)Rnd，確定每個點的隨機坐標和顏色的隨機值工程訓(xùn)練中心一、圖形控件一、圖形控件 2 2、畫直線、矩形方法、畫直線、矩形方法 Lin

13、e方法可用于畫直線和矩形； 格式：對象名對象名.LineStep(x1，y1)Step(x2，y2)，顏色，顏色，BF 其中： 對象名對象名：窗體或圖片框（picturebox）； Step：可選項，有該參數(shù)時，表示坐標為相對于當(dāng)前點的坐標，否 則為絕對坐標。 (x1,y1)：起點坐標；若省略，則以當(dāng)前點位起點； (x2,y2)：終點或右下角坐標 顏色顏色：直線或矩形的顏色，若省略則使用ForeColor屬性指定的顏色 B：若有B，則以點(x1,y1)-點(x2,y2)為對角線填充為矩形； F：在選擇參數(shù)B后才能選擇，有F表示矩形以矩形邊框的顏色 填充，否則，矩形用屬性Fillcolor和Fi

14、llstyle填充； 工程訓(xùn)練中心一、圖形控件一、圖形控件2、畫直線、矩形方法 例：例：用用LineLine方法畫三角形和矩形方法畫三角形和矩形。 rem 自定義坐標系,左上角(0,0),右下角(100,100) Scale (0, 0)-(100, 100) DrawWidth = 5 rem 畫三角形 Line (10, 30)-(10, 80), vbRed (10,30)-(10,80) Line -(40, 80), vbGreen (10,80)-(40,80) Line -(10, 30), vbBlue (40,80)-(10,30) rem 畫矩形 Line (50, 30)

15、-(80, 80), vbRed, BF解題思路解題思路：畫三角形：前一條直線的終點就是后一條直線的起點 ,依次畫完 三條線就構(gòu)成三角形。 工程訓(xùn)練中心一、圖形控件一、圖形控件 3 3、畫圓方法、畫圓方法 Circle方法用于畫圓、橢圓、圓弧和扇形； 格式： 對象名對象名.CircleStep(x，y),radius,color，start，end，aspect 其中： 對象名：窗體或圖片框； Step：可選項，有該參數(shù)時表示坐標為相對于當(dāng)前點的坐標，否則 為絕對坐標。 (x,y)：中心坐標 Radius：半徑 Color：邊框顏色，若省略則使用ForeColor屬性指定的顏色； Start，End：指定弧的起始、終止位置，以弧度為單位， 取值：22；負號表示在畫弧的同時，還畫出圓心到弧的 的端點的連線； Aspect：表示縱軸和橫軸的尺寸比，Aspect1，表示在y軸方向畫橢圓，默認為1； 工程訓(xùn)練中心一、圖形控件一、圖形控件3 3、畫圓方法、畫圓方法 例：例：用用CircleCircle方法畫圓。方法畫圓。 Scale (0, 0)-(100, 100) 自定義坐標系 Const pi = 3.1415926 Circle (25, 50), 2