【正文】 可以通過執(zhí)行“調(diào)試”子菜單中的命令來使用調(diào)試功能，也可。 Visual Basic編程及實例分析教程 104 調(diào)試環(huán)境 VB 6的調(diào)試環(huán)境包括調(diào)試菜單、調(diào)試工具欄和調(diào)試窗口等。查找程序中邏輯錯誤最直接的方法是分析程序運行到某一語句時程序中各個變量、屬性與表達(dá)式的值。邏輯錯誤往往是由于編程者設(shè)計時考慮問題不周全、算法不嚴(yán)密導(dǎo)致。 除數(shù)為 0的例子 程序運行時系統(tǒng)彈出的錯誤提示信息 Visual Basic編程及實例分析教程 103 如果從語法角度來看，應(yīng)用程序的代碼沒有問題，在運行過程中也沒有無效操作，但是應(yīng)用程序卻沒有按預(yù)期方式執(zhí)行也未產(chǎn)生正確的結(jié)果。 缺少 Then， 編譯器將該行以紅色顯示 ， 來標(biāo)識錯誤 Visual Basic編程及實例分析教程 102 很多時候，雖然程序中沒有語法錯誤，但在運行時，當(dāng)一個語句試圖執(zhí)行一個不能執(zhí)行的操作時，就會發(fā)生運行時錯誤。例如，如圖 ，當(dāng)輸入 If語句后，忘了加上 Then，編譯器在檢測到時，使錯誤語句變成紅色，只需修改一下就可以排除錯誤了。 編譯錯誤主要指語法錯誤，是由于不正確使用代碼而產(chǎn)生的。 2．使用 API函數(shù) HtmlHelp調(diào)用 CHM(幫助 )文件。 2．在 Windows操作系統(tǒng)中，系統(tǒng)中的動態(tài)鏈接庫文件提供了大量的WindowsAPI函數(shù)供用戶使用，所謂 API是英文 _______________的縮寫。 A．窗口管理類 B．圖形設(shè)備接口類 C．系統(tǒng)服務(wù)類 D．多媒體類 二、填空題 1． VB可以完成幾乎所有的 Windows應(yīng)用程序編寫，但對于操作系統(tǒng)的訪問、對于圖形設(shè)備的訪問等，還需要 WindowsAPI函數(shù)來完成。句柄的一個重要屬性為 Handle屬性，其取值不可以為（ ）。 Windows API是應(yīng)用程序調(diào)用系統(tǒng)動態(tài)連接庫的接口 ， 它提供了強大的功能 ， 可以彌補 VB的不足 。單擊窗體，窗體形狀如矩形圖所示，再次單擊又回到橢圓形狀圖。 (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編程及實例分析教程 95 (5) 在窗體的代碼窗口中編寫代碼，見教材第十章第二節(jié)。正常的 VB窗體為矩形，為了生成橢圓窗體，必須使用API函數(shù)。 Visual Basic編程及實例分析教程 94 應(yīng)用實例 設(shè)計一個程序，運行的窗體界面為一個橢圓形狀，單擊該窗體時可以使窗體形狀在矩形窗體和橢圓窗體形狀之間進(jìn)行切換顯示。 在調(diào)用 API函數(shù)時，有些函數(shù)參數(shù)需要使用控件的hDC句柄。 Visual Basic編程及實例分析教程 93 當(dāng)通過 API來執(zhí)行有關(guān)控件的某種操作時就必須使用該控件的句柄。句柄就象人的身份證，不會出現(xiàn)重復(fù)。 Visual Basic編程及實例分析教程 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ù)。 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ù)。聲明后，即可象使用 VB內(nèi)部函數(shù)一樣使用 API函數(shù)了。 3.“API瀏覽器”功能介紹 API瀏覽器的界面由“菜單欄”、“ API類型”組合框、“可用項”列表框、“選定項”列表框、“聲明范圍”框架、和一個“鍵入您要查找的內(nèi)容的開頭幾個字母”文本框，以及“添加”、“刪除”、“清除”、“插入”和“復(fù)制”幾個命令按鈕組成。 (2) 單擊 API瀏覽器的“文件”菜單下的“加載文本文件”命令，彈出“選擇一個文本 API文件”對話框，從中選擇“ ”文本文件，單擊“打開”命令按鈕，關(guān)閉對話框。 Visual Basic編程及實例分析教程 90 WIN32API文件 VB提供了一個名為 ，其中包含了在 VB在調(diào)用 API函數(shù)時所需要的所有聲明、常量以及類型，該文件可以加載到“ API瀏覽器”中。 (3) 在“可用外接程序”列表欄中選取“ VB 6 API Viewer”項，并在“加載行為”框架中選取“在啟動中加載”和“加載 /卸載”兩個復(fù)選框。步驟如下 : (1) 啟動 VB，打開一個新的標(biāo)準(zhǔn) EXE工程。 Visual Basic編程及實例分析教程 89 API瀏覽器 由于 API函數(shù)不是 VB的內(nèi)部函數(shù)，所以在使用它們之前必須顯示地加以聲明。 (3) 系統(tǒng)服務(wù)（ Kernel）：提供訪問計算機和操作系統(tǒng)資源的函數(shù)。可以分為 4個功能類別 : (1) 窗口管理（ User）：提供建立和管理應(yīng)用程序的重要函數(shù)。 Visual Basic編程及實例分析教程 86 第十章 Windows API編程 本章內(nèi)容 掌握 Windows API編程 Visual Basic編程及實例分析教程 87 Windows API編程基礎(chǔ) 應(yīng)用實例 小結(jié) 習(xí)題 本 章 目 錄 Visual Basic編程及實例分析教程 88 Windows API編程基礎(chǔ) API簡介 API的英文全稱為 Application Programming Interface，即應(yīng)用程序編程接口，是一些用 C語言編寫由操作系統(tǒng)自身調(diào)用的函數(shù)，用來控制 Windows的各個部件的外觀和行為。 3．編寫一個 ActiveX控件，將文本框與滾動條進(jìn)行捆綁，文本框顯示滾動條的當(dāng)前值，當(dāng)滾動條滾動時，文本框內(nèi)容隨之改變；當(dāng)文本框內(nèi)容改變時，滾動條也一樣改變。 Visual Basic編程及實例分析教程 85 習(xí)題 編程題 1．編寫一個程序，驗證類的 Initialize和 Terminate事件的操作。 Visual Basic編程及實例分析教程 84 小結(jié) 本章主要介紹了 VB如何創(chuàng)建和使用自定義類 。通過測試，可知設(shè)計的控件已滿足了預(yù)期的目的。將用戶控件添加到窗體后，可以發(fā)現(xiàn)它實際上實現(xiàn)了時鐘顯示的功能。這時，可激活工具箱中 UserControl圖標(biāo)。在工程資源管理器中將測試工程“工程 1”設(shè)置為工程組的啟動工程。H8000000F) End Sub Visual Basic編程及實例分析教程 82 (9) 保存 ActiveX控件工程 測試 ActiveX控件 (1) 選擇“文件”菜單下的“添加工程”命令，打開“添加工程”對話框，在“添加工程”對話框中選擇“標(biāo)準(zhǔn) EXE”圖標(biāo)。H8000000F) End Sub 39。MappingInfo=UserControl,UserControl,1,BackColor Public Property Get BackColor() As OLE_COLOR BackColor = End Property Public Property Let BackColor(ByVal New_BackColor As OLE_COLOR) () = New_BackColor PropertyChanged BackColor End Property 39。顯示當(dāng)前系統(tǒng)時間 End Sub 39。開始定時 = 2 39。初始化 = 500 39。顯示當(dāng)前系統(tǒng)時間 End Sub (7) 接下來就是為這個 ActiveX控件添加屬性、事件和方法的接口。開始定時 = 2 39。初始化 = 500 39。再單擊工具箱中的標(biāo)簽控件圖標(biāo)，然后在 UserControl設(shè)計器中拖動鼠標(biāo)，在UserControl設(shè)計器上添加一個標(biāo)簽控件。 (4) 通過屬性窗口將工程名設(shè)置為 myclock，設(shè)置好的工程資源管理器窗口。選擇生成一個 ActiveX控件類型的新工程。 ActiveX控件 (1) 選擇“文件”菜單中的“新建工程”命令，打開“新建工程”對話框。建立一個“標(biāo)準(zhǔn) EXE”測試工程來測試控件。屬性頁并非一個控件必須要有的，但建立屬性頁有助于控件的使用。 (4) 為控件添加屬性、事件和方法。在UserControl對象上可以加入現(xiàn)有的各種控件。 Visual Basic編程及實例分析教程 78 創(chuàng)建自定義 ActiveX控件 創(chuàng)建 ActiveX控件的一般步驟 創(chuàng)建 ActiveX控件的一般步驟如下： (1) 建立一個“ ActiveX控件”工程。單擊“暫停顯示”按鈕，則停止顯示，如下圖所示。界面由命令按鈕和標(biāo)簽控件構(gòu)成。窗體是應(yīng)用程序的界面，類模塊用來定義定時器類TimerClass。 (1) 新建工程。使用所提供 的參數(shù)，將代碼添加到事件過程中。它必須是一個模塊級的變量。 (2) 在類模塊中的適當(dāng)?shù)胤?，?RaiseEvent語句來引發(fā)事件，并提供所需要的參數(shù)。 添加和處理事件的基本步驟如下 : (1) 在定義類的類模塊聲明部分，用 Event語句來聲明事件。 為了使得由類創(chuàng)建的對象具有與應(yīng)用程序交互的功能，僅使用類的屬性和調(diào)用其方法是不夠的，默認(rèn)事件也只能做些初始化和收尾工作，必要時還需編寫自定義事件。 系統(tǒng)自身為創(chuàng)建類提供的事件為類的默認(rèn)事件，這類事件有兩個，即 Initialize事件和 Terminate事件。 Visual Basic編程及實例分析教程 73 向類中添加事件 默認(rèn)事件和自定義事件 通過屬性和方法與對象進(jìn)行的交流只是單向的，因為對象只能被動地改變屬性值或調(diào)用方法。返回類的屬性 C，并格式化顯示 End Sub Private Sub cmdExit_Click() End 39。設(shè)置類的屬性 F 39。添加類的溫度轉(zhuǎn)換方法 Public Sub TConvert() C = (5 / 9) * (F 32) End Sub Visual Basic編程及實例分析教程 71 在窗體 ： Option Explicit Private Sub cmdConvert_Click() Dim mo As New TConvertClass 39。通過屬性過程添加類的 C(攝氏度 )屬性 Public Property Get C() As Single C = mc End Property Public Property Let C(ByVal vNewValue As Single) mc = vNewValue End Property 39。 在類模塊 ： Option Explicit Private mc As Single, mf As Single 39。 Visual Basic編程及實例分析教程 69 (3) 有關(guān)屬性的設(shè)置如下表所示。 (2) 窗體設(shè)計界面如下圖所示。本例的工程由一個窗體和一個類模塊組成，如下圖所示。（要求：定義溫度轉(zhuǎn)換類 TConvertClass來實現(xiàn)轉(zhuǎn)換的功能，然后設(shè)計一個窗體使用該類進(jìn)行溫度的轉(zhuǎn)換。也可以在類模塊中創(chuàng)建私有過程，但是只能在類模塊內(nèi)部調(diào)用，在外部是不可見的。 Visual Basic編程及實例分析教程 68 應(yīng)用實例 要向類中添加方法，只需在類模塊中聲明公有的 Sub或 Function過程。 向類添加方法 一般來說，屬性是關(guān)于某個對象的數(shù)據(jù)，而方法則是該對象可能被要求去執(zhí)行的動作。 VB提供了三種屬性過程： Property Get返回屬性的值、 Property Let設(shè)置屬性的值、 Property Set設(shè)置對象屬性的值。為此，