【正文】 欄按鈕中添加圖形 Index 控件名相同時，用來產生一個數組標識號 2022/2/16 清華大學出版社 30 ToolTipText 設置當鼠標指針在工具欄某一按鈕暫停時所顯示的提示文本 ShowTips 設置是否顯示工具欄按鈕上的提示文本 AllowCustomSize 設置本控件是否能被用戶自定義。比如，可以增加或刪除某一按鈕 Wrappable 設置如果窗口尺寸發(fā)生變化，是否自動包括本控件按鈕 Key 設置某一按鈕與其他按鈕的區(qū)別標識符 Style 用來設置工具欄中按鈕的工作形式。有 5個屬性值供選擇，默認值為 0，其中 1表示以檢查框的方式工作， 2表示以按鈕組的方式出現，每次只能選擇按鈕組中的一個按鈕 Image 用來設置按鈕中顯示的圖形，以 0， 1， 2等來標識，ImageList控件中的圖形按順序賦給不同的按鈕 屬 性 功 能 2022/2/16 清華大學出版社 31 設置工具欄控件屬性 向窗體添加工具欄控件，按下列步驟操作： ? 設置屬性值為 1，即工具欄放在窗體的頂部。 ? 右擊工具欄控件，從彈出的菜單中選擇 【 屬性 】 菜單項，再單擊【 圖像列表 】 列表框右邊的下拉箭頭，從下拉的列表中選擇 ImageList1。這樣 ImageList1控件就和工具欄控件發(fā)生了聯(lián)系。 ? 選中 【 按鈕 】 選項卡，單擊 【 插入按鈕 】 后， 【 索引 】 文本框中出現數字 1，其他輸入框也變?yōu)榭捎?。接著?【 關鍵字 】 輸入框輸入“ Key1”， 【 工具提示文本 】 輸入框設為“瀏覽時間日期”， 【 圖像 】輸入框設為 1，即 ImageList1控件的第一個圖形作為按鈕 1的圖形。重復上述步驟，添加四個按鈕到工具欄上，并設置相應屬性。 ? 設置完屬性的用戶界面。 2022/2/16 清華大學出版社 32 工具欄中各按鈕和代碼相連 添加按鈕之后，還要編寫相應的代碼按鈕才能起作用。雙擊工具欄控件，激活代碼窗口，在 ToolBar1_ButtonClick事件過程中添加如下代碼： Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case 1 …… Case 2 …… End Select End Sub 2022/2/16 清華大學出版社 33 狀態(tài)欄控件 狀態(tài)欄一般位于窗體的底部，用于顯示系統(tǒng)的一些狀態(tài)，如大小寫情況、日期時間等，在狀態(tài)欄中可以包含文字和圖像。 狀態(tài)欄控件屬性和事件 屬性 功能 Align 讀出或設置對象在窗體中的顯示位置。它有 5個值可供選擇，用來設置工具欄放置在窗體的上部、下部、左邊或右邊等 Buttons 訪問本控件中使用的 Button對象的集合 ImageList 讀出和設置與本控件相關聯(lián)的 ImageList控件。該屬性被設置后，可以向工具欄按鈕中添加圖形 Index 控件名相同時，用來產生一個數組標識號 ToolTipText 設置當鼠標指針在工具欄某一按鈕暫停時所顯示的提示文本 ShowTips 設置是否顯示工具欄按鈕上的提示文本 AllowCustomSize 設置本控件是否能被用戶自定義。比如，可以增加或刪除某一按鈕 2022/2/16 清華大學出版社 34 狀態(tài)欄常用事件 狀態(tài)欄常用事件主要有 Click、 DblClick、 PanelClick、PanelDblClick。當單擊狀態(tài)欄上某一窗格時，執(zhí)行 PanelClick事件；當雙擊狀態(tài)欄上某一窗格時，執(zhí)行 PanelDblClick事件。 Wrappable 設置如果窗口尺寸發(fā)生變化，是否自動包括本控件按鈕 Key 設置某一按鈕與其他按鈕的區(qū)別標識符 Style 用來設置工具欄中按鈕的工作形式。有 5個屬性值供選擇，默認值為 0，其中 1表示以檢查框的方式工作， 2表示以按鈕組的方式出現，每次只能選擇按鈕組中的一個按鈕 Image 用來設置按鈕中顯示的圖形，以 0， 1， 2等來標識， ImageList控件中的圖形按順序賦給不同的按鈕 2022/2/16 清華大學出版社 35 圖片框（ PictureBox）控件 【 例 】 建立一個圖片瀏覽框 。 （ 1） 啟動 VB， 新建一個工程 。 （ 2）在窗體上添加三個命令按鈕控件，一個水平滾動條控件，一個垂直滾動條控件和二個圖片框控件。 2022/2/16 清華大學出版社 36 程序代碼： Private Sub Form_Load() = False = = End Sub Private Sub Command1_Click() = LoadPicture( + \ + ) = / 10 = / 100 = / 10 = / 100 End Sub :當前目錄 2022/2/16 清華大學出版社 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 清華大學出版社 38 圖像框 (Image)控件 【 例 】 建立一個嵌入式按鈕 。 （ 1） 啟動 VB， 新建一個工程 。 （ 2） 在窗體上從左至右依次添加 Image Image2和 Image3三個圖像框控件 ， 一個標簽控件 。 如圖所示 。 圖 931 窗體界面 圖 932 嵌入按鈕正常狀態(tài) 圖 933 嵌入按鈕按下狀態(tài) 2022/2/16 清華大學出版社 39 程序代碼 Private Sub Form_Load() = LoadPicture( + \ + ) = up ?設置對象 Image1的標識符為 up = LoadPicture(+\ +) = False = LoadPicture( + \ + ) = False End Sub 2022/2/16 清華大學出版社 40 Private Sub Image1_Click() If = up Then = = True = down Else = = False = up End If End Sub 2022/2/16 清華大學出版社 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 清華大學出版社 42 2022/2/16 清華大學出版社 43 線條 (Line)控件 BorderStyle屬性：用來指定直線的類型。 0 – Transparent 透明的，即不顯示出線來 1 Solid 實線 2 Dash 虛線 3 Dot 點線 4 DashDot 點劃線 5 DashDotDot 雙點劃線 6 Inside Solid 內實線 注意： 只有當 BorderWidth為 1時才可以用以上 7種類型的線 ， 如果BorderWidth不為 1， 則上述 7種類型中只有 0和 6有效 。 BorderWidth屬性 ：設置線寬 BorderColor屬性 ：設置顏色 2022/2/16 清華大學出版社 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 清華大學出版社 45 MDI窗體 一 、 MDI多文檔界面主要特性： 所有子窗體均顯示在 MDI窗體的工作區(qū)中 。 用戶可改變 、 移動窗體的大小 ， 但被限制在 MDI窗體中 。 當最小化子窗體時 。 它的圖標將顯示于 MDI窗體上而不是在任務欄中 。 當最小化 MDI窗體時 。 所有的子窗體也被最小化 。只有 MDI窗體的圖標出現在任務欄中 。 當最大化一個子窗體時 。 它的標題與 MDI窗體的標題一起顯示在 MDI窗體的標題欄上 。 MDI窗體和子窗體都可以有各自的菜單欄 ， 子窗體加載時覆蓋 MDI窗體的菜單 。 2022/2/16 清華大學出版社 46 【 例 】 設計如下圖所示的 MDI界面。 步驟： 在 【 工程 】 菜單下，選擇 【 添加 MDI窗體 】 命令，添加了一個 MDI窗體， 并創(chuàng)建如圖所示的菜單。 注意： 一個工程文件中只能含有一個 MDI 父窗體。 將某個正常窗體的 MDIChild屬性被設置為 “ 真 ” （ True） ， 則該窗體將做為它所在工程文件中 MDI窗體的子窗體 。 2022/2/16 清華大學出版社 47 二、 MDI窗體中的常用屬性及事件 (1) MDIChild屬性 當普通窗體的 MDIChild＝ True時 ， 則該窗體成為 MDI窗體的子窗體 。 (2) Arrange方法 當打開多個子窗體時 ， 用 MDIForm的 Arrange方法能夠使子窗體 （ 或其圖標 ） 按一定的規(guī)律排列 。 語法格式如下： MDIForm名 . Arrange 參數 ―參數 ”是一個整數 ， 表示所使用的排列方式： 0：層疊 1：水平平鋪 2：垂直平鋪 3：重排最小化的子窗體圖標 2022/2/16 清華大學出版社 48 (3)QueryUnload事件 QueryUnload事件是在關閉窗體或結束應用程序運行的時候發(fā)生 。 當關閉 MDI窗體時 ， 首先在 MDI窗體上發(fā)生 QueryUnload事件 ，然后在所有的子窗體上發(fā)生這個事件 。 如果所有窗體上都沒有取消 QueryUnload事件的操作 ， 則先卸載 （ Unload） 所有子窗體 ， 再卸載 MDI窗體 。 由于 QueryUnload事件在窗體關閉之前被調用 ， 因此在窗體卸載前可以在 QueryUnload事件過程中編寫代碼 ， 進行某些保存文件等操作 。 2022/2/16 清華大學出版社 49 第 10章 程序調試和錯誤處理 VB程序的錯誤類型 VB程序的工作模式 程序調試 錯誤捕獲及處理 2022/2/16 清華大學出版社 50 【 目的要求 】 ； VB提供的常用調試工具的使用 3. ； 【 重點 】 錯誤的捕獲與處理方法 ； 2022/2/16 清華大學出版社 51 VB程序的錯誤類型 VB應用程序的錯誤一般可分為 3類，即編譯錯誤（語法錯誤）、運行錯誤和邏輯錯誤。 ： 指程序在編譯時出現的錯誤（語法錯誤）。 ： 運行錯誤是指程序本身沒有編譯（語法）錯誤，這種錯誤在編譯時很難發(fā)現，只是在運行時才能暴露出來。例如下面求某個數階乘的函數： Private Sub Command1_Click() Print fact(14) End Sub 程序本身沒有任何語法錯誤，但在程序運行過程中，語句 Print fact(14)（計算 14的階乘）的返回的值超出整型數值的范圍，產生數據溢出導致程序出錯。 Private Function