【正文】 客戶使 用的函數(shù)。對(duì)于 COM 來說，接口是一個(gè)包含一個(gè)函數(shù)指針數(shù)組的內(nèi)存結(jié)構(gòu)。第一個(gè)數(shù)組包含的是一個(gè)由組件所實(shí)現(xiàn)的函數(shù)的地址。對(duì)于 COM 而言，接口就是此內(nèi)存結(jié)構(gòu)，其它東西均是一個(gè) COM 并不關(guān)心的實(shí)現(xiàn)細(xì)節(jié)。 接口的作用：在 COM 中接口就是一切。對(duì)于客戶來說，一個(gè)組件就是一個(gè)接口集?？蛻糁荒芡ㄟ^接口才能同 COM 組件打交道。從整體上講，客戶對(duì)于一個(gè)組件可以說是知之甚少的。在某些情況下，客戶甚至不必知道一個(gè)組件所提供的所有接口。 可復(fù)用應(yīng)用程序架構(gòu)：說組件僅僅只是接口的實(shí)現(xiàn)細(xì)節(jié)當(dāng)然有點(diǎn)言過其實(shí)。不管怎么說，一個(gè)未被實(shí)現(xiàn)的接口 實(shí)際上什么也不能完成。但是組件可從應(yīng)用程序中刪除并可用另外一個(gè)組合來取代之。只要新的組件支持同組件相同的接口，那么整個(gè)應(yīng)用程序?qū)⑷匀荒軌蚬ぷ?。單個(gè)的組件并不能對(duì)整個(gè)應(yīng)用程序產(chǎn)生決定的作用。相反，用以連接組件的接口將對(duì)整個(gè)應(yīng)用程序產(chǎn)生決定性的作用。只要接口保持不變，那么組件可以任意地更換。 接口同木板房中的大梁非常類似。這些大梁決定了整個(gè)房屋的結(jié)構(gòu)。同樣可以將應(yīng)用程序所用的組件替換掉，這樣應(yīng)用程序的行為將會(huì)發(fā)生變化，但從結(jié)構(gòu)上講，整個(gè)應(yīng)用程序并沒有發(fā)生任何變化。使用組件來構(gòu)造應(yīng)用程序的最大的優(yōu)點(diǎn)在于可以復(fù)用應(yīng) 用程序的結(jié)構(gòu)。如果接口設(shè)計(jì)得好的話，將可以得到可復(fù)用極高的結(jié)構(gòu)。當(dāng)然使用接口除了可以設(shè)計(jì)出可復(fù)用的結(jié)構(gòu)外，還有其它若干優(yōu)點(diǎn)。 COM 接口的其它優(yōu)點(diǎn)：接口使得客戶可以用同樣的方式來處理不同的組件。這種能力就被稱作是多態(tài)。這些優(yōu)點(diǎn)是通過接口將某個(gè)特定的行為封閉起來而獲得的。 插件技術(shù) 插件是一類特殊的組件。它的目的不是為一般應(yīng)用程序使用，而是專為特定的應(yīng)用程序使用。插件一般在宿主應(yīng)用程序上添加控制項(xiàng)，如菜單、工具按鍵等。插件響應(yīng)宿主程序中對(duì)這些項(xiàng)目的操作，并對(duì)宿主程序中的數(shù)據(jù)進(jìn)行特定操作 。 插件是一種遵 循一定規(guī)范的應(yīng)用程序接口編寫出來的程序。插件是一類特殊的組件。它的目的不是為一般應(yīng)用程序使用，而是專為特定的應(yīng)用程序使用。插件的本質(zhì)是在不修改程序主體的情況下對(duì)軟件功能進(jìn)行加強(qiáng)，當(dāng)插件的接口被公開時(shí)，任何公司或個(gè)人都可以自己制作插件來解決一些操作上的不便或增加一些功能。插件還可以支持多人合作開發(fā)，不同的功能可以由不同的人來完成，而且由于不同插件之間互不影響，方便程序的調(diào)試和糾錯(cuò)。插件一般在宿主應(yīng)用程序第 4 頁 共 23 頁 上添加控制項(xiàng)，如菜單、工具按鍵等。插件響應(yīng)宿主程序中對(duì)這些項(xiàng)目的操作，并對(duì)宿主程序中的數(shù)據(jù)進(jìn)行特定操作。插件 類型從廣義的范圍來看，插件有以下三種類型： 1．類似批命令的簡(jiǎn)單插件。事實(shí)上這種插件的自由度非常低。運(yùn)行這種插件后，會(huì)一步步要求用戶進(jìn)行選擇 /輸入，最后根據(jù)用戶的輸入來執(zhí)行一系列事先定義好的操作。這種插件一般是文本文件。功能比較單一，可擴(kuò)展性極小。優(yōu)點(diǎn)是插件做起來非常方便，即使是對(duì)程序設(shè)計(jì)了解不多的人也可以制作。 2．使用一種特殊的腳本語言來實(shí)現(xiàn)的插件。這種插件比較難寫，需要軟件開發(fā)者自己制作一個(gè)程序解釋內(nèi)核。比如微軟惹了很多麻煩的宏就是這種類型的。有一套著名的 Office 輔助工具就是完全用 Office 內(nèi)置 的 VBScript 寫成的。這種方法的優(yōu)點(diǎn)在于無需使用其它工具來制作插件，軟件本身就可以實(shí)現(xiàn)，普遍出現(xiàn)于各種辦公自動(dòng)化軟件中。 3．利用已有的程序開發(fā)環(huán)境來制作插件。例如 PhotoShop 等軟件使用的方法。使用這種方法的軟件在程序主體中建立了多個(gè)自定義的接口，使插件能夠自由訪問程序中的各種資源。這種插件的優(yōu)勢(shì)在于自由度極大，可以無限發(fā)揮插件開發(fā)者的創(chuàng)意，這種插件是狹義范圍的插件，也是真正意義上的插件。而這種插件機(jī)制的編寫相對(duì)復(fù)雜，對(duì)于插件接口之間的協(xié)調(diào)比較困難 。 EXCEL 對(duì)象模型 Excel對(duì)象模型的類以及之間的關(guān)系 Excel 組件中定義了大量的類。下圖顯示了我們?cè)谲浖_發(fā)中使用到的一些主要的類和 它們之間的關(guān)系。 A p p li c a t i o nW o r k B o o k*1W o r k S h e e t*1C h a r t*1R a n g e *1Fo n t*1 圖 1 Excel對(duì)象模型 片斷 第 5 頁 共 23 頁 使用 Excel 在 VB 應(yīng)用程序中 使 用 Excel，實(shí)質(zhì)是將 Excel 作為一個(gè)外部對(duì)象來引用，由 Excel 對(duì)象模型提供能從 VB 應(yīng)用程序內(nèi)部來程序化操縱的對(duì)象以及相關(guān)的屬性、 方法和事件 。 為了能從 VB 應(yīng)用程序中訪問 Excel 豐富的內(nèi)部資源，使 Excel應(yīng)用程序運(yùn)行得更快，需要在 VB 工程中添加對(duì) Excel 類型庫的引用。具體步驟如下： a）從 VB6工程 菜單中選擇 引用 ； b） 在 引用 對(duì)話框中選擇 Excel 類型庫： Microsoft Excel Object Library； c）單擊左邊小方框，使之出現(xiàn) √ 符號(hào)； d）按 確定 退出。 注：要想在 VB 應(yīng)用程序中調(diào)用 Excel，你的計(jì)算機(jī)系統(tǒng)中必須安裝 Excel。 引用 Application 對(duì)象 Application 對(duì)象是 Excel 對(duì)象模型的頂層，表示整個(gè) Excel 應(yīng)用程序。在VB應(yīng)用程序中調(diào)用 Excel，就是使用 Application 對(duì)象的屬性、方法和事件。 為此，首先要聲明對(duì)象變量： Dim VBExcel As Object 或直接聲明為 Excel 對(duì)象： Dim VBExcel As 在聲明對(duì)象變量之后，可用 CreateObject 函數(shù)或 GetObject 函數(shù)給變量賦值 。前者創(chuàng)建一個(gè) 新的 Excel 實(shí)例，后者取得當(dāng)前打開的 Excel 實(shí)例。兩個(gè)函數(shù)均返回對(duì) Excel 的 Application 對(duì)象引用。 a）用 CreateObject 函數(shù)生成新的對(duì)象引用： Set VBExcel=CreateObject () 第 6 頁 共 23 頁 字符串 是提供 Excel 應(yīng)用程序的編程 ID。 b）用 GetObject 函數(shù)打開已存在的對(duì)象引用： Set AppExcel=GetObject(, ) 上面語句打開文件 。 Application 對(duì)象常用的屬性、方法 Visible 屬性取 True 或 False，表明 Excel 應(yīng)用程序是否可見。 Left,Top屬性 Excel 窗口的位置； Height, Width 屬性 Excel 窗口的大??； WindowState屬性 指定窗口的狀態(tài)，?。?XIMaximized(最大化 )X1 Minimized(最小化 )x1 Normal(缺省 )。 Quit 方法 退出 Microsoft Excel； Calculate 方法 重新計(jì)算所有打開的工作簿、工作表或單元格。 Evaluate 方法 求值數(shù)學(xué)表達(dá)式并返回結(jié)果。 示例 1：求值數(shù)學(xué)表達(dá)式： Dim VBExcel As Object Set VBExcel=CreateObject () X=VBExcel. Evaluate (3+5*(cos (1/log (99. 9)))) 在 VB 應(yīng)用程序中 使用 Excel 應(yīng)用程序，就是 通過 Application 對(duì)象的屬性、方法 來獲得其它 Excel 對(duì)象，如工作簿、工作表、單元等待 。下面分類給出其中常用的屬性和方法。 使用工作薄 Workbook 對(duì)象代表 Excel 應(yīng)用程序中當(dāng)前打開的一個(gè)工作簿，包含在Workbooks 集合中。可以通過 Workbooks 集合或表示當(dāng)前活動(dòng)工作簿的 Active Workbook 對(duì)象訪問 Workbook 對(duì)象。 常用的 方法有： Add 方法 創(chuàng)建新的空白工作簿，并將其添加到集合中。 Open 方法 打開工作簿。 Activate 方法 激活工作簿，使指定工作簿變?yōu)榛顒?dòng)工作簿，以便作為 Active Workbook 對(duì)象使用。 Save 方法 按當(dāng)前路徑和名稱保存現(xiàn)有工作簿 (如是首次保存，則將其保存到缺第 7 頁 共 23 頁 省名稱中，如 )。 SaveAs 方法 首次保存工作簿或用另一名稱保存工作簿。 Close 方法 關(guān)閉工作簿。 PrintOut 方法 打印工作簿，語法為： PrintOut (from, To, Copies, Preview, Printer, ToFile, Collate) 可選參數(shù)： From：打印的起始頁號(hào)。如省略將從起始位置開始打印。 To：打印的終止頁號(hào)。如省略將打印至最后一頁。 Copies：要打印的份數(shù)。如省略將只打印一份。 Preview：如果為 True 則 Excel 打印指定對(duì)象之前進(jìn)行打印預(yù)覽。如果為 False，或省略則立即打印該對(duì)象。 Printer：設(shè)置活動(dòng)打印機(jī)的名稱。 ToFile：如果為 True 則打印輸出到文件。 Collate：如果為 True 則逐份打印每份副本。 下面語句將活動(dòng) 工作簿的 2 到 5頁打印 3份： From： =2 To 5 Copies： =3 示例 2：生成、保存、關(guān)閉工作簿 Dim VBExcel As Set VBExcel== CreateObject() With VBExcel . With ActiveWorkbook .Save AsC： \Temp \ .Close End With Quit End With 第 8 頁 共 23 頁 使用工作表 Sheets 集合表示工作簿中所有的工作表?？梢酝ㄟ^ Sheets 集合來訪問、激活、增加、更名和刪除工作表。一個(gè) Worksheet 對(duì)象代表一個(gè)工作表。 Worksheets 屬性 返回 Sheets 集合。 Name 屬性 工作表更名。 Add 方法 創(chuàng)建新工作表并將其添加到工作簿中。 Select 方法 選擇工作表。 Copy 方法 復(fù)制工作表。 Move 方法 將指定工作表移到工作簿的另一位置。 Delete 方法 刪除指定工作表。 PrintOut 方法 打印工 作表 示 例：將 C盤工作簿中的工作表復(fù)制到 A盤工作簿中 Dim VBExcel As Set VBExcel=CreateObject() With VBExcel . C： \Temp\ .A： \ .Workbooks().Sheets (Sales).Copy .Workbooks() .Workbooks().Save .Workbooks().Close .Workbooks().Close .Quit End With 使用單元范圍 對(duì)象（ Range）： Range 對(duì)象代表工作表的某一單元格、某一行、某一列、某一選定區(qū)域或者某一三維區(qū)域 。 Range 屬性 Range (arg)其中 arg 為 A1樣式符號(hào)，表示單個(gè)單元格或單元格區(qū)域 。 Range 對(duì)象的主要屬性和方法包括： 第 9 頁 共 23 頁 ? Cells 屬性 Cells (row, col )(其中 row 為行號(hào)， col 為列號(hào) )表示單個(gè)單元格。 ? ColumnWidth 屬性 指定區(qū)域中所有列的列寬。 ? Rowl3eight 屬性 指定區(qū)域中所有行的行寬。 ? Value 屬性 指定區(qū)域中所有單元格的值 (缺省屬性 )。 ? Formula 屬性 指定單元格的公式，由 A1樣式引用。 ? Select 方法 選擇范圍。 ? Copy 方法 將范圍的內(nèi)容復(fù)制到剪貼板。 ? C1earContents 方法 清除范圍的內(nèi)容。 ? Delete 方法 刪除指定單元范圍。 以上簡(jiǎn)要介紹了 Excel 對(duì)象模型中部分 對(duì)象及其屬性和方法，更詳細(xì)的信息可參閱 Excel 2021 幫助中的 Microsoft Excel Visual Basic 參考 一節(jié)的內(nèi)容。實(shí)際上， Microsoft Office 家族的 Word,PowerPoint, Access 和 Project 等應(yīng)用程序都可以在 VB 應(yīng)用程序中調(diào)用，其原理和步驟完全相同，只是其對(duì)象模型有所不同而已。 VB 編寫組件基本介紹 在 VB 中編寫 COM 組件 新建 ActiveX DLL 工程 圖 2 ActiveX DLL工程 注意：該類型工程缺省添加的不是 窗體，而是類模塊。 第 10 頁 共 23 頁 修改工程屬性 菜單：工程－屬性 圖 3 菜單：工程－屬性 其中，工程名稱就是組件的名稱。 修改類模塊的性質(zhì) 圖 4 模塊的性質(zhì) 說明：其中的 Instancing 是組件對(duì)象的實(shí)例化方式。 5MultiUse：可以創(chuàng)建多個(gè)實(shí)例。 1Private: 私有對(duì)象。不能在外部程序中創(chuàng)建它的實(shí)例，但公開其接口。 第 11 頁 共 23 頁 定義對(duì)象的屬性和方法 與一般 VB 類相同。如添加以下代碼，定義了該對(duì)象缺省接口的 Hello 方