Visual Basic（簡稱為VB）是一種可視化的、面向對象和采用事件驅動方式的結構化高級程序設計語言，可用于開發?Windows?環境下的各類應用程序。它簡單易學、效率高，且功能強大可以與?Windows?專業開發工具SDK相媲美。在Visual Basic環境下，利用事件驅動的編程機制、新穎易用的可視化設計工具，使用Windows內部的廣泛應用程序接口（API）函數，動態鏈接庫（DLL）、對象的鏈接與嵌入（OLE）、開放式數據連接（ODBC）等技術，可以高效、快速地開發Windows環境下功能強大、圖形界面豐富的應用軟件系統。隨著版本的提高，Visual Basic的功能也越來越強。5.0版以后，Visual Basic?推出了中文版，與前個版本相比，其功能有了很大提升。

Visual Basic 6.0作為Visual Studio 6.0的優秀一員，已成為企業級快速開發的利器。Visual Basic 6.0在數據訪問方面有了很大的改進，新的ADO組件讓對大量數據快速訪問成為可能。數據環境和新的報表功能也讓數據開發有了全新的體驗。Visual Basic?借助COM/COM+強大的功能，可以開發具有多層結構的分布式應用程序。同時，Visual Basic還可以在IIS上開發性能超群的Web應用程序。Visual Basic 6.0在語言方面和IDE方面的改進都不大，但是許多新增的組件成為Visual Basic開發人員手中的利器，如File System Object等。新的字符串函數Split和Replace等也給Visual Basic的程序員帶來很大方便。文章源自四五設計網-http://www.133122.cn/3109.html

Visual Basic 6.0具有下述優點:
(1)?面向對象
(2)?事件驅動
(3)?軟件的集成式開發
(4)?結構化的程序設計語言
(5)?強大的數據庫訪問功能
(6)?支持對象的鏈接與嵌入技術
(7)?網絡功能
(8)?多個應用程序向導
(9)?支持動態交換、動態鏈接技術
(l0)?聯機幫助功能文章源自四五設計網-http://www.133122.cn/3109.html

VB擁有圖形用戶界面（GUI）和快速應用程序開發（RAD）系統，可以輕易的使用DAO、RDO、ADO連接數據庫，或者輕松的創建ActiveX控件。它不像高級語言Visual C++那麼復雜，但它的功能很全，程序員可以輕松的使用VB提供的組件進行二次開發，快速建立屬于自己的應用程序。文章源自四五設計網-http://www.133122.cn/3109.html

2?利用VB實現圓臺交互式繪制的實現過程文章源自四五設計網-http://www.133122.cn/3109.html

2.1?啟動VB程序文章源自四五設計網-http://www.133122.cn/3109.html

啟動VB程序，VB6.0的主窗口如圖1所示，可以直觀地看到主窗體主要有以下部分組成：標題欄；菜單欄；工具欄；窗體設計器；控件（工具）箱；彈出式（上下文）菜單?；工程管理器窗口?；屬性窗口；對象瀏覽器?；對象瀏覽器及窗體布局窗口。文章源自四五設計網-http://www.133122.cn/3109.html

建立一個新的標準EXE工程文件，對其進行重命名保存，重命名為"圓臺繪制"，將Form窗體文件重命名保存為"交互式圓臺繪制"，如圖2所示。特別需要注意的一點是：在標題欄顯示的當前的工程名及窗體名是通過修改屬性窗口中"名稱"屬性及"caption"屬性得以實現的，與實際的工程名及窗體名并無直接聯系，實際的工程名及窗體名是通過諸如"（圓臺繪制.vbp）"形式體現出來的。文章源自四五設計網-http://www.133122.cn/3109.html

?文章源自四五設計網-http://www.133122.cn/3109.html

????圖1? VB6.0主窗口文章源自四五設計網-http://www.133122.cn/3109.html

????
圖2?重命名操作后的工程資源管理器文章源自四五設計網-http://www.133122.cn/3109.html

2.2?引用solidworks類型庫文件

要操作SW對象，那么添加SW引用是必不可少的。在VB里添加引用，單擊菜單欄中【工程】【引用】命令，選擇"SolidWorks exposed Type Libraries For add-in Use"(SolidWorks插件庫文件)、"SolidWorks 2007 Type Libray"（SolidWorks庫文件）和"SolidWorks Consant Type library"（SolidWorks常數庫），如圖3所示。本文其實只用到了"SolidWorks 2007 Type Libray"（SolidWorks庫文件），但為了方便以后的程序擴展，將上述三種常用庫文件一并添加。

?

????圖3??引用SolidWorks類型庫

2.3?編輯窗體界面
（1）拖動工具箱組件板上的Lable控件、TextBox控件及CommandButton控件到Form上。
（2）接下來在屬性窗口將Lable1、Lable2的屬性分別設置為"圓臺半徑："、"圓臺高度："；將CommandButton1、CommandButton2的屬性分別設置為"啟動SolidWorks交互式繪圖"、"退出SolidWorks軟件"。編輯后的窗體界面如圖4所示。

圖4?編輯后窗體界面

2.4編程實現

在VB編程環境下，引用單元文件，創建相關函數及編寫事件處理過程，實現程序功能。繪制圓臺的詳細程序代碼及其注釋如下所示：
Private Sub Command1_Click()
Dim swapp As Object
Dim part As Object
Dim boolstatus As Boolean
"定義接口
Set swapp = CreateObject("SldWorks.Application")
Set part = swapp.NewPart()
swapp.Visible = True
"獲取solidworks軟件接口并新建一個零件文件
part.InsertSketch2 True
boolstatus = part.Extension.SelectByID("前視", "PLANE", 0, 0, 0, False, 0, Nothing)
part.InsertSketch2 True
part.CreateCircle 0, 0, 0, 0, Val(R.Text) / 10005, 0
part.ShowNamedView2 "*上下二等角軸測", 8
part.FeatureManager.FeatureExtrusion True, False, False, 0, 0, Val(H.Text) / 1000, 0.01, False, False, False, False, 0, 0, False, False, False, False, 1, 1, 1
"建立模型
End Sub
點擊"啟動SolidWorks交互式繪圖"后，程序調用SolidWorks自動繪制的圓臺三維圖如圖5所示。可交互式修改參數，直至達到滿意的效果。操作完成后點擊"退出SolidWorks環境"可以自動關閉并退出SolidWorks環境。

?

????圖5?交互式繪圖后結果

3?小結

本文同樣以一個簡單實例的實現過程為例，采用VB語言編制了相關程序，詳細介紹了二次開發的具體實現過程，給出了重要文件的引用、屬性設置、接口程序的編制和事件處理等過程的完整代碼。通過上述實例的實現過程，可以看出：?VB語言簡單易學，學習過程中很容易上手；功能齊全，程序員可以輕松的使用VB提供的組件進行二次開發，快速建立屬于自己的應用程序，在其各項高效強大集成功能的支持下，最終可方便快速地完成二次開發任務。

參照連載1中的通過宏錄制實現的二次開發過程，可以清楚地看到，利用VB二次開發實現圓臺繪制的具體命令源代碼不需要自己編寫，可以直接對宏錄制的相關源碼拷貝過來加以利用即可，只需要修改其中的相關變量參數諸如Val(R.Text)即可，易于實現，減輕了程序員的工作量，提高了程序的開發速度。