代碼重用主要有兩種形式，即二進制代碼重用與源代碼重用。前者是通過創建和使用對象來實現的；后者，顧名思義，是通過繼承實現的，后者在C++語言中被廣泛使用。由于Visual Basic不支持繼承，所以在VB中的代碼重用主要是指二進制代碼重用，并且VB算得上是二進制代碼重用的先驅。它的基本思路是：首先將待重用的代碼和數據編譯為二進制文件，稱為ActiveX服務器部件，然后在客戶應用程序里創建部件中類的對象來調用該部件。在VB中最為人們所熟悉的控件就是典型的二進制代碼重用的例子，每個控件都是一個ActiveX部件，在向窗體中添加一個控件的同時就創建了該控件類的一個新實例，然后通過調用該控件的屬性、方法和事件就重用了該控件中的代碼。
Word 97本身就是一個龐大的代碼部件，也就是說，Word 97中的整個對象庫是對外開放的，它允許其他應用程序對其進行編程。換句話說，Word 97中的對象能被其他應用程序所調用。而“藝術字”正是Word 97中的一種對象，因此可以方便地在VB中調用它。
要使用“藝術字”，必須先把Word 97的對象庫加入到程序中，然后創建一個對象變量來保持對Word應用程序對象的引用，可以用兩種方法創建對Word應用程序對象的引用，一種方法是直接聲明一個Word應用程序的對象變量，例如：
Dim w As New Word.Application
這種方法稱為前期綁定，它速度較快；另一種方法是聲明一個對象變量w，然后把用CreateObject函數創建出的Word應用程序對象賦給w，例如：
Dim w As Object
Set w=CreateObject("Word.Application")
這種方法稱為后期綁定，它速度較慢。在創建了Word應用程序對象后，就可以以代碼的方式像在Word中進行具體操作那樣創建新文檔，并在文檔中加入“藝術字”。在創建好“藝術字”之后，用剪貼板將其傳給窗體。在創建Word應用程序對象時，VB會在后臺自動打開Word，因此，在程序結束時，應該先關閉Word，其代碼如下：
w.Quit wdDoNotSaveChanges
下面用一個具體的項目實例幫你輕松學習如何在VB中使用Word對象。
(1)啟動Microsoft Visual Basic 5.0，選擇“標準EXE”，創建一個新項目；
(2)選擇“項目”菜單中的“引用”選項，顯示“引用”對話框，選中"Microsoft Word 8.0 Object Library"和"Microsoft Office 8.0 Object Library"兩項，單擊“確定”按鈕（見圖1）；
(3)將下列代碼加入到Form1的“通用”|“聲明”選項中：
Dim w As New Word.Application
(4)將下列代碼加入到Form1的Load事件中：
Private Sub Form_Load()
w.Documents.Add.Select
w.ActiveDocument.Shapes.AddTextEffect(0,"藝術字","隸書",48#,-1,0,183.75,70.5).Select
End Sub
這里顯示的字樣是隸書的“藝術字”三個字，你可以根據自己的喜好來改變字體（如宋體、楷體等）以及改變字樣；
(5)將下列代碼加入到Form1的Click事件中：
Private Sub Form_Click()
w.Selection.ShapeRange.TextEffect.PresetTextEffect = Int(Rnd(1) * 30)
w.Selection.ShapeRange.TextEffect.FontName = "隸書"
w.Selection.Copy
Picture = Clipboard.GetData()
End Sub
(6)將下列代碼加入到Form1的Unload事件中：
Private Sub Form_Unload(Cancel As Integer)
w.Quit wdDoNotSaveChanges
Set w = Nothing
End Sub
(7)在窗體上放置一個按鈕，其Caption屬性為"Exit"，并在它的Click事件中處理退出：
Private Sub Command1_Click()
End
End Sub
(8)運行程序后，當鼠標在窗體上單擊時，會隨機地顯示出一種“藝術字”字型（Word中共有30種內建“藝術字”字型），下圖分別給出了隸書與宋體兩種不同字體的字樣為“藝術字”的幾種情形。
同樣，由這個實例可以舉一反三，即我們也可以在VB中使用Excel的圖表、PowerPoint的幻燈片，因為Office 97中的產品都是代碼部件，這些產品中的對象庫都是可以被其他應用程序調用的，所以只要了解這些對象的外部接口（屬性、方法和事件），就可以方便地調用這些對象了。
文章來源于領測軟件測試網 http://www.kjueaiud.com/
