用Visual Basic實現Office助手

　摘要：本文講述了在Visual Basic 6.0開發環境下在自己的應用程序中對微軟代理Active X控件進行編程的一般方法。

　　關鍵字：Visual Basic 6.0、Active X、Agent

　　引言

　　相信廣大的程序設計人員對Microsoft 公司的辦公套件Office系列產品一定不會陌生，而且也一定會注意到那個外型古怪的Office助手，當我們需要尋求幫助，按下F1鍵時它就會從天而降，為我們進行解答，當完成任務后又會慢慢的縮小直至消失。這無疑比尋常呆板的Windows風格的幫助友善許多。會使用戶覺的產品的人機界面更加親切，如果在我們自己的應用程序中也能實現上述功能無疑會使我們的程序看上去高一個檔次。本文就以VB為例對此進行了詳細的介紹。

　　程序的設計實現

　　Microsoft Visual Basic 6.0以其簡潔的語言、強大的功能、精美的界面和Visual C++、Delphi、C++Builder等語言一樣得到了廣泛的應用，尤其是對Active X控件方面的編程非常方便簡潔，所以本文示例程序選用VB作為實現語言。

　　打開Office目錄我們會發現里面有眾多的可執行文件和動態連接庫以及一些奇怪后綴的文件，而且向Office這么大型的軟件一般是要劃分為若干個模塊的，一個或幾個相關功能的文件會單獨以文件的形式存盤，在執行時根據需要臨時調用執行，所以Office助手應該也不例外，經過尋找，發現后綴為acs的文件的類型說明為Microsoft Agent Character File，表明了是我們所需要的微軟代理模塊文件。

　　用VB新建一個標準EXE文件，按Ctrl+T熱鍵打開"部件"窗口，從中選中Microsoft Agent Control 2.0,并將其新添加的圖標從工具欄添加到窗體，之后就可以象使用其他Active X控件一樣使用它了，其主要屬性有Connected、Index、Left、RaiseRequestError、Tag、Top等，均取其缺省值即可。使用時先將.acs文件裝載，然后將其顯示并按規定的動作播放即可，首先定義COM接口IAgentCtlCharacterEx和IAgentCtlRequest的對象：

clearcase/" target="_blank" >cc66" width="90%" align="center" bgcolor="#dadacf" border="1">

Dim Dot0 As IAgentCtlCharacterEx Dim AgentRequest As IagentCtlRequest

　　然后通過Set語句對其進行設置：

Set AgentRequest = Agent1.Characters.Load("Dot0", "C:\.Logo.acs") Set Dot0 = Agent1.Characters.Character("Dot0")

　　剩下的工作就是調用Dot0對象的 Shou函數將其顯示以及Play函數對其進行播放，最終用Hide函數將其隱藏即可：

Dot0.Show (0) Dot0.Play ("Alert") Dot0.Hide(0)

　　在此"Alert"就是我們將要播放的動作，類似的動作有諸如LookDown、Wave等等很多種，現列表如下請根據需要酌情在程序中選用適當的動作：


　　小結：

　　本文所述的方法對所有的Office辦公套件中的.acs文件都適用，動作名稱也都相一致，可以完全按本文所述代碼實現，但對于第三方開發的acs文件，則應當按照其文檔的描述對本文代碼稍事修改即可，否則有可能會引發不可預料的非法錯誤的產生。本程序在Windows 2000 Professional + SP4下，由Microsoft Visual Basic 6.0中文版編譯通過，由Microsoft Office 2000提供對acs文件的支持。

原文轉自：http://www.anti-gravitydesign.com