【正文】 本章主要內(nèi)容 其他一些常用語(yǔ)句 框架 (Frame) 滾動(dòng)條 (ScrollBar) 鍵盤(pán)與鼠標(biāo)事件 通用對(duì)話框 (CommonDialog) 文件系統(tǒng)控件 第 10章 其他常用的語(yǔ)句及控件 強(qiáng)制顯式聲明變量語(yǔ)句 (Option Explicit) 避免因?yàn)閷?xiě)錯(cuò)變量名而導(dǎo)致錯(cuò)誤 例如， 交換變量 a、 b的值 Temp=a a=b b=Tmp 39。把 Temp寫(xiě)錯(cuò)成 Tmp 運(yùn)行結(jié)果是使 b的值為 0 Option Explicit 39。模塊級(jí)聲明 Dim a As Integer,b As Integer,Temp As Integer . . . Temp=a a=b b=Tmp 運(yùn)行時(shí) VB就會(huì)發(fā)出警告 “ Variable not defined”(變量未定義 )，只有把 Tmp改為 Temp后才恢復(fù)正常 其他常用語(yǔ)句 格式： Def類(lèi)型標(biāo)志 字母范圍 功能：在模塊級(jí)聲明段中定義變量 (相應(yīng)數(shù)據(jù)類(lèi)型 ) 示例： DefInt mP 自定義數(shù)據(jù)類(lèi)型 用戶(hù)可以利用 Type [Private|Public] Type 元素名 1 As 類(lèi)型名 1 [元素名 2 As 類(lèi)型名 2] …… End Type 定義變量類(lèi)型 Type Rsk_Rec 編號(hào) As String*3 ?用漢字表示字段名 姓名 As String*8 性別 As Boolean 出生日期 As Date 基本工資 As Long End Type 這里的 Rsk_Rec是一個(gè)用戶(hù)定義的數(shù)據(jù)記錄類(lèi)型，它由 5個(gè)元素 (字段 )組成 所謂“枚舉”是指將變量的值一一列舉出來(lái)，變量的值只限于列舉出來(lái)的值 [Public|Private] Enum 枚舉類(lèi)型名 成員名 1 [=常數(shù)表達(dá)式 ] 成員名 2 [=常數(shù)表達(dá)式 ] …… End Enum 定義枚舉類(lèi)型 例 應(yīng)用枚舉類(lèi)型示例 輸入一個(gè)數(shù)字表示星期幾，判斷輸出是“休息日”還是“工作日” Private Enum weekdays 39。定義 Weekdays為枚舉類(lèi)型 Sun Mon Tue Wed Thu Fri Sat End Enum Private Sub Command1_Click() Dim myday As weekdays 39。定義 Myday為 Weekdays枚舉類(lèi)型 myday = Val(InputBox(今天是星期幾 (0～ 6))) 39。輸入 0～ 6 If myday Sun Or myday Sat Then MsgBox 輸入的星期數(shù)錯(cuò)誤 Else If myday = Sun Or myday = Sat Then MsgBox 休息日 Else MsgBox 工作日 End If End If End Sub 包括 GoTo語(yǔ)句和 On...GoTo語(yǔ)句 1. GoTo語(yǔ)句 語(yǔ)法格式： GoTo {行號(hào) |標(biāo)號(hào) } 功能：改變程序的執(zhí)行順序，跳轉(zhuǎn)到程序中指定的行開(kāi)始執(zhí)行 例 應(yīng)用 GoTo語(yǔ)句示例 Private Sub Form_Load() Show Print 整型數(shù) GoTo Line1 39。跳轉(zhuǎn)到標(biāo)號(hào) Line1指定的行 Print 單精度數(shù) Line1: Print 字符串 End Sub GoTo型控制 2. On...GoTo語(yǔ)句 On...GoTo語(yǔ)句用來(lái)實(shí)現(xiàn)分支選擇控制 (類(lèi)似于 Select...End Select) 語(yǔ)法格式： On 數(shù)值表達(dá)式 GoTo {行號(hào)表 |標(biāo)號(hào)表 } 功能：根據(jù)“數(shù)值表達(dá)式”的值，控制轉(zhuǎn)移到幾個(gè)指定的語(yǔ)句行中的一個(gè)語(yǔ)句行。 例如 On K GoTo Line1, Line2, Line3 執(zhí)行過(guò)程： 將 K四舍五入取整，如果其值為 1，則轉(zhuǎn)移到 Line1標(biāo)號(hào)行；如果為 2，則轉(zhuǎn)移到 Line2標(biāo)號(hào)行；如果為 3，則轉(zhuǎn)移到Line3標(biāo)號(hào)行。如果 K的值等于 0或大于 3，則自動(dòng)執(zhí)行本語(yǔ)句的下一個(gè)語(yǔ)句 1. 直接輸出 把信息直接送往打印機(jī) 格式： [表達(dá)式表 ] (1)Page屬性：設(shè)置當(dāng)前頁(yè)號(hào) 格式： (2)NewPage方法：實(shí)現(xiàn)換頁(yè)操作 格式： (3)EndDoc方法：結(jié)束文件打印 格式： 打印機(jī)輸出 例 在打印機(jī)上打印文字“計(jì)算機(jī)程序設(shè)計(jì)” Private Sub Command1_Click() = 隸書(shū) = 12 “計(jì)算機(jī)程序設(shè)計(jì)” 39。將文本放到 Printer對(duì)象中 ?打印結(jié)束 End Sub 2. 窗體輸出 先把要輸出的信息送到窗體上，再用 PrintForm方法把窗體上的內(nèi)容打印出來(lái) 格式： [窗體名 .]PrintForm 功能：把窗體上的信息輸出到打印機(jī) VB只有在發(fā)生事件時(shí)才執(zhí)行相應(yīng)的事件過(guò)程，如果沒(méi)有事件發(fā)生，則應(yīng)用程序處于“閑置”狀態(tài) 所謂閑置循環(huán)，就是當(dāng)程序處于閑置狀態(tài)時(shí)，用一個(gè)循環(huán)來(lái)執(zhí)行某些操作 為使在閑置循環(huán)中也能響應(yīng)其他操作和事件， VB提供了一個(gè) DoEvents [窗體號(hào) =]DoEvents[()] 功能：在閑置循環(huán)中，通過(guò) DoEvents語(yǔ)句可以把控制權(quán)交給系統(tǒng)去處理所發(fā)生的事件 閑置循環(huán)與 DoEvents語(yǔ)句 (1) 建立一個(gè)文本框和二個(gè)命令按鈕，兩個(gè)事件過(guò)程： Private Sub Command1_Click() = + 1 End Sub Private Sub Command2_Click() End End Sub (2) 編寫(xiě) Sub Main過(guò)程 Private Sub MAIN() Do While True 39。進(jìn)入“閑置循環(huán)” x = DoEvents 39。把控制權(quán)交給系統(tǒng)去處理所發(fā)生的事件 39。否則不能處理其他事件 = Time Loop End Sub 例 閑置循環(huán)和 DoEvents應(yīng)用示例 (3)把 Sub Main設(shè)置為啟動(dòng)對(duì)象 程序運(yùn)行后，進(jìn)入閑置循環(huán)，此時(shí)將在文本框 Text1中不斷地顯示系統(tǒng)時(shí)間。 由于加入 DoEvents函數(shù)，則可以在執(zhí)行閑置循環(huán)過(guò)程中執(zhí)行其他操作，如重設(shè)窗體的大小及最大化 /最小化，還能響應(yīng)命令按鈕 Command1和 Command2的單擊事件等。 當(dāng)其他操作完成后，又會(huì)回到閑置循環(huán)中繼續(xù)執(zhí)行 1. 作為容器放置其他控件對(duì)象，將這些控件對(duì)象分成可標(biāo)識(shí)的控件組；框架內(nèi)的所有控件將隨框架一起移動(dòng)、顯示 2. 常用屬性 Name屬性和 Caption屬性 3. 可以響應(yīng) Click和 Dblclick 在應(yīng)用程序中一般不需要編寫(xiě)有關(guān)框架的事件過(guò)程 框架 (Frame) 例 控制文本的字體、字號(hào)及顏色 (1)創(chuàng)建應(yīng)用程序的用戶(hù)界面和設(shè)置對(duì)象屬性 在窗體上設(shè)置 3個(gè)框架 Frame Frame2和 Frame3 來(lái)自 中國(guó)最大的資料庫(kù)下載 (2)編寫(xiě)程序代碼 功能要求： 在三個(gè)框架中分別選擇字體、字號(hào)和顏色，單擊“確定”按鈕后，文本框中的文本相應(yīng)屬性會(huì)發(fā)生變化 Private Sub Form_Load() = True = True = True = 宋體 = 16 = RG