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