【正文】 框中的圖形，與圖像框的邊界相適應(yīng) 復(fù)選框和單選按鈕 屬性 ? Value屬性 ?單選鈕 為 True時(shí)，該按鈕是“ 打開(kāi) ”的；否則 “關(guān)閉” ?復(fù)選框 為 0表示 沒(méi)有選擇 該復(fù)選框， 1表示 選中 該框， 2表示該復(fù)選框被 禁止 框架 ?用于窗體上對(duì)象分組。 ? Enabled屬性設(shè)為 True，框架內(nèi)的對(duì)象是“活動(dòng)”的。 ? Enabled屬性設(shè)為 False，則其標(biāo)題會(huì)變灰色，框架中的所有對(duì)象均被屏蔽。 注意 ?框架不響應(yīng)鼠標(biāo)事件或用戶(hù)輸入 ?不能顯示文本和圖形，即不支持 Print方法 ?沒(méi)有 Picture屬性 列表框?qū)傩? ? List 字符串?dāng)?shù)組 ,用于返回或設(shè)置控件的 列表項(xiàng)目 object.List(index) [= string] 例 :(1) = “食品與生物學(xué)院” ? ListCount 返回控件的列表項(xiàng)目的 個(gè)數(shù) 。 ? ListIndex 整形 ,在程序中返回或設(shè)置所選控件的項(xiàng)目 下標(biāo) 。 屬性 ? MultiSelect 設(shè)置值 描 述 0 – None 不允許多項(xiàng)選擇 。 每一次只選擇一項(xiàng) ， 1 – Simple 簡(jiǎn)單多項(xiàng)選擇 。 2 – Extended 擴(kuò)展多項(xiàng)選擇 。 屬性 ? Selected 邏輯型 ,返回或設(shè)置 ListBox或 FileListBox控件中的各個(gè)項(xiàng)的選擇狀態(tài)。 ? Sorted 為 True，項(xiàng)目按字母數(shù)字升序排列，為False（缺省值），則表項(xiàng)按加入列表框的先后順序排列。 ? Text 字符串型 ,返回列表框中當(dāng)前選擇的項(xiàng)目。 方法 ?列表框可以使用 AddItem， Clear和ReMoveItem三種方法 ?例： ? ―年齡 ‖ ‘添加末項(xiàng) ? 5 ?刪除第六項(xiàng) ? 組合框?qū)傩? ? Style ?設(shè)為 0時(shí)，稱(chēng)為“下拉式組合框” ?為 1的組合框稱(chēng)為“簡(jiǎn)單組合框” ?為 2的組合框稱(chēng)為“下拉式列表框” 事件 ? Style = 0時(shí)，響應(yīng) Click， Change和Dropdown事件； ? Style = 1時(shí)，響應(yīng) Click， DblClick和Change事件； ? Style = 2時(shí)，響應(yīng) Click和 Dropdown事件 滾動(dòng)條屬性 ? Max： 滾動(dòng)條所能表示的最大值 ? Min： 滾動(dòng)條所能表示的最小值 ? Value： 返回或設(shè)置滾動(dòng)塊當(dāng)前位置值。 ? LargeChange： 用于設(shè)定當(dāng)用鼠標(biāo)單擊滾動(dòng)箭頭與滾動(dòng)條之間區(qū)域時(shí)的滾動(dòng)幅度，即 Value屬性值的增量或減量。 ? SmallChange： 用于設(shè)定當(dāng)用鼠標(biāo)單擊滾動(dòng)箭頭時(shí) Value屬性值的變化量。 事件 ? Scroll 當(dāng)在滾動(dòng)條內(nèi)拖動(dòng)滾動(dòng)塊時(shí)觸發(fā)該事件。 ? Change 該事件發(fā)生在滾動(dòng)塊移動(dòng)后或通過(guò)代碼對(duì)Value屬性賦值后。 計(jì)時(shí)器 ? Interval屬性 用于設(shè)定計(jì)時(shí)器觸發(fā)事件的時(shí)間間隔，以毫秒為單位（例：每隔 器事件， =300 ）。 ? Timer事件 計(jì)時(shí)器只支持 Timer事件。每當(dāng)經(jīng)過(guò)一個(gè)Interval屬性規(guī)定的時(shí)間間隔，就觸發(fā)Timer事件。 例 : ? Private Sub hsbrate_Change() ? = ? End Sub ? Private Sub tmr1_Timer() ? = Not ? End Sub 第 8章 文件 主要內(nèi)容 ?文件基本操作 ?順序文件 ?隨機(jī)文件 ?文件操作３控件 ?文件操作命令和函數(shù) 基本操作 ?分為 3個(gè)階段： ?打開(kāi)文件 ?讀舊文件（磁盤(pán) → 內(nèi)存） /寫(xiě)新文件（內(nèi)存→ 磁盤(pán)）文件 ?關(guān)閉文件。 Open語(yǔ)句格式 : ? Open pathname For mode As []filenumber ? mode 關(guān)鍵字有 Append（添加）、Input（輸入）、 Output（輸出）、 或 Random（隨機(jī)）方式。如果未指定方式，則 VB以 Random 訪(fǎng)問(wèn)方式打開(kāi)文件。 例 ?在 C盤(pán)根目錄下建立一個(gè)新的名為 ,用 1作為文件號(hào)。 ?Open ―C:\‖ FOR Output AS 1 文件指針 ?文件打開(kāi)以后，自動(dòng)生成一個(gè)（隱形的）文件指針，文件的讀或?qū)憦奈募羔標(biāo)傅奈恢瞄_(kāi)始。 ?用 Append方式打開(kāi)的文件 ,文件指針指向文件 末尾 ,用 其他 4種方式打開(kāi)的文件 , 文件指針都指向文件的 開(kāi)頭 。 ?每完成一次讀 /寫(xiě)操作后 ,文件指針自動(dòng)移到下一個(gè)讀 /寫(xiě)分量的起始位置 . 文件分量 ?―文件分量”指即文件指針移動(dòng)一次的存儲(chǔ)長(zhǎng)度 ?隨機(jī)文件中的分量是一個(gè) 記錄的長(zhǎng)度 ； ?順序文件的分量長(zhǎng)度與讀 /寫(xiě)的 字符串長(zhǎng)度 相同。 例 ? Type student ? no As Integer ? 2字節(jié) ? name As String * 8 ? 8字節(jié) ? sex As String * 2 ? 2字節(jié) ? math As Single ? 4字節(jié) ? End Type ? Len=16 文件指針的語(yǔ)句和函數(shù) ? Seek函數(shù) 格式： Seek(filenumber) ? Seek語(yǔ)句 格式： Seek[]filenumber， position 與讀 /寫(xiě)文件有關(guān)函數(shù)： ? EOF（ filenumber） 讀文件時(shí) ,對(duì)于順序文件，當(dāng)文件指針指著文件尾時(shí)返回 True(－ 1)，否則返回False(0)。 ? LOC（ filenumber） 指示文件當(dāng)前的讀 /寫(xiě)位置。 與讀 /寫(xiě)文件有關(guān)函數(shù) (續(xù)） ? LOF（ filenumber） 返回一個(gè)已打開(kāi)文件（由文件號(hào)filenumber標(biāo)識(shí)）所含的字節(jié)數(shù)。 ? FreeFile[()] 功能： 返回頭一個(gè)可用文件號(hào)。 關(guān)閉文件 ? Close[[]filenumber1][， ]filenumber2]… ? Kill pathname 順序文件 ? Open filenumber For Input As [] filenumber ? Open filenumber For Output As [] filenumber ? Open filenumber For Append As [] filenumber 一、寫(xiě)順序文件 ?標(biāo)準(zhǔn)格式輸出的 Write語(yǔ)句 ?自定義格式輸出的 Print語(yǔ)句 標(biāo)準(zhǔn)格式輸出的 Write語(yǔ)句 ?格式： Write filenumber ， [outputlist] ?各輸出項(xiàng)之間插入逗號(hào) 例 ? Open f:\ For Output As 1 ? Write 1, , , , 自定義格式輸出的 Print語(yǔ)句 ?格式： Print filenumber, [outputlist] ? outputlist有以下形式： [ Spc(n)|Tab[(n)] ] [expression] [charpos] 例 ? Open f:\ For Output As 1 ? Print 1, 。 Spc(2)。 。 Spc(2)。 。 Spc(2)。 。 在已有的順序文件后添加記錄 ? Open f:\ For Append As 1 ? Write 1, , , , , 二、讀順序文件 ?Input語(yǔ)句 ?Line Input語(yǔ)句 ?Input函數(shù) Input語(yǔ)句 ?格式： Input filenumber, varlist ?例 ? Open f:\ For Input As 1 ? While Not EOF(1) ? Input 1, , , , , ? Wend Line Input語(yǔ)句 ? 格式： Line Input filenumber, varname ?例 ? Open f:\ For Input As 1 ? While Not EOF(1) ? Line Input 1, str ? Wend Input函數(shù) ?格式： Input(number, []filenumber) ?例 ? Open f:\ For Input As 1 ? str = Input(LOF(1), 1) 隨機(jī)文件 ?打開(kāi)隨機(jī)文件 Open pathname For Random As []filenumber Len=reclength ?例如： Open D:\ For Random As 1 Len=16 ?一個(gè)文件的大小用函數(shù) Lof測(cè)試后長(zhǎng)度為2022，同時(shí)，打開(kāi)這個(gè)文件的命令可以用如下語(yǔ)句： ? Open ―‖ For Random As 1 Len=10 ? 則這個(gè)文件的記錄數(shù)是（ ）。 ? 200 讀、寫(xiě)隨機(jī)文件 ?寫(xiě)隨機(jī)文件 Put []filenumber, [reumber], varname ?讀隨機(jī)文件 Get []filenumber, [reumber], varname 例 : Put 1, , s , , , 由于 Put命令中沒(méi)有指明記錄號(hào)，因此每次都把記錄寫(xiě)到文件的末尾 (錯(cuò) ) 例 修改記錄。設(shè)計(jì)子過(guò)程，對(duì)一個(gè)已存在的職工工資簡(jiǎn)表 ，凡是低于 500元的工資增加 50元。 ? 職工記錄定義如下：（記錄必須在標(biāo)準(zhǔn)模塊或窗體模塊中定義 ） ? Type person ? no As Integer ? name As String * 8 ? wages As Single ? End Type ? 增加工資的子過(guò)程如下 ? Sub increase() ? Dim i%, total% ? Dim p As person ? Open f:\VB例程 \ For Random As 1 Len = 14 ? total = LOF(1) / Len(p) 39。計(jì)算文件的記錄數(shù) ? For i = 1 To total (while not eof(1)) ? Get 1, , p ? If 500 Then ? = + 50 ? Put 1, Loc(1), p 39。文件指針?lè)祷卦瓉?lái)記錄的位置 ? End If ? Next ? Close 1 ? End Sub ? 4. 下面事件過(guò)程的功能是從學(xué)生分?jǐn)?shù)順序文件 D:\取各個(gè)學(xué)生的分?jǐn)?shù)，并求該班的最高分?jǐn)?shù)。 ? Private Sub mand1_Click() ? Dim score!, s!， max! ? Open d:\ For Input As 3 ? s = 0： max=0 ? While （ 9） ? （ 10） ? if scoremax Then max=score ? Wend ? Print 最高分?jǐn)?shù)為： 。 max ? Close 3 ? End Sub ? Not EOF(3) ? Input 3,score 文件操作用的 3個(gè)控件 ?驅(qū)動(dòng)器列表框 ?目錄列表框 ?文件列表框 驅(qū)動(dòng)器列表框 ?屬性 object.Drive [ = drive ] ?事件 當(dāng) Drive屬性被改變時(shí)，引發(fā)該驅(qū)動(dòng)器列表框的 Change事件。 目錄列表框 ?屬性 object.Path [ = pathname ] ?事件 當(dāng) Path屬性被改變時(shí)，觸發(fā)該目錄列表框的 Change事件。 文件列表框 ? Pat