【文章內(nèi)容簡(jiǎn)介】 地作出相應(yīng)的變化。 DrawWidth和 DrawStyle屬性 窗體和圖片框?qū)ο髶碛羞@兩個(gè)屬性。 DrawWidth屬性設(shè)置繪圖方法生成圖形的線條寬度 。 DrawStyle屬性設(shè)置繪圖方法生成圖形的線條樣式。 Visual Basic編程及實(shí)例分析教程 48 FillColor和 FillStyle屬性 AutoRedraw屬性 窗體、圖片框和形狀控件擁有這兩個(gè)屬性。 FillColor屬性設(shè)置由繪圖方法生成的圓、矩形等封閉圖形的內(nèi)部填充顏色。 FillStyle屬性設(shè)置繪圖方法產(chǎn)生的封閉圖形的內(nèi)部填充樣式。該屬性的默認(rèn)值為 1（透明），此時(shí)， FillColor屬性的值被忽略。 AutoRedraw屬性為自動(dòng)重繪屬性，所謂重繪是指使用繪圖方法在窗體或圖片框上繪制的圖形，部分或全部地被另外的窗體或?qū)ο蟾采w，而一旦這些覆蓋物被移走，被覆蓋的圖形如何重新顯示。 Visual Basic編程及實(shí)例分析教程 49 ClipControls屬性 ClipControls屬性決定 Paint事件中的繪圖方法是重繪整個(gè)對(duì)象還是只重繪剛剛露出的區(qū)域。當(dāng)該屬性為 True（缺省值）時(shí)， Paint 事件中的圖形繪制方法重繪整個(gè)對(duì)象。當(dāng)該屬性為 False時(shí)，Paint 事件中的圖形繪制方法只繪制剛剛露出的區(qū)域。 Paint事件 窗體與圖片框都支持 Paint事件。當(dāng)窗體或圖片框被覆蓋后又顯示出來或被縮放時(shí)， VB向窗體或圖片框發(fā)送 Paint事件，允許程序進(jìn)行重新繪制。寫在 Paint事件過程中的代碼在每次窗體或圖片框要重繪時(shí)會(huì)被調(diào)用。所以 Paint事件過程中適合繪制永久顯示的內(nèi)容。 Visual Basic編程及實(shí)例分析教程 50 繪圖方法 PSet方法 PSet方法可以在窗體或圖片框的指定位置上使用指定顏色畫一個(gè)點(diǎn)，點(diǎn)的大小由對(duì)象的 DrawWidth屬性指定。 PSet的語法格式如下： [對(duì)象 .] PSet [Step] (x,y) [, 顏色 ] 說明： (1) Step指定相對(duì)于當(dāng)前繪圖位置 (CurrentX , CurrentY)的坐標(biāo)，可選。 (2) (x,y)設(shè)置所畫點(diǎn)的水平和垂直坐標(biāo)，若前面有 Step，則所畫點(diǎn)的實(shí)際位置（坐標(biāo)）為 (CurrentX+x , CurrentY+y)。 (3)參數(shù)“顏色”用來指定該點(diǎn)的顏色值，如果沒有指定“顏色”參數(shù)， PSet將使用對(duì)象的前景色。 Visual Basic編程及實(shí)例分析教程 51 Line方法 Line方法用來繪制直線或矩形。根據(jù)參數(shù)不同，該方法即可以畫出直線，也可以畫出空心矩形或?qū)嵭木匦巍?Line方法的一般格式： [對(duì)象 .]Line [ [Step] (x1,y1) ] – [Step] (x2,y2) [, 顏色 ] [, B [F] ] 說明： (1) (x1,y1)是直線或矩形的起點(diǎn)坐標(biāo)，若省略，則從當(dāng)前坐標(biāo)位置(CurrentX , CurrentY)開始。 (2) (x2,y2)是直線或矩形的終點(diǎn)坐標(biāo)。 (3) 第一個(gè) Step指定它后面的一對(duì)坐標(biāo) (x1,y1)相對(duì)于當(dāng)前坐標(biāo)(CurrentX , CurrentY)的偏移量。第二個(gè) Step指定它后面的一對(duì)坐標(biāo)相對(duì)于第一對(duì)坐標(biāo)的偏移量。均為可選項(xiàng)。 (4)“顏色”參數(shù)設(shè)置畫線的顏色，如果沒有指定“顏色”參數(shù)， Line將使用對(duì)象的前景色。 Visual Basic編程及實(shí)例分析教程 52 (5) “B”為可選參數(shù)。如果沒有參數(shù)“ B”，則繪制以給定兩點(diǎn)為端點(diǎn)的直線，否則繪制以給定兩點(diǎn)為對(duì)角的矩形（“ B”的含義是Box）。無參數(shù)“ B”時(shí)，不能使用參數(shù)“ F”。 (6) “F”參數(shù)：畫出一個(gè)實(shí)心的矩形。其填充顏色和圖案由所在對(duì)象的 FillColor和 FillStyle決定?？蛇x。 Circle方法 VB提供的 Circle方法可以繪制圓、橢圓、圓弧及扇形。該方法參數(shù)較多，選用不同的參數(shù)，可以分別畫出不同的圖形。 1. 用 Circle方法繪制圓 [對(duì)象 .]Circle [Step] (x, y), 半徑 [, 顏色 ] 說明： (1) (x， y)為圓心坐標(biāo)或偏移量，為單精度浮點(diǎn)參數(shù)。 (2) Step關(guān)鍵字，其后面的一對(duì)數(shù)字表示相對(duì)于當(dāng)前坐標(biāo)的偏移量。為可選項(xiàng)。 Visual Basic編程及實(shí)例分析教程 53 (3) “半徑”為單精度浮點(diǎn)參數(shù)。 (4)“顏色”參數(shù)指定圓周的顏色，若省略，則使用當(dāng)前對(duì)象的前景色。為可選的長(zhǎng)整型參數(shù)。 2. 用 Circle方法繪制圓弧及扇形 圓周的一部分就是圓弧，如果從圓心連接兩條直線到圓弧的兩端，就是一個(gè)扇形。用畫圓的方法 Circle來畫圓弧及扇形非常容易，只要加上起始角和終止角即可。一般格式為： [對(duì)象 .]Circle [Step] (x, y), 半徑 [, 顏色 ] [, 起始角 ] [, 終止角 ] 說明： (1) 起始角指弧的起點(diǎn)位置，單位為弧度。 (2) 終止角指弧的終點(diǎn)位置，單位為弧度。 Visual Basic編程及實(shí)例分析教程 54 (3) Circle方法總是逆時(shí)針（正）方向繪圖，在畫扇形時(shí)，起始角和終止角前面帶一負(fù)號(hào)，負(fù)號(hào)表示從圓心畫一半徑到起始弧或終止弧的位置，并且角度仍處理為正。 3. 用 Circle方法繪制橢圓 在畫圓的方法上加上一個(gè)參數(shù)就可以繪制出橢圓。一般格式為： [對(duì)象 .]Circle [Step] (x, y), 半徑 [, 顏色 ] [, 起始角 ] [, 終止角 ] [, 縱橫比 說明： (1)縱橫比指橢圓的縱軸與橫軸尺寸之比，默認(rèn)值為 ，為可選的單精度浮點(diǎn)參數(shù)。 (2)其他項(xiàng)與畫圓方法中的相同。 Visual Basic編程及實(shí)例分析教程 55 應(yīng)用實(shí)例 編寫程序繪制產(chǎn)量隨年份的變化曲線，繪圖數(shù)據(jù)來源于文本文件。 分析：工程應(yīng)用中，常常需要繪制產(chǎn)量隨時(shí)間的變化曲線，用來指導(dǎo)生產(chǎn)。生產(chǎn)數(shù)據(jù)可以來源于文本文件。通過使用前面學(xué)習(xí)的文件操作方法將數(shù)據(jù)讀入到數(shù)組中，然后便可根據(jù)數(shù)組中的數(shù)據(jù)進(jìn)行曲線繪制操作。繪圖前，應(yīng)定義一個(gè)繪圖區(qū)域數(shù)據(jù)類型，里面保存繪圖區(qū)域的左下角、右上角坐標(biāo)（坐標(biāo)單位由繪圖對(duì)象的 ScaleMode屬性決定）、刻度最值、刻度數(shù)量以及圖形坐標(biāo)變化系數(shù)（單位刻度表示的圖形坐標(biāo)大?。?。以下為具體應(yīng)用： (1) 新建工程。新建一個(gè) VB“標(biāo)準(zhǔn) EXE”工程，使用“工程”菜單下的“添加模塊”菜單命令向工程中加入程序所需的標(biāo)準(zhǔn)模塊，并保存。 (2) 窗體設(shè)計(jì)界面如下圖圖所示。界面由文本框、圖片框、命令按鈕、標(biāo)簽 以及 SSTab控件組成。 Visual Basic編程及實(shí)例分析教程 56 Visual Basic編程及實(shí)例分析教程 57 （ 3）有關(guān)屬性的設(shè)置如下表所示。 工程、窗體及控件屬性值設(shè)置 對(duì)象 屬性 設(shè)置值 對(duì)象 屬性 設(shè)置值 工程 Name(名稱 ) prjDrawFromFile 文本框 Name(名稱 ) txtData 窗體 Name(名稱 ) frmDrawFromFile Locked True BorderStyle 1Fixed Single MultiLine True Caption 產(chǎn)量曲線 ScrollBars 3Both SSTab Name(名稱 ) SSTab1 命令按鈕 Name(名稱 ) cmdAcquire Tabs 2 Caption 取數(shù)據(jù) (amp。F) 第一個(gè)選項(xiàng)卡的 Caption 數(shù)據(jù) 命令按鈕 Name(名稱 ) cmdDraw 第二個(gè)選項(xiàng)卡的 Caption 曲線 Caption 繪制曲線 (amp。D) 標(biāo)簽 Caption 歷史數(shù)據(jù) 圖片框 Name(名稱 ) picDraw 標(biāo)簽 Caption 產(chǎn)量曲線 BackColor amp。H00FFFFFFamp。 Visual Basic編程及實(shí)例分析教程 58 （ 4）本例使用的數(shù)據(jù)文件為一名為 （即順序文件），該文件可由用戶自己手工創(chuàng)建并輸入，如下圖所示。第一列為年份序號(hào)，第二列為產(chǎn)量數(shù)據(jù)。 （ 5）代碼編寫參見教材第八章第四節(jié) Visual Basic編程及實(shí)例分析教程 59 （ 6）程序運(yùn)行結(jié)果如下圖所示。 Visual Basic編程及實(shí)例分析教程 60 小結(jié) 本章重點(diǎn)介紹了圖形的具體繪制方法 。 在掌握坐標(biāo)系統(tǒng)和顏色的使用規(guī)則之后 ， 學(xué)習(xí)使用窗體和圖片框控件提供的繪圖屬性 、 事件和方法 ， 學(xué)會(huì)在界面中繪制點(diǎn) 、 線 、 圓及其它圖形 。 最后給出一個(gè)很實(shí)用的曲線圖繪制的應(yīng)用實(shí)例 ， 希望大家細(xì)心體會(huì) 。 Visual Basic編程及實(shí)例分析教程 61 習(xí)題 一、選擇題 1． 以下的屬性和方法中，可重定義坐標(biāo)系的是（ ） 。 A． DrawStyle屬性 B． DrawWidth屬性 C． Scale方法 D． ScaleMode屬性 2． 當(dāng)使用 Line方法畫直線后，當(dāng)前坐標(biāo)在（ ） 。 A．（ 0， 0） B．直線起點(diǎn) C．直線終點(diǎn) D．容器的中心 3．指令“ Circle(1000,1000),500,8,6,3”將繪畫（ ）。 A．畫圓 B．橢圓 C．圓弧 D．扇形 4．執(zhí)行指令“ Line(1200,1200)Step(1000,500), ,B”后， CurrentX=（ ）。 A． 2200 B． 1200 C． 1000 D． 1700 5．設(shè)計(jì)時(shí)添加到圖片框或圖像框的圖片數(shù)據(jù)庫保存在（ ）。 A．窗體的 Frm文件 B．窗體的 Frx文件 C．圖片的原始文件內(nèi) D．編譯后創(chuàng)建的 Exe文件 6．當(dāng)窗體的 AutoRedraw屬性采用默認(rèn)值時(shí)，若在窗體裝入時(shí)使用繪畫方法繪制圖形，則應(yīng)將程序放在（ ）。 A． Paint事件 B． Load事件 C． Initialize事件 D． Click事件 Visual Basic編程及實(shí)例分析教程 62 7．下列所使用的方法中，不能減少內(nèi)存的開銷的是（ ）。 A．將窗體設(shè)置得盡量小 B．使用 ImageBox處理圖形 C．設(shè)置 AutoRedraw=False D．不設(shè)置 DrawStyle 8． Cls可清除窗體或圖形框中的內(nèi)容是（ ）。 A． Picture屬性設(shè)置的背景圖案 B．在設(shè)計(jì)時(shí)放置的控件 C．程序運(yùn)行時(shí)產(chǎn)生的圖形和文字 D．以上全部都是 二、填空題 1．容器的實(shí)際可用高度和寬度由 和 屬性確定。 2．設(shè) =200， =250，=500， Picture1. ScaleHeight=400。則 Picture1右下角坐標(biāo)為 。 3．窗體 Forml的左上角坐標(biāo)為（ 200， 250），窗體 Forml的右下角坐標(biāo)為（ 300， 150）。則 X軸的正向向 ， Y軸的正向向 。 4．使用 Line方法畫矩形，必須在指令中使用關(guān)鍵字 。 三、簡(jiǎn)答題 1．簡(jiǎn)述 VB應(yīng)用程序設(shè)計(jì)過程中圖形載入的一般方法及其實(shí)現(xiàn)步驟。 2． VB應(yīng)用程序能夠識(shí)別的幾種常見的鼠標(biāo)事件是什么？并說明在常用鼠標(biāo)事件中 Button參數(shù)的意義。 Visual Basic編程及實(shí)例分析教程 63 第九章 創(chuàng)建和使用自定義類 本章內(nèi)容 創(chuàng)建自定義類 向類中添加屬性、方法和 事件 創(chuàng)建自定義 ActiveX控件 Visual Basic編程及實(shí)例分析教程 64 創(chuàng)建自定義類 向類中添加屬性和方法 向類中添加事件 創(chuàng)建自定義 ActiveX控件 小結(jié) 習(xí)題 本 章 目 錄 Visual Basic編程及實(shí)例分析教程 65 創(chuàng)建自定義類 類的創(chuàng)建非常簡(jiǎn)單，在“工程”菜單中選擇“添加類模塊”命令，打開“添加類模塊”對(duì)話框。在該對(duì)話框中選擇“類模塊”，然后單擊“打開”按鈕，即可在工程中添加一個(gè)空白的類模塊，并同時(shí)打開該模塊的代碼窗口，見圖 。類模塊一般以 .cls擴(kuò)展名保存 剛添加的類模塊幾乎沒有什么屬性和方法，但有兩個(gè)事件：Initialize和 Terminate事件。其中 Initialize事件當(dāng)創(chuàng)建類的實(shí)例時(shí)被觸發(fā)，用來執(zhí)行類實(shí)例的初始化操作。 Terminate事件則當(dāng)類實(shí)例設(shè)置為 Nothing時(shí)被觸發(fā)，用來執(zhí)行善后處理。 Visual Basic編程及實(shí)例分析教程 66 向類中添加屬性和方法 向類添加屬性 類中的數(shù)據(jù)分為兩部分：可見部分和不可見部分。 創(chuàng)建類模塊后，可以