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