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