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