VB-復(fù)習(xí)提綱PPT課件.ppt

VisualBasic復(fù)習(xí)提綱 一 VB主要功能和特點(diǎn)1 面向?qū)ο蟮某绦蛟O(shè)計(jì)語言 2 具有事件驅(qū)動(dòng)編程機(jī)制的語言 3 結(jié)構(gòu)化的程序設(shè)計(jì)語言 4 提供了易學(xué)易用的應(yīng)用程序集成開發(fā)環(huán)境 5 支持多種數(shù)據(jù)庫(kù)系統(tǒng)的訪問 6 Active技術(shù) 二 工程的管理及常用文件擴(kuò)展名1 工程的組成工程文件包含了一個(gè)應(yīng)用程序的所有文件 一個(gè)工程最少包含2個(gè)文件 1個(gè)工程文件 1個(gè)窗體文件 2 常用文件擴(kuò)展名工程文件 VBP窗體文件 FRM標(biāo)準(zhǔn)模塊文件 BAS類模塊文件 CLS 三 VB語法基礎(chǔ)1 VB代碼不區(qū)分字母的大小寫 2 語句書寫自由一行可書寫幾條語句 之間用冒號(hào)分隔 一條語句可分為若干行書寫 用續(xù)行符 連接 一行 255個(gè)字符 3 注釋語句以Rem開始或單撇號(hào) 四 變量聲明1 用Dim語句顯式聲明變量形式一 Dim變量名 AS類型 例 DimiCountAsinteger sAllsumAssingle形式二 省略 AS類型 短語而在變量名的后面加上特定的字符 類型符 用于規(guī)定變量類型 常用類型符如下 聲明變量類型為整型 聲明變量類型為長(zhǎng)整型 聲明變量類型為單精度浮點(diǎn)型 聲明變量類型為雙精度浮點(diǎn)型 聲明變量類型為字符串型 上例等價(jià)于 DimiCount sAllsum 2 隱式聲明未進(jìn)行上述的聲明而直接使用 其類型為Variant類型 建議不使用 3 強(qiáng)制聲明為了保證所有變量都能得到聲明 可以在VB程序的開始處寫入下面語句 OptionExplicit也可以在系統(tǒng)環(huán)境中設(shè)置 選擇 工具 選項(xiàng) 命令 在打開的 選項(xiàng) 對(duì)話框中選擇 編輯器 選項(xiàng)卡 然后選中 要求變量聲明 復(fù)選框 這樣就可以在任何新建的程序中自動(dòng)插入OptionExplicit語句 五 常用運(yùn)算符和常用函數(shù)1 算術(shù)運(yùn)算符例 5 10mod10 9 3 2 2結(jié)果 10 2 字符串運(yùn)算符 3 關(guān)系運(yùn)算符 4 邏輯運(yùn)算符將操作數(shù)進(jìn)行邏輯運(yùn)算 結(jié)果是邏輯值 5 字符串函數(shù) 6 InputBox函數(shù)InputBox 提示 標(biāo)題 缺省 x坐標(biāo)位置 y坐標(biāo)位置 其中 提示 提示信息 標(biāo)題 對(duì)話框標(biāo)題 缺省 輸入?yún)^(qū)缺省值函數(shù)返回字符類型 例要在屏幕上顯示圖示的對(duì)話框 例 DimstrNameAsStringstrName InputBox 請(qǐng)輸入你的姓名 vbCrLf 然后單擊確定 輸入框 7 MsgBox函數(shù)和MsgBox過程函數(shù)形式 變量 MsgBox 提示 按鈕類型 標(biāo)題 過程形式 MsgBox提示 按鈕類型 標(biāo)題 說明 1 提示 作為消息顯示在對(duì)話框中 為字符串表達(dá)式 2 按扭類型 顯示按扭的數(shù)目和類型 為數(shù)值表達(dá)式 可省略 此時(shí)取默認(rèn)值0 3 標(biāo)題 對(duì)話框標(biāo)題欄上的標(biāo)題 如省略 則將應(yīng)用程序的名稱顯示在標(biāo)題欄上 8 條件函數(shù)IIf函數(shù)形式是 IIf 表達(dá)式 當(dāng)表達(dá)式為True時(shí)的值 當(dāng)表達(dá)式為False時(shí)的值 例如 將x y中較大的數(shù) 放入Tmax變量中 語句如下 Tmax IIf x y x y 六 程序基本控制結(jié)構(gòu)1 選擇結(jié)構(gòu)If Then語句 單分支結(jié)構(gòu) IfThen語句塊EndIf或IfThenIf Then Else語句 雙分支結(jié)構(gòu) IfThenElseEndIf或IfThenElse 2 For循環(huán)語句 一般用于循環(huán)次數(shù)已知 形式 For循環(huán)變量 初值to終值 Step步長(zhǎng) 語句塊 ExitFor 語句塊Next循環(huán)變量 循環(huán)體 例1 由計(jì)算機(jī)來當(dāng)一年級(jí)的算術(shù)老師 要求給出一系列的1 10的操作數(shù)和運(yùn)算符 學(xué)生輸入該題的答案 計(jì)算機(jī)根據(jù)學(xué)生的答案判斷正確與否 當(dāng)點(diǎn)擊 計(jì)分 按扭時(shí) 測(cè)試結(jié)束 計(jì)算機(jī)給出本次測(cè)試的成績(jī) 程序運(yùn)行如圖 說明 該程序用了1個(gè)標(biāo)簽 1個(gè)文本框 1個(gè)命令按扭和1個(gè)圖形框控件 產(chǎn)生1 10操作數(shù) 通過Int 10 Rnd 1 來實(shí)現(xiàn) 程序代碼如下 七 其他輔助控制語句1 GoTo語句形式 GoTo 標(biāo)號(hào) 行號(hào) 作用 無條件地轉(zhuǎn)移到標(biāo)號(hào)或行號(hào)指定的那行語句 標(biāo)號(hào)是一個(gè)字符序列 行號(hào)是一個(gè)數(shù)字序列 2 Exit語句多種形式 ExitFor ExitDo ExitSub ExitFunction等 作用 退出某種控制結(jié)構(gòu)的執(zhí)行 3 End語句多種形式 End EndIf EndSelect EndWith EndType EndSub EndFunction 作用 End結(jié)束一個(gè)程序的運(yùn)行 其余表示某個(gè)結(jié)構(gòu)的結(jié)束 與對(duì)應(yīng)的結(jié)構(gòu)語句配對(duì)出現(xiàn) 八 靜態(tài)數(shù)組及聲明數(shù)組必須先聲明后使用 VB中有兩種類型的數(shù)組 靜態(tài) 定長(zhǎng) 數(shù)組和動(dòng)態(tài) 可變長(zhǎng) 數(shù)組 1 靜態(tài)數(shù)組及聲明形式 Dim數(shù)組名 下標(biāo)1 下標(biāo)2 As類型 聲明了數(shù)組的名 維數(shù) 大小 類型維數(shù) 幾個(gè)下標(biāo)為幾維數(shù)組 最多60維 下標(biāo) 下界To 上界省略下界為0 必須為常數(shù) 每一維大小 上界 下界 1數(shù)組大小 每一維大小的乘積例 Dimmark 1to100 AsInteger DimlArray 0To3 0To4 AsLong共有4 5個(gè)元素等價(jià)于 DimlArray 3 4 AsLong 注意 1 下界缺省為0 也可重新定義數(shù)組的下界 例如 OptionBase1 2 錯(cuò)誤的聲明 下標(biāo)是變量n Inputbox 輸入n Dimx n AsSingle 3 在數(shù)組聲明中的下標(biāo)說明了數(shù)組的整體 即每維的大小 而在程序其他地方出現(xiàn)的下標(biāo)表示數(shù)組中的一個(gè)元素 兩者寫法形式相同 但意義不同 例如 Dimx 10 AsInteger 聲明了x數(shù)組有11個(gè)元素x 10 100 對(duì)x 10 這個(gè)數(shù)組元素賦值 2 數(shù)組元素的賦初值 1 利用循環(huán)結(jié)構(gòu)Fori 1To10iA i 0Nexti 注意 利用Array函數(shù)對(duì)數(shù)組各元素賦值 聲明的數(shù)組是可變數(shù)組或連圓括號(hào)都可省略的數(shù)組 并且其類型只能是Variant 數(shù)組的下界默認(rèn)為零 也可通過OptionBase語句決定 上界由Array函數(shù)括號(hào)內(nèi)的參數(shù)個(gè)數(shù)決定 也可通過函數(shù)Ubound獲得 2 利用Array函數(shù)DimibAsVariantib Array 1 2 3 4 5 ib數(shù)組有5個(gè)元素 數(shù)組上界為4Fori 0ToUBound ib Picture1 Printib i Nexti 例2 求一個(gè)班若干個(gè)學(xué)生的平均成績(jī) 然后統(tǒng)計(jì)高于平均分的人數(shù) 要求將平均分和高于平均分的人數(shù)這兩項(xiàng)放在數(shù)組的最后 九 窗體 1 窗體類型在VB中窗體分為兩種類型 單文檔窗體 SDI 和多文檔窗體 MDI 1 單文檔窗體 只有一個(gè)窗體的應(yīng)用程序 2 多文檔窗體 有多個(gè)子窗體的應(yīng)用程序 在設(shè)計(jì)狀態(tài)下 窗體是可見的 若需要改變窗體中的網(wǎng)格點(diǎn)間距 可以在菜單欄上選擇 工具 選項(xiàng) 在彈出的 選項(xiàng) 對(duì)話框中選擇 通用 選項(xiàng)卡 在 窗體設(shè)置網(wǎng)格 框中可設(shè)置相關(guān)項(xiàng) 運(yùn)行時(shí) 可通過屬性控制窗體的可見性 窗體的網(wǎng)格始終不顯示 2 窗體的主要屬性 1 Caption屬性 窗體的標(biāo)題 即顯示在標(biāo)題欄內(nèi)控制圖標(biāo)右面的標(biāo)題 用來向用戶說明窗體的作用 系統(tǒng)默認(rèn)為Form1 2 Visible屬性 該屬性用于設(shè)置窗體在程序運(yùn)行時(shí)是否可見 若該屬性為True 則窗體顯示在屏幕上 若該屬性為False 則窗體隱藏起來 不在屏幕上顯示 3 Name屬性 窗體的名稱 用于在程序中唯一的標(biāo)識(shí)窗體 在程序中每添加一個(gè)新窗體時(shí) 系統(tǒng)會(huì)自動(dòng)給其一個(gè)默認(rèn)的名稱FormX 3 窗體的常用事件 1 Click事件 用鼠標(biāo)左鍵或右鍵單擊窗體時(shí)觸發(fā)的事件 2 DblClick事件 用鼠標(biāo)左鍵或右鍵雙擊窗體時(shí)觸發(fā)的事件 3 Load事件 窗體被加載到內(nèi)存中準(zhǔn)備顯示時(shí) 觸發(fā)的事件 發(fā)生在所有用戶操作引發(fā)的事件之前 所以常在Load事件過程中進(jìn)行窗體與控件的初始化工作 4 窗體的常用方法 1 Show方法 用來將一個(gè)已經(jīng)裝入內(nèi)存的窗體顯示出來 其語法如下 Show其中為 模式 參數(shù) 有兩種取值 0 默認(rèn)值 表示非?；拇绑w 1表示模化的窗體 ?；拇绑w是指該窗口出現(xiàn)后 用戶必須對(duì)其作出響應(yīng) 否則不能進(jìn)行其他任何操作的窗體 這種窗體經(jīng)常用在一些對(duì)話框窗口上 2 Hide方法 用于隱藏顯示在屏幕上的窗體 隱藏窗體時(shí) 用戶將無法訪問該窗體上的控件 但是運(yùn)行中的VB應(yīng)用程序并不卸載它 仍然可以使用語句訪問隱藏窗體上的控件 其語法為 Hide 3 Print方法 形式 對(duì)象 Print Spc n Tab n 表達(dá)式列表 作用 在對(duì)象上輸出信息對(duì)象 窗體 圖形框或打印機(jī) Printer 省略對(duì)象在窗體上輸出 Spc n 函數(shù) 插入n個(gè)空格 允許重復(fù)使用 Tab n 函數(shù) 左端開始右移動(dòng)n列 允許重復(fù)使用 分號(hào) 光標(biāo)定位上一個(gè)顯示的字符后 逗號(hào) 光標(biāo)定位在下一個(gè)打印區(qū)的開始位置處 無 時(shí)換行 注意 Print方法在Form Load事件過程中起作用 但必須設(shè)置窗體的AutoRedraw屬性為True 4 Cls方法 形式 對(duì)象 Cls作用 清除運(yùn)行時(shí)在窗體或圖形框中顯示的文本或圖形 注意 不清除在設(shè)計(jì)時(shí)的文本和圖形 十 標(biāo)簽控件 標(biāo)簽 Label 是用于顯示文本信息的控件 1 標(biāo)簽常用的屬性 1 名稱 Name 程序中引用名稱 2 Caption 標(biāo)簽上顯示內(nèi)容 2 標(biāo)簽常用的事件標(biāo)簽可響應(yīng)單擊 Click 和雙擊 DblClick 事件 十一 文本框 文本框控件既可用來顯示文本 也允許在其中輸入或修改文本 它經(jīng)常用來實(shí)現(xiàn)數(shù)據(jù)的輸入 編輯和修改等 文本框常用的屬性 1 Text屬性 輸入存放在文本框內(nèi)的字符串 在編程中 可通過訪問文本框的Text屬性來獲得用戶的輸入值 2 MultiLine屬性 設(shè)置是否允許存放多行文本 默認(rèn)值為False 只允許存放一行文本 若該屬性設(shè)置為True 則文本框具有自動(dòng)換行功能 可輸入或顯示多行文本 3 ScrollBars屬性 設(shè)置文本框內(nèi)是否有滾動(dòng)條 其中 0 無滾動(dòng)條 默認(rèn)值 1 只有水平滾動(dòng)條 2 只有垂直滾動(dòng)條 3 有水平和垂直滾動(dòng)條 例3 要求輸入數(shù)字?jǐn)?shù)據(jù) 當(dāng)輸入結(jié)束時(shí) 按Tab鍵 對(duì)于輸入正確的數(shù)據(jù) 顯示正確信息 對(duì)輸入的非數(shù)字?jǐn)?shù)據(jù) 顯示錯(cuò)誤信息 清除文本框中的內(nèi)容 并使焦點(diǎn)重新回到文本框 建立的控件和屬性設(shè)置如下表 程序運(yùn)行如圖所示 分析 在文本框 Text2 中輸入數(shù)字 按Tab鍵后 在文本框 Text3 中顯示輸入正確與否 因此有 Text2 LostFocus當(dāng)輸入結(jié)束按Tab鍵時(shí) 該事件激發(fā) IsNumeric Text2 判斷是否輸入非數(shù)字?jǐn)?shù)據(jù) Text2 SetFocus 使焦點(diǎn)重新回到文本框 程序代碼如下 PrivateSubText2 LostFocus DimiAsIntegerIfIsNumeric Text2 ThenText3 Text 正確 ElseText2 Text 清除輸入文本框中的內(nèi)容Text2 SetFocus 控制權(quán)重新回到輸入文本框Text3 Text 錯(cuò)誤 再輸入 顯示有關(guān)信息EndIfEndSub 十二 命令按鈕 命令按鈕 CommandButton 是VisualBasic中最常用的控件之一 通過鍵盤或鼠標(biāo)單擊按鈕實(shí)現(xiàn)一個(gè)命令的啟動(dòng) 中斷或結(jié)束 1 命令按鈕常用屬性 1 Caption屬性 該屬性用來設(shè)置顯示在命令按鈕上的標(biāo)題 也就是命令按鈕上方出現(xiàn)的文本 2 Enabled屬性 設(shè)置命令按鈕是否可選用2 命令按鈕常用的事件Click事件 單擊鼠標(biāo)時(shí)觸發(fā)的事件 例4 在窗體上畫一個(gè)名稱為Command1的命令按鈕 一個(gè)名稱為L(zhǎng)abel1的標(biāo)簽 然后在Command1的Click事件中編寫代碼 求1 59內(nèi)能被3整除的數(shù)的個(gè)數(shù) 程序如下 PrivateSubCommand1 Click s 0Fori 1To30 x 2 i 1IfxMod3 0Thens s 1NextiLabel1 Caption sEndSub 例5 設(shè)計(jì)一帳號(hào)和密碼檢驗(yàn)程序 要求 帳號(hào)不超過6位且必須輸入數(shù)字 密碼輸入時(shí)在屏幕上以 號(hào)代替 若密碼錯(cuò) 顯示有關(guān)信息 選擇 重試 按鈕 清除原內(nèi)容再輸入 選擇 取消 按鈕 停止運(yùn)行 分析 Text1 MaxLength設(shè)為6 在Text1的LostFocus事件中使用函數(shù)IsNumeric 判斷Text1中輸入的是否數(shù)字 Text2 PassWordChar設(shè)為 MsgBox函數(shù)設(shè)置密碼錯(cuò)對(duì)話框 程序代碼如下 十三 單選鈕和復(fù)選框 Caption屬性 顯示在單選按扭 復(fù)選框上的內(nèi)容 Value屬性單選鈕 邏輯型 復(fù)選框 數(shù)值型 True 選定Value 0 未被選定 默認(rèn)值 False 未選定Value 1 選定Value 2 灰色 禁止選擇 事件 Click因?yàn)閱螕魰r(shí)自動(dòng)改變狀態(tài) 故不需要編寫過程 Caption屬性 框架標(biāo)題Click DblClick事件 一般不需要編寫框架的事件過程 十四 框架 Frame 例6 框架用法示例 程序代碼如下 十五 列表框 Listbox 與組合框 Combo 1 列表框列表框 Listbox 控件可顯示一個(gè)含有若干選項(xiàng)的列表 程序運(yùn)行時(shí)可用鼠標(biāo)或箭頭鍵從中選擇一項(xiàng)或多項(xiàng) 選中的項(xiàng)呈反相顯示 列表框的常用屬性a List屬性 設(shè)置或返回列表框中的列表項(xiàng)內(nèi)容 該屬性實(shí)際上是一個(gè)字符型數(shù)組 數(shù)組的元素就是列表中的每個(gè)項(xiàng)目 數(shù)組下標(biāo)是列表項(xiàng)的順序號(hào) 從0開始編號(hào) 設(shè)計(jì)時(shí) 該屬性欄提供一個(gè)文本框 可在其中輸入一些選擇項(xiàng) 運(yùn)行時(shí) 可通過該屬性實(shí)現(xiàn)對(duì)列表項(xiàng)內(nèi)容的設(shè)置或訪問 引用列表項(xiàng)目的語法格式 列表框名 List Index 其中 Index是項(xiàng)目的位置 List 0 指向第一項(xiàng) List 1 指向第二項(xiàng)等 b Text屬性 包含當(dāng)前在列表框中選定的項(xiàng)目 屬性值與List ListIndex 相同 該屬性在設(shè)計(jì)時(shí)和運(yùn)行時(shí)均為只讀屬性 列表框的常用事件a Click 單擊 事件 b DblClick 雙擊 事件 列表框的常用方法AddItem 添加項(xiàng) 方法 向列表框添加一個(gè)項(xiàng)目 語法格式 列表框名 AddItem要增加的列表項(xiàng) 列表項(xiàng)序號(hào) 說明 列表項(xiàng)序號(hào) 用于指定新插入的項(xiàng)在列表框中的位置 若省略該參數(shù) 則將項(xiàng)目插入在末尾 或按排序次序插入在適當(dāng)?shù)奈恢?例 List1 AddItem 計(jì)算機(jī)應(yīng)用基礎(chǔ)教程 2 2 組合框組合框 ComboBox 控件是文本框和列表框的組合 包含一個(gè)文本框和一個(gè)列表框 用戶既可在文本框部分輸入選項(xiàng) 也可用列表框部分選擇選項(xiàng) 1 組合框的常用屬性 a Text屬性 文本框內(nèi)的字符串 通常指選中項(xiàng)目的內(nèi)容 不支持多選 b Style屬性 組合框有3種樣式 見圖 Style 0 默認(rèn)值 時(shí) 為下拉式組合框 Style 1時(shí) 為簡(jiǎn)單組合框 Style 2時(shí) 為下拉式列表框 每種樣式都可在設(shè)計(jì)或運(yùn)行時(shí)設(shè)置 c List屬性 設(shè)置或返回組合框中的項(xiàng)目?jī)?nèi)容 字符串?dāng)?shù)組 d Listindex屬性 選中項(xiàng)目的索引號(hào) e ListCount屬性 組合框中所含項(xiàng)目的總數(shù) f Sorted屬性 指定列表中的各項(xiàng)是否自動(dòng)按字母順序排序 排序時(shí)并不區(qū)分大小寫 默認(rèn)值為False g Locked屬性 指定是否允許編輯修改各列表項(xiàng) 默認(rèn)值為False 即不鎖定 允許編輯修改各列表項(xiàng) 2 組合框的常用事件組合框的常用事件為Change事件 當(dāng)用戶修改了組合框的文本框中的內(nèi)容或用代碼修改了文本框的Text屬性 即觸發(fā)Change事件 注意 Change事件僅在Style 0或Style 1時(shí)才會(huì)發(fā)生 3 組合框的常用方法 1 AddItem 添加項(xiàng) 方法 向列表框添加一個(gè)選項(xiàng) 2 RemoveItem 刪除項(xiàng) 方法 從列表內(nèi)刪除一個(gè)選項(xiàng) 3 Clear 清除 方法 清除列表中的所有選項(xiàng) 例7 設(shè)計(jì)一個(gè)如圖所示的應(yīng)用程序 當(dāng) 計(jì)算機(jī) 和 操作系統(tǒng) 未被選定時(shí) 它們所在框架的其他控件不能使用 組合框自身能添加一個(gè)新的選項(xiàng) 供下次選擇 如果單擊OK按扭 則在列表框中顯示用戶所選的配置 程序代碼如下 十六滾動(dòng)條控件 滾動(dòng)條控件通常用來附在窗體邊上幫助觀察數(shù)據(jù)或確定位置 作為速度 數(shù)量的指示器來使用 也可用來作為數(shù)據(jù)輸入的工具 滾動(dòng)條控件有水平 Hscroll 和垂直 Vscroll 兩種 滾動(dòng)條是VB的標(biāo)準(zhǔn)控件 可以直接通過工具箱中的水平滾動(dòng)條控件和垂直滾動(dòng)條控件來建立 垂直滾動(dòng)條的值由上往下遞增 水平滾動(dòng)條值由左往右遞增 其值均以整數(shù)表示 最小值和最大值分別在兩個(gè)端點(diǎn) 其坐標(biāo)系和滾動(dòng)條的長(zhǎng)度 高度 無關(guān) 一 滾動(dòng)條控件的常用屬性1 Max屬性 滾動(dòng)條控件所能表示的最大值 2 Min屬性 滾動(dòng)條控件所能表示的最小值 3 Value屬性 表示當(dāng)前滑塊所處位置所代表的值 范圍在Max與Min之間 4 LargeChange屬性 當(dāng)用戶單擊滾動(dòng)條兩端箭頭之間的區(qū)域時(shí) 滾動(dòng)條控件 HScrollBar或VScrollBar 的Value屬性值的改變量 默認(rèn)值為1 5 SmallChange屬性 當(dāng)用戶單擊滾動(dòng)條兩端的箭頭時(shí) Value屬性值的增加或減小的量 默認(rèn)值為1 二 滾動(dòng)條控件的常用事件1 Scroll事件在滾動(dòng)條內(nèi)拖動(dòng)滾動(dòng)塊時(shí) 觸發(fā)產(chǎn)生Scroll事件 2 Change事件滾動(dòng)條內(nèi)的值發(fā)生改變時(shí)觸發(fā)產(chǎn)生Change事件 一般情況下Scroll事件與Change事件往往一起使用 例8 設(shè)計(jì)如圖所示的計(jì)算1 18中某個(gè)數(shù)階乘的程序 數(shù)據(jù)由滾動(dòng)條獲得 設(shè)置滾動(dòng)條的max屬性為18 min屬性為1 SmallChange屬性為1 LargeChange屬性為3 程序代碼如下 十七 時(shí)鐘控件 Timer 時(shí)鐘控件又稱為定時(shí)器 Timer 控件 用來計(jì)時(shí) 當(dāng)所預(yù)定的時(shí)間到了的時(shí)候 系統(tǒng)會(huì)自動(dòng)觸發(fā)其Timer事件 從而完成指定的操作 例如 移動(dòng)一個(gè)條幅或一幅圖片 構(gòu)成動(dòng)態(tài)效果 顯示時(shí)鐘等 在窗體上放置時(shí)鐘控件后 盡管在程序運(yùn)行時(shí)不可見 但它依然在工作 因此 設(shè)計(jì)窗體時(shí) 可隨意地把時(shí)鐘控件放在窗體的某個(gè)位置上 并且允許同時(shí)使用多個(gè)時(shí)鐘控件 時(shí)鐘控件的常用屬性1 Enabled屬性用于決定是否啟動(dòng)時(shí)鐘 當(dāng)該屬性的值為True時(shí) 啟動(dòng)時(shí)鐘的Timer事件 當(dāng)該屬性值為False時(shí) 關(guān)閉時(shí)鐘 2 Interval屬性兩次時(shí)鐘事件 Timer 觸發(fā)的時(shí)間間隔 ms Interval屬性的有效值在0到65535ms之間 其屬性值既可在設(shè)計(jì)時(shí)設(shè)置 也可在程序運(yùn)行時(shí)設(shè)置 時(shí)鐘控件的Interval屬性值越小 Timer事件觸發(fā)越頻繁 響應(yīng)事件所使用的處理器事件就越多 如果Interval 0 定時(shí)器停止工作 時(shí)鐘控件的事件時(shí)鐘控件的事件只有一個(gè) Timer事件 只要時(shí)鐘控件的屬性Enabled True 而且Interval屬性值大于0 則Timer事件以Interval屬性指定的時(shí)間間隔發(fā)生 在Timer事件過程中編寫需要定時(shí)進(jìn)行的處理 可以周期性地激活Timer事件 每隔一段時(shí)間自動(dòng)地調(diào)用一次Timer事件過程 例9 設(shè)計(jì)一個(gè)定時(shí)程序 當(dāng)定時(shí)時(shí)間到時(shí) 彈出一對(duì)話框提示時(shí)間到 同時(shí)停止計(jì)時(shí) 計(jì)時(shí)器Timer1的Interval屬性值設(shè)為100 程序運(yùn)行結(jié)果如圖 程序代碼如下 通用對(duì)話框 CommonDialog 控件用于打開系統(tǒng)已有的 通用 對(duì)話框 如打開和保存文件 選擇顏色和字體 打印和打印設(shè)置等公共對(duì)話框都屬于 通用 對(duì)話框 通用對(duì)話框控件不是標(biāo)準(zhǔn)控件 在標(biāo)準(zhǔn)工具箱中是找不到的 它屬于VB的ActiveX控件 將通用對(duì)話框添加到工具箱中的步驟 在程序運(yùn)行時(shí) 窗體上通用對(duì)話框圖標(biāo)是看不到的 所以通用對(duì)話框在窗體上的位置是無關(guān)緊要的 十八 通用對(duì)話框 CommonDialog 工程 部件 選定部件標(biāo)簽 選定MicrosoftCommonDialogControl6 0 確定 通用對(duì)話框可以通過對(duì)其Action屬性的設(shè)置或調(diào)用Show方法來打開所需的對(duì)話框 Action屬性的意義和Show方法如下表 通用對(duì)話框常用屬性 1 對(duì)話框標(biāo)題 DialogTitle屬性 用于設(shè)置打開對(duì)話框的標(biāo)題 默認(rèn)值為 打開 2 文件名稱 FileName屬性 用于設(shè)置對(duì)話框中 文件名稱 的默認(rèn)值 程序運(yùn)行后可用該屬性返回用戶所選擇的文件名 3 初始化路徑 InitDir屬性 用于設(shè)置初始的文件目錄 字符串中的字符表示某文件夾的名稱 4 過濾器 Filter屬性 用于設(shè)置顯示文件的類型 字符串中有若干個(gè) 號(hào) 奇數(shù)個(gè)數(shù)的 號(hào)左邊的字符顯示在類型列表框中 右邊的字符決定所顯示的文件類型 使用這個(gè)屬性可以同時(shí)設(shè)置多個(gè)需顯示的文件類型 每個(gè)文件類型間用分號(hào)分隔 例10 CommonDialog1 Filter 圖片 bmp jpg bmp jpg 所有文件 CommonDialog1 Action 1此時(shí) 文件類型列表框第一行顯示 圖片 bmp jpg 第二行顯示 所有文件 如圖 PrivateSubCommand1 Click CommonDialog1 DialogTitle 打開文件 CommonDialog1 InitDir C Windows 設(shè)置初始目錄CommonDialog1 Filter 文本文件 TXT Txt 過濾文件類型CommonDialog1 ShowOpen 打開對(duì)話框EndSub 例11 用命令按鈕的Click事件顯示文件打開對(duì)話框 例12 用 字體 對(duì)話框設(shè)置文本框的字體 要求字體對(duì)話框內(nèi)出現(xiàn)刪除線 下劃線 并可設(shè)置顏色 說明 在窗體上放置一個(gè)文本框 一個(gè)命令按扭和一個(gè)通用對(duì)話框控件 PrivateSubCommand1 Click OnErrorResumeNextCommonDialog1 Flags 257CommonDialog1 ShowFontIfCommonDialog1 FontName ThenText1 FontName CommonDialog1 FontNameEndIfText1 FontSize CommonDialog1 FontSizeText1 FontBold CommonDialog1 FontBoldText1 FontItalic CommonDialog1 FontItalicText1 FontStrikethru CommonDialog1 FontStrikethruText1 FontUnderline CommonDialog1 FontUnderlineText1 ForeColor CommonDialog1 ColorEndSub 十九 菜單的設(shè)計(jì) 1 下拉式菜單系統(tǒng)的組成結(jié)構(gòu) 菜單名快捷鍵熱鍵下級(jí)子菜單標(biāo)記 菜單欄 分隔線 子菜單名 2 菜單編輯器的使用VB中的菜單是通過菜單編輯器 即菜單設(shè)計(jì)窗口來建立的 將要建立下拉菜單的窗體設(shè)為活動(dòng)窗體后 可以通過以下4種方法進(jìn)入菜單編輯器 1 執(zhí)行 工具 菜單中的 菜單編輯器 命令 2 使用熱鍵 Ctrl E 3 單擊工具欄中的 菜單編輯器 按鈕 4 在要建立菜單的窗體上單擊鼠標(biāo)右鍵 將彈出一個(gè)菜單 在該菜單中單擊 菜單編輯器 命令 通過以上任一方法 均可調(diào)出菜單編輯器 如圖所示 3 常用屬性 1 Caption屬性 標(biāo)題屬性 用于輸入要在菜單項(xiàng)中顯示的文字 如果要在菜單中建立分隔條 則應(yīng)在標(biāo)題框中鍵入一個(gè)連字符 如果想給菜單項(xiàng)定義一個(gè)訪問鍵 則可在字母前插入 符號(hào) 2 Name屬性 名稱屬性 相當(dāng)于設(shè)置菜單控件的Name屬性 以便在菜單中用此名稱來訪問菜單控件 每個(gè)菜單項(xiàng)都必須有名稱 常用事件 Click事件 二十 文件的讀寫 1 文件及其種類VB提供了三種訪問文件的模式 順序訪問模式 隨機(jī)訪問模式和二進(jìn)制訪問模式 按照訪問模式可以把文件分為三類 順序文件 隨機(jī)文件和二進(jìn)制文件 2 打開文件Open文件名For模式As 文件號(hào) Len 記