【正文】 VB提供了屬性過程，只能通過屬性過程來獲取屬性值和對屬性值進行修改。使用公有變量定義類的屬性應(yīng)在類模塊的聲明部分進行，其格式為： Public 屬性名 As 類型 公有變量對應(yīng)用程序是可見的，因此采用這種方法定義類的屬性，當(dāng)建立了類的對象后，可以在程序的任何地方訪問變量的值。 創(chuàng)建類模塊后，可以有兩種方法為類定義屬性，即使用公有變量和使用屬性過程。 Terminate事件則當(dāng)類實例設(shè)置為 Nothing時被觸發(fā)，用來執(zhí)行善后處理。類模塊一般以 .cls擴展名保存 剛添加的類模塊幾乎沒有什么屬性和方法，但有兩個事件：Initialize和 Terminate事件。 Visual Basic編程及實例分析教程 63 第九章 創(chuàng)建和使用自定義類 本章內(nèi)容 創(chuàng)建自定義類 向類中添加屬性、方法和 事件 創(chuàng)建自定義 ActiveX控件 Visual Basic編程及實例分析教程 64 創(chuàng)建自定義類 向類中添加屬性和方法 向類中添加事件 創(chuàng)建自定義 ActiveX控件 小結(jié) 習(xí)題 本 章 目 錄 Visual Basic編程及實例分析教程 65 創(chuàng)建自定義類 類的創(chuàng)建非常簡單，在“工程”菜單中選擇“添加類模塊”命令，打開“添加類模塊”對話框。 三、簡答題 1．簡述 VB應(yīng)用程序設(shè)計過程中圖形載入的一般方法及其實現(xiàn)步驟。則 X軸的正向向 ， Y軸的正向向 。則 Picture1右下角坐標為 。 A． Picture屬性設(shè)置的背景圖案 B．在設(shè)計時放置的控件 C．程序運行時產(chǎn)生的圖形和文字 D．以上全部都是 二、填空題 1．容器的實際可用高度和寬度由 和 屬性確定。 A． Paint事件 B． Load事件 C． Initialize事件 D． Click事件 Visual Basic編程及實例分析教程 62 7．下列所使用的方法中，不能減少內(nèi)存的開銷的是（ ）。 A． 2200 B． 1200 C． 1000 D． 1700 5．設(shè)計時添加到圖片框或圖像框的圖片數(shù)據(jù)庫保存在（ ）。 A．（ 0， 0） B．直線起點 C．直線終點 D．容器的中心 3．指令“ Circle(1000,1000),500,8,6,3”將繪畫（ ）。 Visual Basic編程及實例分析教程 61 習(xí)題 一、選擇題 1． 以下的屬性和方法中，可重定義坐標系的是（ ） 。 在掌握坐標系統(tǒng)和顏色的使用規(guī)則之后 ， 學(xué)習(xí)使用窗體和圖片框控件提供的繪圖屬性 、 事件和方法 ， 學(xué)會在界面中繪制點 、 線 、 圓及其它圖形 。 （ 5）代碼編寫參見教材第八章第四節(jié) Visual Basic編程及實例分析教程 59 （ 6）程序運行結(jié)果如下圖所示。 Visual Basic編程及實例分析教程 58 （ 4）本例使用的數(shù)據(jù)文件為一名為 （即順序文件），該文件可由用戶自己手工創(chuàng)建并輸入，如下圖所示。D) 標簽 Caption 歷史數(shù)據(jù) 圖片框 Name(名稱 ) picDraw 標簽 Caption 產(chǎn)量曲線 BackColor amp。 工程、窗體及控件屬性值設(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。界面由文本框、圖片框、命令按鈕、標簽 以及 SSTab控件組成。新建一個 VB“標準 EXE”工程，使用“工程”菜單下的“添加模塊”菜單命令向工程中加入程序所需的標準模塊，并保存。繪圖前，應(yīng)定義一個繪圖區(qū)域數(shù)據(jù)類型，里面保存繪圖區(qū)域的左下角、右上角坐標（坐標單位由繪圖對象的 ScaleMode屬性決定）、刻度最值、刻度數(shù)量以及圖形坐標變化系數(shù)（單位刻度表示的圖形坐標大?。?。生產(chǎn)數(shù)據(jù)可以來源于文本文件。 Visual Basic編程及實例分析教程 55 應(yīng)用實例 編寫程序繪制產(chǎn)量隨年份的變化曲線，繪圖數(shù)據(jù)來源于文本文件。一般格式為： [對象 .]Circle [Step] (x, y), 半徑 [, 顏色 ] [, 起始角 ] [, 終止角 ] [, 縱橫比 說明： (1)縱橫比指橢圓的縱軸與橫軸尺寸之比，默認值為 ，為可選的單精度浮點參數(shù)。 Visual Basic編程及實例分析教程 54 (3) Circle方法總是逆時針（正）方向繪圖，在畫扇形時，起始角和終止角前面帶一負號，負號表示從圓心畫一半徑到起始弧或終止弧的位置，并且角度仍處理為正。一般格式為： [對象 .]Circle [Step] (x, y), 半徑 [, 顏色 ] [, 起始角 ] [, 終止角 ] 說明： (1) 起始角指弧的起點位置，單位為弧度。 2. 用 Circle方法繪制圓弧及扇形 圓周的一部分就是圓弧，如果從圓心連接兩條直線到圓弧的兩端，就是一個扇形。 (4)“顏色”參數(shù)指定圓周的顏色，若省略，則使用當(dāng)前對象的前景色。為可選項。 1. 用 Circle方法繪制圓 [對象 .]Circle [Step] (x, y), 半徑 [, 顏色 ] 說明： (1) (x， y)為圓心坐標或偏移量，為單精度浮點參數(shù)。 Circle方法 VB提供的 Circle方法可以繪制圓、橢圓、圓弧及扇形。其填充顏色和圖案由所在對象的 FillColor和 FillStyle決定。無參數(shù)“ B”時，不能使用參數(shù)“ F”。 Visual Basic編程及實例分析教程 52 (5) “B”為可選參數(shù)。均為可選項。 (3) 第一個 Step指定它后面的一對坐標 (x1,y1)相對于當(dāng)前坐標(CurrentX , CurrentY)的偏移量。 Line方法的一般格式： [對象 .]Line [ [Step] (x1,y1) ] – [Step] (x2,y2) [, 顏色 ] [, B [F] ] 說明： (1) (x1,y1)是直線或矩形的起點坐標，若省略，則從當(dāng)前坐標位置(CurrentX , CurrentY)開始。 Visual Basic編程及實例分析教程 51 Line方法 Line方法用來繪制直線或矩形。 (2) (x,y)設(shè)置所畫點的水平和垂直坐標，若前面有 Step，則所畫點的實際位置（坐標）為 (CurrentX+x , CurrentY+y)。 Visual Basic編程及實例分析教程 50 繪圖方法 PSet方法 PSet方法可以在窗體或圖片框的指定位置上使用指定顏色畫一個點，點的大小由對象的 DrawWidth屬性指定。寫在 Paint事件過程中的代碼在每次窗體或圖片框要重繪時會被調(diào)用。 Paint事件 窗體與圖片框都支持 Paint事件。當(dāng)該屬性為 True（缺省值）時， Paint 事件中的圖形繪制方法重繪整個對象。 AutoRedraw屬性為自動重繪屬性，所謂重繪是指使用繪圖方法在窗體或圖片框上繪制的圖形，部分或全部地被另外的窗體或?qū)ο蟾采w，而一旦這些覆蓋物被移走，被覆蓋的圖形如何重新顯示。 FillStyle屬性設(shè)置繪圖方法產(chǎn)生的封閉圖形的內(nèi)部填充樣式。 Visual Basic編程及實例分析教程 48 FillColor和 FillStyle屬性 AutoRedraw屬性 窗體、圖片框和形狀控件擁有這兩個屬性。 DrawWidth屬性設(shè)置繪圖方法生成圖形的線條寬度 。調(diào)用了繪圖方法之后 CurrentX和 CurrentY兩個屬性的值也會自動地作出相應(yīng)的變化。這兩個屬性在設(shè)計階段不能使用。HFFFF00 青色 vbWhite amp。HFF0000 藍色 vbMagenta amp。HFF00 綠色 vbYellow amp。H0 黑色 vbRed amp。 VB為一些常用顏色定義了內(nèi)部常量，顏色常量的特點是直觀、易于記憶。在 VB中顏色就是由長整型數(shù)表示的，所以可以直接用長整型數(shù)來指定一個顏色。語法是： QBColor(i)，其中參數(shù) i是一個介于 0~15的整型數(shù)，用于指定顏色。 VB的內(nèi)部函數(shù) RGB可返回一個顏色值，此函數(shù)要求三個參數(shù)，取值都是 0~255，分別表示所要顏色中紅 (R)、綠 (G)、藍 (B)分量的大小。這種方式通常用來設(shè)置容器的背景色。因此設(shè)定一種顏色，只要指定其紅、綠、藍分量的大小即可， VB中顏色的表示就是基于這個概念。 顏色 窗體和圖片框都有關(guān)于顏色的屬性，如背景色（ BackColor）屬性定義了繪圖區(qū)的背景顏色，前景色（ ForeColor）屬性決定了顯示的文本或繪制的圖形顏色。 (3)ScaleWidth：返回或設(shè)置對象內(nèi)部的水平度量單位數(shù)。 容器缺省坐標系統(tǒng)的三個要素情況是： (1) 坐標原點為容器的左上角，且坐標為（ 0,0） (2) 坐標刻度以緹 (twip)為單位 (3) 坐標軸方向為： x軸向右為正向； y軸向下為正向 Visual Basic編程及實例分析教程 44 當(dāng) ScaleMode=0時，即為用戶自定義模式，可采用設(shè)置對象的相應(yīng)屬性，來創(chuàng)建所需的坐標系統(tǒng)，這些屬性是： (1)ScaleLeft：返回或設(shè)置對象左邊界的水平坐標。 坐標系統(tǒng) 在 VB中，每個對象定位于存放它的容器內(nèi)，這個容器可以是屏幕、窗體或圖片框等。為了方便用戶繪圖，在 VB中用戶還可以自己定義坐標系。當(dāng)單擊“顯示”按鈕時，將 窗體上的列表框控件中。 4．在窗體上添加文件系統(tǒng)控件，包括驅(qū)動器列表框、目錄列表框和文件列表框，以及“保存”、“顯示”和“退出”命令按鈕。 Visual Basic編程及實例分析教程 40 3．磁盤上有 。 2．設(shè)有一個學(xué)生基本情況記錄文件 ，其中保存學(xué)生的學(xué)號、姓名、性別、年齡、專業(yè)等信息。當(dāng)單擊“保存”按鈕時，首先檢查文本框中是否有字符串。 希望讀者能認真掌握 、 靈活使用 。 GetAttr函數(shù)的返回值是表 所列屬性值中的一個或多個之和。 2. 如果沒有指定驅(qū)動器，或 drive是空字符串“”，則 CurDir函數(shù)返回當(dāng)前驅(qū)動器上的默認目錄。 CurDir函數(shù) 格式： CurDir [(drive)] 功能：此函數(shù)返回一個字符串值，該字符串表示指定驅(qū)動器上的默認目錄。 FreeFile或 FreeFile(0)返回 1~255之間未使用的文件號 。 Visual Basic編程及實例分析教程 36 FreeFile函數(shù) 格式： FreeFile [(范圍 )] 功能：返回一個尚未被占用的文件號。若想得到其他匹配的文件名，再一次調(diào)用不使用參數(shù)的 Dir函數(shù)。如果省略，則會返回匹配 pathname但不包含屬性的文件。 2. attributes為可選參數(shù)。用來指定文件名的字符串表達式，可能包含目錄或文件夾、以及驅(qū)動器。除了文件和文件夾的名稱之外，還可指定其屬性。 2. 不能使用 Seek語句來移動順序文件的讀寫位置。 Visual Basic編程及實例分析教程 35 Seek語句 格式： Seek []文件號 , 位置 功能： Seek語句將“文件號”所代表文件的下一次讀寫位置設(shè)置在“位置”參數(shù)指定處。 說明： 1. 對于隨機文件，返回值表示記錄號。 Seek函數(shù) 格式： Seek（文件號） 功能：此函數(shù)返回“文件號”指定文件中的當(dāng)前讀寫位置，返回值為長整型。文件名可以包含驅(qū)動器和目錄 EOF函數(shù) 格式： EOF(文件號 ) 功能：此函數(shù)測試當(dāng)前讀寫位置是否位于“文件號”所代表文件的末尾。 如 LOF (1)返回 1文件的長度。如要刪除，則應(yīng)先使用Kill語句刪除目錄下的所有文件。 2. path應(yīng)是完整路徑，若其中未指定驅(qū)動器，則 RmDir會在默認驅(qū)動器上刪除目錄。 Visual Basic編程及實例分析教程 33 RmDir語句 格式： RmDir path 功能：刪除一個存在的目錄。 說明： 1. path參數(shù)是一個字符串表達式，用來指定要創(chuàng)建的目錄。 3. 如果沒有指定驅(qū)動器，則改變的是當(dāng)前驅(qū)動器上的默認目錄。 說明： 1. 字符串表達式 path指定將要改變到的默認目錄名稱。 說明：字符串表達式 drive的首字符指定將要改變到的驅(qū)動器名稱。 5. “新文件名”所指