【正文】 le ?定義矩形類 Private ul, lr As Point ?左上、右下點(diǎn) Public CWidth As Integer ?矩形的寬 Public CHeight As Integer ?矩形的高 ‘定義過(guò)程 Private Sub init() CWidth= ： Cheight= End Sub ?… 其他方法和事件定義語(yǔ)句 End Class 創(chuàng)建類 例 81 定義一個(gè)矩形類 定義 Rectangle類的屬性 定義 Rectangle類的 init方法 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 用 Property語(yǔ)句創(chuàng)建屬性 Property 屬性名（［參數(shù)表］） ［ As 類型名 1］ Get 語(yǔ)句塊 End Get Set (ByVal Value As 類型名 ) 語(yǔ)句塊 End Set End Property 創(chuàng)建類 返回值的數(shù)據(jù)類型 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 創(chuàng)建方法 方法描述了對(duì)象執(zhí)行的算法。 ． Private： 只能調(diào)用該類中的代碼； ． Friend： 可以在項(xiàng)目／控件中調(diào)用代碼； ． Public： 可以在類外部調(diào)用代碼； ． Protected： 用于類的繼承。創(chuàng)建一個(gè)對(duì)象的過(guò)程被稱為 實(shí)例化 。例如， Dim C1 As TestClass ?聲明但未實(shí)例化 C1=New TestClass( ) ?在此實(shí)例化 對(duì)象的實(shí)例化和初始化 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 1. New語(yǔ)句 對(duì)象的實(shí)例化和初始化 2. 銷毀對(duì)象 銷毀一個(gè)對(duì)象，給該對(duì)象變量賦值 Nothing。在構(gòu)造函數(shù)過(guò)程中編寫(xiě)代碼來(lái)控制如何創(chuàng)建該對(duì)象 。 1. 構(gòu)造函數(shù) 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 共享成員 ，并且共 享變量和方法在未創(chuàng)建實(shí)例的時(shí)候也可以使用。其 聲明與共享方法一樣，即使用 Shared關(guān)鍵字。 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 命名空間 命名空間 (NameSpace)是組織類的一種機(jī)制。 命名空間的概念 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 “引用”文件夾中的命名空間 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 層次結(jié)構(gòu) ... ... 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 通過(guò) NameSpace…End NameSpace 語(yǔ)句可以自己定義命名空間。 例如 : Imports Imports 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 類的繼承 創(chuàng)建一個(gè)新類時(shí)，可以使用繼承機(jī)制，而不必重新編寫(xiě)實(shí)現(xiàn)其基本功能的程序代碼 。再創(chuàng)建一個(gè) Graduatestd派生類，描述研究生的情況，包括要增加的導(dǎo)師姓名。 Name) WriteLine(導(dǎo)師姓名 : amp。 子類 不能繼承 父類的 Private的方法、屬性和變量。 繼承的范圍 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 繼承機(jī)制支持事件繼承。 事件的繼承 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 Windows窗體的可視化繼承。 利用繼承也可以創(chuàng)建自己的 Windows控件。但是每個(gè)方法應(yīng)該有不同的參數(shù)列表。桑塔納 Inherits Car Overrides Function StartEngine() As String StartEngine = 桑塔納的啟動(dòng)方式 End Function End Class Public Class Audi 39。奧迪 Inherits Car Overrides Function StartEngine() As String StartEngine = 奧迪的啟動(dòng)方式 End Function End Class 39。 派生類 Santana使用Overrides重載父類定義的 StartEngine方法 派生類 Audi使用Overrides重載父類定義的 StartEngine方法 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 Class Test Shared Sub Main() Dim aSantana As New Santana() Dim anAudi As New Audi() WriteLine() WriteLine() End Sub End Class End Namespace tartEngine 調(diào)用 anAudi對(duì)象的StartEngine方法 調(diào)用 aSantana對(duì)象的 StartEngine方法 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 重載 執(zhí)行 aSantana對(duì)象StartEngine方法的結(jié)果 執(zhí)行 anAudi對(duì)象StartEngine方法的結(jié)果 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 主 編： 李印清 策 劃： 李印清 趙小雨 合成制作： 趙小雨 動(dòng)畫(huà)制作： 劉 華 趙小雨 金秋春 傅爾勝 薛海燕 王 杰 文本編輯： 李印清 封面設(shè)計(jì)： 趙小雨 背景音樂(lè)： 《 藍(lán)色多瑙河 》 《 啊，朋友再見(jiàn) 》 第 9 章 文 件 教學(xué)目的 教學(xué)要求 重點(diǎn)難點(diǎn) 教學(xué)內(nèi)容 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 教學(xué)目的 通過(guò)本章的學(xué)習(xí)，掌握文件相關(guān)概念、SaveFileDialog 和 OpenFileDialog 組件的屬性，了解文件的分類，掌握順序文件和隨機(jī)文件的打開(kāi)、關(guān)閉、讀寫(xiě)操作，了解流文件的處理方法。 2. 掌握 SaveFileDialog 和 OpenFileDialog 組 件的常用屬性。 4. 掌握順序文件和隨機(jī)文件的讀寫(xiě)函數(shù)的功能及其區(qū)別；能合理地使用讀寫(xiě)函數(shù)以實(shí)現(xiàn)文件的處理。 2. SaveFileDialog 和 OpenFileDialog 組 件的屬性。 4. 順序文件和隨機(jī)文件的讀寫(xiě)操作。 2. FileOpen函數(shù)的各種參數(shù)功能及其合理地設(shè)置。 4. 順序文件的建立，數(shù)據(jù)讀寫(xiě)的重復(fù)處理。 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 教學(xué)內(nèi)容 概 述 文 件 對(duì) 話 框 組 件 文 件 處 理 函 數(shù) 流 與 流 式 文 件 訪 問(wèn) 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 1. 文 件 概 述 “文件”是 一組相關(guān)數(shù)據(jù)的有序集合 。 基 本 概 念 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 1. 文 件 概 述 2 . 文 件 結(jié) 構(gòu) 文件中的數(shù)據(jù)必須以某種特定的方式存放 ，這種 特定的組織方式 稱為文件結(jié)構(gòu) 。 3 . 記 錄 基 本 概 念 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 1. 文 件 概 述 2 . 文 件 結(jié) 構(gòu) 文件指針用來(lái)指示當(dāng)前 讀寫(xiě)文件的位置 。 3 . 記 錄 基 本 概 念 4 . 文 件 指 針 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 1. 文 件 概 述 2 . 文 件 結(jié) 構(gòu) 從不同的角度可以把文件分為 : 普通文件和設(shè)備文件 ； 程序文件和數(shù)據(jù)文件 ； 文本文件和二進(jìn)制文件 ； 順序文件、隨機(jī)文件和二進(jìn)制文件 。 設(shè)備文件 指與主機(jī) 相 聯(lián) 的 各 種 外 部 設(shè) 備 。 數(shù)據(jù)文件 存 放 普 通 的數(shù)據(jù) ， 這 些 數(shù) 據(jù) 必 須 通 過(guò) 程 序 進(jìn) 行 存 取 操 作 。 二進(jìn)制文件 按二進(jìn)制編碼方式來(lái)存放數(shù)據(jù) 。 3 . 記 錄 基 本 概 念 5 . 文 件 分 類 4 . 文 件 指 針 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 1. 文 件 概 述 2 . 文 件 結(jié) 構(gòu) 3 . 記 錄 基 本 概 念 5 . 文 件 分 類 4 . 文 件 指 針 （ ） 順 序 文 件 順序文件的數(shù)據(jù)以 ANSI字符形式存儲(chǔ)。 順序文件不能隨機(jī)讀寫(xiě)記錄。 記錄由多個(gè)字段組成，字段的類型可以不同，但每條 記錄的長(zhǎng)度必須相等 ，記錄有一個(gè)唯一的 記錄號(hào) 。 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 SaveFileDialog和 OpenFileDialog組件是 預(yù)先配置的保存文件和打開(kāi)文件對(duì)話框 。 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 “打開(kāi)”和“保存”對(duì)話框類似，如圖所示： 文 件 對(duì) 話 框 組 件 SaveFileDialog 組 件 和 OpenFileDialog 組 件 對(duì)話框標(biāo)題 文件夾列表框 文件名列表框 文件類型列表框 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 SaveFileDialog和 OpenFileDialog組件常用屬性： 文 件 對(duì) 話 框 組 件 SaveFileDialog 組 件 和 OpenFileDialog 組 件 1． FileName屬性 FileName屬性 用于 設(shè)置或獲取 要打開(kāi)、保存的文件的文件名（含盤(pán)符、路徑） 。該屬性可含多個(gè)文件類型，供用戶在對(duì)話框的“文件類型”列表框中選擇。 鄭 州 航 院 計(jì) 算 機(jī) 科 學(xué) 與 應(yīng) 用 系 SaveFileDialog和 OpenFileDialog組件常用屬性： 文 件 對(duì) 話 框 組 件 SaveFileDialog 組 件 和 OpenFileDialog 組 件 1． FileName屬性 2． Filter屬性 3． FilterIndex屬性 InitialDirectory用來(lái) 起始目錄 ，其默認(rèn)值為當(dāng)前目錄。 默認(rèn)情況下 ，打開(kāi)對(duì)話框的標(biāo)題是“ 打開(kāi) ”；保存對(duì)話框的標(biāo)題是“ 另存為 ”。 4． InitialDirector