【正文】 添加到窗體后，可以發(fā)現它實際上實現了時鐘顯示的功能。 (4) 打開 Form1的代碼窗口，添加如下代碼： Option Explicit Private Sub Form_Load() = vbBlue End Sub Visual Basic編程及實例分析教程 83 (5) 運行程序，結果如下圖所示。通過測試，可知設計的控件已滿足了預期的目的。 (6) 測試完成后，用戶可以首先在工程資源管理器窗口中選中“ myclock”工程，然后選擇“文件”菜單下的“生成 ”命令，打開“生成工程”對話框，在選擇了文件路徑和文件名后，單擊“確定”按鈕，即可生成 .ocx文件。 Visual Basic編程及實例分析教程 84 小結 本章主要介紹了 VB如何創(chuàng)建和使用自定義類 。 首先介紹了使用類模塊創(chuàng)建自定義類的過程以及如何向類中添加屬性 、 方法和事件；然后介紹了如何創(chuàng)建自定義 ActiveX控件 。 Visual Basic編程及實例分析教程 85 習題 編程題 1．編寫一個程序，驗證類的 Initialize和 Terminate事件的操作。 2．創(chuàng)建一個類，用于計算兩個字符串中子串在主串中的出現次數，并用信息框顯示結果。 3．編寫一個 ActiveX控件，將文本框與滾動條進行捆綁，文本框顯示滾動條的當前值，當滾動條滾動時，文本框內容隨之改變；當文本框內容改變時，滾動條也一樣改變。該控件提供的對外接口變量（即屬性）包括：滾動條最小值、最大值、當前值等等。 Visual Basic編程及實例分析教程 86 第十章 Windows API編程 本章內容 掌握 Windows API編程 Visual Basic編程及實例分析教程 87 Windows API編程基礎 應用實例 小結 習題 本 章 目 錄 Visual Basic編程及實例分析教程 88 Windows API編程基礎 API簡介 API的英文全稱為 Application Programming Interface，即應用程序編程接口，是一些用 C語言編寫由操作系統(tǒng)自身調用的函數，用來控制 Windows的各個部件的外觀和行為。 API函數是由函數、結構和常量（即 Sub或 Function、 Type、Constant）組成的?？梢苑譃?4個功能類別 : (1) 窗口管理（ User）：提供建立和管理應用程序的重要函數。 (2) 圖形設備接口（ GDI）：提供用于管理系統(tǒng)支持的所有圖形設備的函數。 (3) 系統(tǒng)服務（ Kernel）：提供訪問計算機和操作系統(tǒng)資源的函數。 (4) 多媒體：提供播放聲音、動畫等的函數。 Visual Basic編程及實例分析教程 89 API瀏覽器 由于 API函數不是 VB的內部函數，所以在使用它們之前必須顯示地加以聲明。 下面具體介紹 API瀏覽器的使用 “ API瀏覽器 ”菜單命令 為方便程序員打開 API瀏覽器，可以將“ API瀏覽器”菜單命令添加到“外接程序”菜單中。步驟如下 : (1) 啟動 VB，打開一個新的標準 EXE工程。 (2) 單擊“外接程序”菜單下的“外接程序管理器”菜單命令，打開“外接程序管理器”對話框。 (3) 在“可用外接程序”列表欄中選取“ VB 6 API Viewer”項，并在“加載行為”框架中選取“在啟動中加載”和“加載 /卸載”兩個復選框。 (4) 單擊“確定”按鈕，則將“ API瀏覽器”菜單命令添加到了“外接程序”菜單中。 Visual Basic編程及實例分析教程 90 WIN32API文件 VB提供了一個名為 ，其中包含了在 VB在調用 API函數時所需要的所有聲明、常量以及類型，該文件可以加載到“ API瀏覽器”中。步驟如下 : (1) 單擊“外接程序”菜單下的“ API瀏覽器”命令，打開 API瀏覽器。 (2) 單擊 API瀏覽器的“文件”菜單下的“加載文本文件”命令，彈出“選擇一個文本 API文件”對話框，從中選擇“ ”文本文件，單擊“打開”命令按鈕，關閉對話框。這時，便完成了加載 。 3.“API瀏覽器”功能介紹 API瀏覽器的界面由“菜單欄”、“ API類型”組合框、“可用項”列表框、“選定項”列表框、“聲明范圍”框架、和一個“鍵入您要查找的內容的開頭幾個字母”文本框，以及“添加”、“刪除”、“清除”、“插入”和“復制”幾個命令按鈕組成。 Visual Basic編程及實例分析教程 91 API函數聲明 VB內部函數和 Win32 API函數間唯一的差別是， API函數需要先聲明后使用。聲明后，即可象使用 VB內部函數一樣使用 API函數了。 這里以 SendMessage API函數為例，介紹有關 API函數的聲明。 Public[Private] Declare Function SendMessage Lib user32 Alias SendMessageA (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 下面解釋一下這個函數聲明的各個部分 : (1) Public：表示所有模塊的所有過程都可以調用這個 API函數。聲明時，要在 Public和 Private中選擇一個 (2) Declare Function：聲明對動態(tài)鏈接庫（ DLL）中函數的引用 (3) SendMessage：函數的名稱，通常名稱可以反映函數的功能，本函數用于向窗口發(fā)送消息，窗口接收到消息后，可以根據程序設計處理它們。 Visual Basic編程及實例分析教程 92 (4) Lib user32：表明這個函數是 (5) Alias SendMessageA： Alias表明為函數起個別名，SendMessageA就是這個函數的別名，也可以起別的名稱，以避免與已有的函數或變量的名稱發(fā)生沖突 (6) ByVal：函數參數傳遞的類型， ByVal表示傳遞的是參數的值，如果使用 ByRef或什么都不寫，則傳遞的是參數的地址 (7) hwnd As Long：參數，并且指明參數的數據類型為 Long，其他參數也一樣，最后參數的數據類型為 Any，表示一種可變的類型 (8) As Long：最后的 As Long表示函數的返回值為 Long型數據。 在 Visual Basic中使用 Windows API 在 VB中，用戶使用 Name屬性來標識每一個控件；而 Windows通過句柄（ Handle）識別每個窗體、控件、菜單或菜單項等對象。句柄就象人的身份證，不會出現重復。句柄都以 h字母開頭，且為Long型，而且要按值傳遞（ ByVal）。 Visual Basic編程及實例分析教程 93 當通過 API來執(zhí)行有關控件的某種操作時就必須使用該控件的句柄。為了獲得控件的句柄， VB為每個擁有 Windows句柄的控件都提供了 hWnd屬性來表示其句柄。 在調用 API函數時，有些函數參數需要使用控件的hDC句柄。有些控件（如圖片框控件）， VB已經為其提供了 hDC屬性，可以直接使用它作為 hDC句柄；而有些控件（如文本框控件）， VB只為其提供了hWnd屬性，并未為其提供 hDC屬性，這時，可以通過調用 GetDC()這個 API函數得到控件的 hDC值。 Visual Basic編程及實例分析教程 94 應用實例 設計一個程序，運行的窗體界面為一個橢圓形狀，單擊該窗體時可以使窗體形狀在矩形窗體和橢圓窗體形狀之間進行切換顯示。 (1) 分析。正常的 VB窗體為矩形，為了生成橢圓窗體，必須使用API函數。 (2) 新建一個標準 EXE工程，工程中包含一個窗體。 (3) 使用“ API瀏覽器”向窗體的代碼窗口中添加CreateEllipticRgn、 CreateRectRgn、 SetWindowRgn和DeleteObject四個 API函數的聲明 (4) 有關屬性的設置如下表所示 工程及窗體屬性值設置 對象 屬性 設置值 工程 Name(名稱 ) prjAPI 窗體 Name(名稱 ) frmAPI BorderStyle 1Fixed Single Caption 橢圓窗體 Picture C:\ Visual Basic編程及實例分析教程 95 (5) 在窗體的代碼窗口中編寫代碼，見教材第十章第二節(jié)。 (6) 運行程序，結果如橢圓形狀圖所示。單擊窗體，窗體形狀如矩形圖所示，再次單擊又回到橢圓形狀圖。 Visual Basic編程及實例分析教程 96 小結 本章主要介紹了 Windows API的概念 、 API瀏覽器的使用 、 API函數聲明的組成以及 Visual Basic語言中使用 API的注意事項 ， 最后給出一個簡單的API應用實例 。 Windows API是應用程序調用系統(tǒng)動態(tài)連接庫的接口 ， 它提供了強大的功能 ， 可以彌補 VB的不足 。 Visual Basic編程及實例分析教程 97 習題 一、選擇題 1．在使用 Windows API的過程中，句柄是一個非常重要的概念。句柄的一個重要屬性為 Handle屬性，其取值不可以為（ ）。 A． HBITMAP B． HMETAFILE C． HICON D． HNAME 2． Windows操作系統(tǒng)給用戶提供了大量的 API函數，這些 API函數可以根據各自的功能劃分為不同的類別，則 API函數 EnumFontFamilies()可以歸到（ ）。 A．窗口管理類 B．圖形設備接口類 C．系統(tǒng)服務類 D．多媒體類 二、填空題 1． VB可以完成幾乎所有的 Windows應用程序編寫，但對于操作系統(tǒng)的訪問、對于圖形設備的訪問等，還需要 WindowsAPI函數來完成。所有的 API函數是由 ___________、 ______________、 __________等組成的。 2．在 Windows操作系統(tǒng)中，系統(tǒng)中的動態(tài)鏈接庫文件提供了大量的WindowsAPI函數供用戶使用，所謂 API是英文 _______________的縮寫。 Visual Basic編程及實例分析教程 98 三、簡答題 1．簡述在 VB中，聲明和使用 API函數的一般方法和過程？ 2．如何添加“ API文本瀏覽器”？ 四、編程題 1．使用 API函數 mciSendString彈出和關閉光驅。 2．使用 API函數 HtmlHelp調用 CHM(幫助 )文件。 Visual Basic編程及實例分析教程 99 第十一章 程序調試與錯誤處理 本章內容 掌握程序調試的方法 掌握錯誤處理的方法 Visual Basic編程及實例分析教程 100 程序調試 錯誤處理 小結 習題 本 章 目 錄 Visual Basic編程及實例分析教程 101 程序調試 錯誤種類 編程時可能出現的錯誤可以分為三類：編譯錯誤、運行時錯誤和邏輯錯誤。 編譯錯誤主要指語法錯誤，是由于不正確使用代碼而產生的。對于這一類錯誤， VB在編輯代碼時就會檢測到這些錯誤，語句會變成紅色，以便提示用戶及時糾正。例如，如圖 ，當輸入 If語句后，忘了加上 Then，編譯器在檢測到時，使錯誤語句變成紅色，只需修改一下就可以排除錯誤了。 如下面的編譯錯誤例子。 缺少 Then， 編譯器將該行以紅色顯示 ， 來標識錯誤 Visual Basic編程及實例分析教程 102 很多時候，雖然程序中沒有語法錯誤，但在運行時，當一個語句試圖執(zhí)行一個不能執(zhí)行的操作時，就會發(fā)生運行時錯誤。例如，整數 0做除數，盡管語句本身的語法是正確的，但運行時卻要出錯，如下圖所示。 除數為 0的例子 程序運行時系統(tǒng)彈出的錯誤提示信息 Visual Basic編程及實例分析教程 103 如果從語法角度來看，應用程序的代碼沒有問題，在運行過程中也沒有無效操作，但是應用程序卻沒有按預期方式執(zhí)行也未產生正確的結果。這就是邏輯錯誤。邏輯錯誤往往是由于編程者設計時考慮問題不周全、算法不嚴密導致。這種錯誤，只有通過測試應用程序和分析產生的結果才能檢測出來，需要不斷地進行調試。查找程序中邏輯錯誤最直接的方法是分析程序運行到某一語句時程序中各個變量、屬性與表達式的值。要得到運行時的這些值，一般要在程序的中斷狀態(tài)下利用調試窗口進行。 Visual Basic編程及實例分析教程 104 調試環(huán)境 VB 6的調試環(huán)境包括調試菜單、調試工具欄和調試窗口等。 單擊 VB的“調試”菜單命令，可以打開“調試”子菜單，如下圖所示?？梢酝ㄟ^執(zhí)行“調試”子菜單中的命令來使用調試功能