【正文】 表示窗體為 “ 非模態(tài)型 ” 窗口，不用關(guān)閉該窗體就可以對其他窗口進(jìn)行操作。 與多重窗體程序設(shè)計有關(guān)的語句和方法 ? ? 格式： [窗體名稱 .］ Hide ? Hide方法使窗體隱藏，即不在屏幕上顯示，但仍在內(nèi)存中。 ? 與 Unload語句一樣， Hide方法中也經(jīng)常用到Me關(guān)鍵字 指定啟動窗體 ? 只有啟動窗體才能在運行程序時自動顯示出來。其他窗體必須通過 Show方法才能看到。 ? 啟動窗體遇過 “ 工程 ” 菜單中的 “ 工程屬性 ” 命令來指定。執(zhí)行該命令后，將打開“ 工程屬性 ” 對話框，單擊該對話框中的 “ 通用 ” 選項卡，單由 “ 啟動對象 ” 欄右端的箭頭，將下拉顯示當(dāng)前工程中所有窗體的列表，單擊作為啟動窗體的窗體名字，然后單擊 “ 確定 ” 按鈕，即可把所選擇的窗體設(shè)置為啟動窗體。 Visual Basic工程結(jié)構(gòu) ? 模塊（ Module）是相對獨立的程序單元。Visual Basic應(yīng)用程序由 3種模塊組成，即窗體模塊、標(biāo)準(zhǔn)模塊和類模塊。類模塊主要用來定義類和建立 ActiveX組件，本書不涉及與類模塊有關(guān)內(nèi)容。下面主要介紹標(biāo)準(zhǔn)模塊和窗體模塊 標(biāo)準(zhǔn)模塊 ? 標(biāo)準(zhǔn)模塊也稱全局模塊，是由通用過程組成的模塊，這些通用過程可以為不同的窗體所共用。這樣可以避免在不同的窗體中重復(fù)鍵入代碼 標(biāo)準(zhǔn)模塊 ? 在工程中添加標(biāo)準(zhǔn)模塊的步驟為： ? （ 1）從 “ 工程 ” 菜單中選擇 “ 添加模塊 ”命令，打開 “ 添加模塊 ” 對話框。 ? （ 2）單擊 “ 新建 ” 選項卡（也可把已有模塊添加到當(dāng)前工程中，選擇 “ 現(xiàn)存 ” 選項卡，打開已有模塊），打開標(biāo)準(zhǔn)模塊代碼窗口。 ? （ 3）在該窗口內(nèi)鍵入或修改代碼。 窗體模塊 ? 每個窗體對應(yīng)一個窗體模塊。通常，窗體模塊中保存的是與本窗體有關(guān)的事件、自定義過程。窗體模塊保存在擴(kuò)展名為 .frm的文件中。 ? 窗體模塊包括 3部分內(nèi)容，即聲明部分、通用過程部分和事件過程部分。 Sub Main過程 ? 在一個含有多個窗體或多個工程的應(yīng)用程序中，有時候需要在顯示窗體之前進(jìn)行初始化操作，這就需要在啟動程序時執(zhí)行一個特定的過程。在 Visual Basic中，這樣的過程稱為啟動過程，并命名為 Sub Main。 Sub Main過程 ? Sub Main過程在標(biāo)準(zhǔn)模塊窗口中建立。 ? （ 1）執(zhí)行 “ 工程 ” 菜單中的 “ 添加模塊 ”命令，打開標(biāo)準(zhǔn)模塊窗口 ? （ 2）在該窗標(biāo)準(zhǔn)模塊窗口中鍵入： Sub Main，然后回車， ? （ 3）在顯示的該過程的開頭和結(jié)束語句之間輸入程序代碼。 Sub Main過程 ? Sub Main過程通常是作為啟動過程編寫的，要在程序運行時自動識別執(zhí)行 Sub Main過程，必須把它指定為啟動過程 ? （ 1）執(zhí)行 “ 工程 ” 菜單中的 “ 工程屬性 ” 命令，在打開的對話框中單擊 “ 通用 ” 選項卡，將顯示一個對話框，單擊該對話框中 “ 啟動對象 ” 欄右端的箭頭，將顯示窗體模塊的窗體名列表， Sub Main過程也出現(xiàn)在列表中。如圖 。 ? （ 2）選擇 Sub Main。 ? （ 3）單擊 “ 確定 ” 按鈕，即可把 Sub Main指定為啟動過程。 DoEvents語句 ? Visual Basic是事件驅(qū)動型的語言。在一般情況下，只有當(dāng)發(fā)生事件時才執(zhí)行相應(yīng)的程序。如果 Visual Basic處于 “ 忙碌 ” 狀態(tài)，則事件過程只能在隊列中等待，直到當(dāng)前過程結(jié)束。 ? Visual Basic提供了 DoEvents語句，其作用是在所執(zhí)行的過程內(nèi)把控制權(quán)傳給操作系統(tǒng)，以便讓它在執(zhí)行任務(wù)的過程中，也能夠響應(yīng)用戶的交互式命令，從而改變程序流程。 ? DoEvents既可以作為語句，也可以作為函數(shù)使用，一般格式為： [窗體號 =]DoEvents[()] DoEvents語句 ? 例 編寫程序。試驗 DoEvents語句。 ? 按以下步驟操作： ? （ 1）在 Form1窗體上建立 3個命令按鈕。其屬性見表 DoEvents語句 ? (2)設(shè)計窗體如圖 DoEvents語句 （ 3）源代碼如下： Private Sub Command1_Click() Static blnProcessing As Boolean Dim lngCt As Long, intYieldCt As Integer If blnProcessing Then blnProcessing = False Else = 結(jié)束 blnProcessing = True : lngCt = 0 Do While blnProcessing And (lngCt 1000000) For intYieldCt = 1 To 1000 lngCt = lngCt + 1 Next intYieldCt DoEvents = lngCt Loop blnProcessing = False = 啟動 End If End Sub Private Sub Command2_Click() End End Sub 第 14章 文件處理 ? 文件的結(jié)構(gòu)及種類 ? 順序文件的操作 ? 隨機(jī)文件的操作 ? 二進(jìn)制文件的操作 ? 文件控件和文件處理函數(shù) ? 文件系統(tǒng)對象編程 文件的結(jié)構(gòu) ? 所謂文件是指存放在外部存儲介質(zhì)上的數(shù)據(jù)或程序等信息的集合。文件隨著分類方法的不同類型名也不同。按照文件的存取方式及其組成結(jié)構(gòu)可以分為順序文件和隨機(jī)文件。按照文件的數(shù)據(jù)編碼方式來分可以分為 ASCII碼文件和二進(jìn)制文件。按照文件的特征屬性來分可以分為系統(tǒng)文件、隱藏文件、只讀文件、普通文件和存檔文件。按照文件的數(shù)據(jù)性質(zhì)來分可以分為程序文件和數(shù)據(jù)文件。 文件的訪問類型 ? VB中有三種文件訪問的類型：順序訪問、隨機(jī)訪問、二進(jìn)制訪問。 ? 順序訪問適用于普通的文本文件。文件中的每一個字符代表一個文本字符或者文件格式符（如：回車、換行符等）。文件中的數(shù)據(jù)以 ASCII碼方式存儲。 ? 隨機(jī)訪問的文件適用于有固定長度記錄結(jié)構(gòu)的文本文件，或者二進(jìn)制文件以隨機(jī)方式訪問的數(shù)據(jù)將被作為二進(jìn)制信息存儲。 ? 二進(jìn)制訪問的文件適用于讀寫任意結(jié)構(gòu)的文件。在二進(jìn)制訪問模式中，不能隨意定位讀取數(shù)據(jù)。二進(jìn)制訪問的文件中的數(shù)據(jù)是順序地、成塊地被讀取的。 順序文件的操作 打開順序文件 ? 打開順序文件的語法結(jié)構(gòu)如下： Open pathname For mode [Access access] [lock] as [] filenumber [Len=reclength] ? Open語句的語法參數(shù)及其說明 : ? Pathname: 指定文件路徑和文件名 ? Mode: 指定文件方式，有 Append,Binary,Input， Output或 Random方式 ? Access: 說明打開的文件 可以進(jìn)行的操作，有 Read,Write或ReadWrite操作 ? Lock: 說明其它進(jìn)程能夠打開的文件進(jìn)行的操作Shared,Lock,Read,LockWrite和 LockReadWrite操作 ? Filenumber: 一個有效的文件號，范圍在 1到 511之間 ，又稱為通道。 ? Reclength :小于或等于 32767（字節(jié)）的一個數(shù)，對于用隨機(jī)訪問方式打開的文件，該值就是記錄長度，對于順序文件，該值就是緩沖字符數(shù) 。 關(guān)閉順序文件 Close [filenumberlist] ? 其中： 可選的 filenumberlist參數(shù)為一個或多個帶 的文件號，若省略該參數(shù)，將 關(guān)閉 Open語句打開的所有活動文件。 相關(guān)函數(shù) ? 1． Seek函數(shù) ? 格式： Seek (filenumber) ? 功能：返回在 Open語句打開的文件中當(dāng)前的讀 /寫位置。 ? 2． Seek語句 ? 格式： Seek []filenumber,position ? 功能：在 Open語句打開的文件中，設(shè)置下一個讀 /寫操作的位置。 ? 3． LOF函數(shù) ? 格式： LOF(filenumber) ? 功能：返回用 Open語句打開的文件的大小，該大小以字節(jié)為單位。 ? 4． Loc函數(shù) ? 格式： Loc(filenumber) ? 功能：返回一個在已打開的文件中指定當(dāng)前讀 /寫位置。具體情況如下：對于隨機(jī)文件，返回最近被訪問的記錄號；對于順序文件，返回該文件被打開以來讀或?qū)懙淖止?jié)數(shù)除以 128后的值；對于二進(jìn)制文件，返回上一次讀出或?qū)懭氲淖止?jié)位置。 相關(guān)函數(shù) ? 5． EOF 函數(shù) ? 格式： EOF（文件號） ? 功能：判斷是否到文件結(jié)尾。 ? 6． FileAttr 函數(shù) ? 格式： FileAttr（文件號，返回類型） ? 功能：以長整型數(shù)返回用 Open語句打開的某個文件的訪問模式的代碼。 ? 7． Filelen 函數(shù) ? 格式： Filelen（文件名） ? 功能：以長整型數(shù)返回某個文件的長度。 ? 8． FreeFile 函數(shù) ? 格式： FreeFile [(文件號范圍 )] ? 功能：以長整型數(shù)的形式返回 Open語句可以使用的下一個有效文件號。 讀順序文件 ? 要讀取順序文件中的數(shù)據(jù)，其步驟為： 1. 用 Open語句按輸入方式打開一個文件； 2. 用 Line Input或 Input()語句從文件中讀取數(shù)據(jù)； 3. 用 EOF函數(shù)檢測文件中的數(shù)據(jù)是否讀完； 4. 讀完后，用 Close語句關(guān)閉文件。 讀順序文件 ? 1． Input 語句 ? 格式： Input filenumber,varlist ? 功能：從已打開的順序文件中讀數(shù)據(jù)并將數(shù)據(jù)賦值給變量。 ? 2． Line Input 語句 ? 格式： Line Input filenumber,varname ? 功能：從已打開的順序文件中讀出一行并將它分配給變量。 ? 3． Input函數(shù) ? 格式： Input(number,[]filenumber) ? 功能：返回以 Input或 Binary方式打開的文件中指定數(shù)目的字符。 ? 4． EOF函數(shù) ? 格式： EOF(filenumber) ? 功能：當(dāng)?shù)竭_(dá)文件尾時返回 True，否則返回 False。 ? 5． FreeFile函數(shù) ? 格式： FreeFile[(rangenumber)] ? 功能：返回下一個可供 Open語句使用的空文件號。 寫順序文件 ? 寫順序文件的步驟： 1. 用 Open語句按 Output或 Append方式打開一個文件； 2. 用 Print 或 Write 語句把數(shù)據(jù)寫入文件； 3. 寫完后，用 Close語句關(guān)閉文件。 寫順序文件 ? 1． Print 語句 ? 格式： Print filenumber,[outputlist] ? 功能：將格式化顯示的數(shù)據(jù)寫入順序文件中。 ? 2． Write 語句 ? 格式： Write filenumber,[outputlist] ? 功能：將數(shù)據(jù)寫入順序文件。 ? 說明 : 用 Write 語句寫到文件中的數(shù)據(jù)以緊湊格式存放，各數(shù)據(jù)之間插有逗號作為分隔符； 隨機(jī)文件的操作 ? 隨機(jī)文件可以看成是由相同長度記錄集合組成的文件，并按記錄進(jìn)行訪問。由于每個記錄長度是固定的，查找時可不通過前面的記錄而直接查找要訪問的記錄，所以能夠直接快速訪問文件中的任意一條記錄。隨機(jī)文件中的每個記錄可以具有多個字段，對應(yīng)于用戶自定義類型。在隨機(jī)文件中的每個記錄都有一個記錄號，只要指出記錄號，就可以對該文件進(jìn)行讀寫。如果隨機(jī)文件太大，通常還會建立一個附加的索引文件。 變量的聲明 ? ? 如記錄由多個字段組成，則須在標(biāo)準(zhǔn)模塊中定義一個類型。 ? 例如： Type Student Name As String*8 Student_Id As Integer End Type ? ? 如： Public wj As Student 打開隨機(jī)文件 ? 要打開隨機(jī)文件，使用以下語法的 Open語句 Open pathname [For Random] As filenumber Len=reclength 讀寫隨機(jī)文件 ? 隨機(jī)文件的讀操作語法格式 : Get []filenumber,[reumber],v