【正文】 問 ， 或者所有的圖像可作為一個 ListImages集合來接受訪問 。其屬性如表所示。該控件只在設(shè)計狀態(tài)下可見，運行時不可見。 工具欄控件屬性和事件 屬 性 功 能 Align 讀出或設(shè)置對象在窗體中的顯示位置。該屬性被設(shè)置后，可以向工具欄按鈕中添加圖形 Index 控件名相同時，用來產(chǎn)生一個數(shù)組標識號 2022/2/16 清華大學(xué)出版社 30 ToolTipText 設(shè)置當鼠標指針在工具欄某一按鈕暫停時所顯示的提示文本 ShowTips 設(shè)置是否顯示工具欄按鈕上的提示文本 AllowCustomSize 設(shè)置本控件是否能被用戶自定義。有 5個屬性值供選擇，默認值為 0，其中 1表示以檢查框的方式工作， 2表示以按鈕組的方式出現(xiàn)，每次只能選擇按鈕組中的一個按鈕 Image 用來設(shè)置按鈕中顯示的圖形，以 0， 1， 2等來標識，ImageList控件中的圖形按順序賦給不同的按鈕 屬 性 功 能 2022/2/16 清華大學(xué)出版社 31 設(shè)置工具欄控件屬性 向窗體添加工具欄控件，按下列步驟操作： ? 設(shè)置屬性值為 1，即工具欄放在窗體的頂部。這樣 ImageList1控件就和工具欄控件發(fā)生了聯(lián)系。接著在 【 關(guān)鍵字 】 輸入框輸入“ Key1”， 【 工具提示文本 】 輸入框設(shè)為“瀏覽時間日期”， 【 圖像 】輸入框設(shè)為 1，即 ImageList1控件的第一個圖形作為按鈕 1的圖形。 ? 設(shè)置完屬性的用戶界面。雙擊工具欄控件，激活代碼窗口，在 ToolBar1_ButtonClick事件過程中添加如下代碼： Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case 1 …… Case 2 …… End Select End Sub 2022/2/16 清華大學(xué)出版社 33 狀態(tài)欄控件 狀態(tài)欄一般位于窗體的底部，用于顯示系統(tǒng)的一些狀態(tài)，如大小寫情況、日期時間等，在狀態(tài)欄中可以包含文字和圖像。它有 5個值可供選擇，用來設(shè)置工具欄放置在窗體的上部、下部、左邊或右邊等 Buttons 訪問本控件中使用的 Button對象的集合 ImageList 讀出和設(shè)置與本控件相關(guān)聯(lián)的 ImageList控件。比如，可以增加或刪除某一按鈕 2022/2/16 清華大學(xué)出版社 34 狀態(tài)欄常用事件 狀態(tài)欄常用事件主要有 Click、 DblClick、 PanelClick、PanelDblClick。 Wrappable 設(shè)置如果窗口尺寸發(fā)生變化，是否自動包括本控件按鈕 Key 設(shè)置某一按鈕與其他按鈕的區(qū)別標識符 Style 用來設(shè)置工具欄中按鈕的工作形式。 （ 1） 啟動 VB， 新建一個工程 。 2022/2/16 清華大學(xué)出版社 36 程序代碼： Private Sub Form_Load() = False = = End Sub Private Sub Command1_Click() = LoadPicture( + \ + ) = / 10 = / 100 = / 10 = / 100 End Sub :當前目錄 2022/2/16 清華大學(xué)出版社 37 Private Sub Command2_Click() = LoadPicture() = = End Sub Private Sub Command3_Click() End End Sub Private Sub HScroll1_Change() = End Sub Private Sub VScroll1_Change() = End Sub 2022/2/16 清華大學(xué)出版社 38 圖像框 (Image)控件 【 例 】 建立一個嵌入式按鈕 。 （ 2） 在窗體上從左至右依次添加 Image Image2和 Image3三個圖像框控件 ， 一個標簽控件 。 圖 931 窗體界面 圖 932 嵌入按鈕正常狀態(tài) 圖 933 嵌入按鈕按下狀態(tài) 2022/2/16 清華大學(xué)出版社 39 程序代碼 Private Sub Form_Load() = LoadPicture( + \ + ) = up ?設(shè)置對象 Image1的標識符為 up = LoadPicture(+\ +) = False = LoadPicture( + \ + ) = False End Sub 2022/2/16 清華大學(xué)出版社 40 Private Sub Image1_Click() If = up Then = = True = down Else = = False = up End If End Sub 2022/2/16 清華大學(xué)出版社 41 形狀 (Shape)控件 Shape屬性 ,其含義如下： 0 – Rectangle 矩形 1 – Square 正方形 2 – Oval 橢圓形 FillStyle屬性 ,含義如下： 0 Solid 實心 1 Transprent 透明 2 Horizontal Line 水平線 3 Vertical Line 垂直線 3 – Circle 圓形 4 Rounded Rectangle 圓角矩形 5 Rounded Square 圓角正方形 4 Upward Diagonal 向上對角線 5 DownWard Diag 向下對角線 6 Cross 交叉線 7 Diagonal Cross 對角交叉線 2022/2/16 清華大學(xué)出版社 42 2022/2/16 清華大學(xué)出版社 43 線條 (Line)控件 BorderStyle屬性：用來指定直線的類型。 BorderWidth屬性 ：設(shè)置線寬 BorderColor屬性 ：設(shè)置顏色 2022/2/16 清華大學(xué)出版社 44 【 例 】 在窗體上使用直線控件畫出不同顏色、不同類型的 7條線，編寫一個事件過程改變它們的顏色及類型 Private Sub cmdLine_Click ( ) For i = 0 To 6 Line1(i).BorderColor = QBColor(i) Line1(i).BorderStyle = i Next i End Sub 2022/2/16 清華大學(xué)出版社 45 MDI窗體 一 、 MDI多文檔界面主要特性： 所有子窗體均顯示在 MDI窗體的工作區(qū)中 。 當最小化子窗體時 。 當最小化 MDI窗體時 。只有 MDI窗體的圖標出現(xiàn)在任務(wù)欄中 。 它的標題與 MDI窗體的標題一起顯示在 MDI窗體的標題欄上 。 2022/2/16 清華大學(xué)出版社 46 【 例 】 設(shè)計如下圖所示的 MDI界面。 注意： 一個工程文件中只能含有一個 MDI 父窗體。 2022/2/16 清華大學(xué)出版社 47 二、 MDI窗體中的常用屬性及事件 (1) MDIChild屬性 當普通窗體的 MDIChild＝ True時 ， 則該窗體成為 MDI窗體的子窗體 。 語法格式如下： MDIForm名 . Arrange 參數(shù) ―參數(shù) ”是一個整數(shù) ， 表示所使用的排列方式： 0：層疊 1：水平平鋪 2：垂直平鋪 3：重排最小化的子窗體圖標 2022/2/16 清華大學(xué)出版社 48 (3)QueryUnload事件 QueryUnload事件是在關(guān)閉窗體或結(jié)束應(yīng)用程序運行的時候發(fā)生 。 如果所有窗體上都沒有取消 QueryUnload事件的操作 ， 則先卸載 （ Unload） 所有子窗體 ， 再卸載 MDI窗體 。 2022/2/16 清華大學(xué)出版社 49 第 10章 程序調(diào)試和錯誤處理 VB程序的錯誤類型 VB程序的工作模式 程序調(diào)試 錯誤捕獲及處理 2022/2/16 清華大學(xué)出版社 50 【 目的要求 】 ； VB提供的常用調(diào)試工具的使用 3. ； 【 重點 】 錯誤的捕獲與處理方法 ； 2022/2/16 清華大學(xué)出版社 51 VB程序的錯誤類型 VB應(yīng)用程序的錯誤一般可分為 3類，即編譯錯誤（語法錯誤）、運行錯誤和邏輯錯誤。 ： 運行錯誤是指程序本身沒有編譯（語法）錯誤，這種錯誤在編譯時很難發(fā)現(xiàn)，只是在運行時才能暴露出來。 Private Function fact(ByVal n As Integer) As Integer Dim s As Integer , i As Integer s = 1 For i = 1 To n s = s * i Next i fact = s End Function 2022/2/16 清華大學(xué)出版社 52 邏輯錯誤是指從語法上看程序代碼是有效的，并且也可以運行，但得不到應(yīng)有（正確）的結(jié)果。 【 例 】 編程計算 +++……+ 的值。 2022/2/16 清華大學(xué)出版社 53 VB程序的工作模式 VB程序有三種工作模式：設(shè)計模式（ Design Time）、運行模式（ Run Time）和中斷模式（ Break Model）。 VB所有調(diào)試手段均可以在中斷模式下應(yīng)用。這類錯誤是所有錯誤中最難診斷、最難解決的錯誤，只有通過調(diào)試工具的幫助，對程序進行邏輯分析、代碼調(diào)試及分析、比較運行結(jié)果等綜合手段才能最終加以解決。圖 106所顯示的 【 調(diào)試 】工具欄為用戶提供了許多功能強大的調(diào)試工具。 2022/2/16 清華大學(xué)出版社 55 就是在程序代碼中設(shè)置一些斷點，當程序執(zhí)行到該點時就會自動暫停下來，以方便用戶對程序進行調(diào)試。 （ 2）運行程序，當執(zhí)行到了設(shè)置斷點的代碼行時，程序終止進入中斷狀態(tài)，將鼠標移動到某個變量上面，可以看到設(shè)置斷點代碼行中變量的值。單擊該按鈕可以單步執(zhí)行程序。 ? 逐過程執(zhí)行 “逐過程執(zhí)行” 是把被調(diào)用的過程視為一個基本單位來執(zhí)行，然后轉(zhuǎn)回到當前過程的下一語句。也可以用組合鍵 Shift+F8或“調(diào)試”菜單上的“逐過程”選項。 2022/2/16 清華大學(xué)出版社 57 在上面的方法中我們只通過設(shè)置斷點和跟蹤程序運行這兩步，就已經(jīng)檢查出程序的錯誤了。調(diào)試窗口主要包括 立即窗口、本地窗口、監(jiān)視窗口 等。 例：使用調(diào)試窗口來完成調(diào)試 【 例題 】 的運行結(jié)果錯在何處？ 2022/2/16 清華大學(xué)出版社 58 ?本地窗口 只顯示當前過程中變量的值 （即使是全局變量，也不會顯示）。 ?監(jiān)視窗口 使用 【 監(jiān)視 】 窗口有兩種用法： 一是可用來顯示某些表達式或變量的值，以確定這寫表達式或變量的結(jié)果是否正確； 二是可以設(shè)置當某個表達式返回 True時，強迫程序中斷。 ? 用法二： 這種用法是在當表達式的值滿足某個條件時，可以使應(yīng)用程序自動進入到中斷模式的一種調(diào)試手段。 例： 在 【 例 】 中，為了檢測當變量 s的值大于 3時，循環(huán)變量 i的值；可以通過對 【 監(jiān)視窗口 】 的相關(guān)設(shè)置來完成。 立即窗口的使用有下面三種： （ 1）在設(shè)計模式下，直接在立即窗口中對變量賦值，或使用 Print方法輸出變量的值。 例如，將 【 例 】 的程序代碼中的輸出語句改為“ s”，運行結(jié)果會在立即窗口中輸出。 注意： 在立即窗口中，不接受數(shù)據(jù)聲明，如： Dim x as Integer。 【 例 】 設(shè)計一窗體，如左圖所示。其中累加的計算使用過程 sum來完成。程序錯在何處？下面使用調(diào)試工具調(diào)試該程序，找出錯誤所在。三個參數(shù)的傳遞方式都是按數(shù)值傳遞。然后運行程序，在 Text1和 Text2中分別輸入 1和 5。因為當前程序的控制權(quán)在主程序，所以過程 sum中的參數(shù) a、 b、 c還沒有意義，在監(jiān)視窗口中顯示為“ 溢出上下文 ”。 （ 4）當以逐語句方式運行程序到 sum過程的“ End Sub”語句處時，我們發(fā)現(xiàn)變量 c的值變?yōu)?15，而與之對應(yīng)的實參數(shù) z變量的值并沒有變化。說明這些變量此時沒有意義（這也說明：過程內(nèi)部的變量的作用域只限于當前過程）