Visual Basic（簡稱為VB）是一種可視化的、面向?qū)ο蠛筒捎檬录?qū)動(dòng)方式的結(jié)構(gòu)化高級程序設(shè)計(jì)語言，可用于開發(fā)?Windows?環(huán)境下的各類應(yīng)用程序。它簡單易學(xué)、效率高，且功能強(qiáng)大可以與?Windows?專業(yè)開發(fā)工具SDK相媲美。在Visual Basic環(huán)境下，利用事件驅(qū)動(dòng)的編程機(jī)制、新穎易用的可視化設(shè)計(jì)工具，使用Windows內(nèi)部的廣泛應(yīng)用程序接口（API）函數(shù)，動(dòng)態(tài)鏈接庫（DLL）、對象的鏈接與嵌入（OLE）、開放式數(shù)據(jù)連接（ODBC）等技術(shù)，可以高效、快速地開發(fā)Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。隨著版本的提高，Visual Basic的功能也越來越強(qiáng)。5.0版以后，Visual Basic?推出了中文版，與前個(gè)版本相比，其功能有了很大提升。

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

Visual Basic 6.0具有下述優(yōu)點(diǎn):
(1)?面向?qū)ο?br /> (2)?事件驅(qū)動(dòng)
(3)?軟件的集成式開發(fā)
(4)?結(jié)構(gòu)化的程序設(shè)計(jì)語言
(5)?強(qiáng)大的數(shù)據(jù)庫訪問功能
(6)?支持對象的鏈接與嵌入技術(shù)
(7)?網(wǎng)絡(luò)功能
(8)?多個(gè)應(yīng)用程序向?qū)?br /> (9)?支持動(dòng)態(tài)交換、動(dòng)態(tài)鏈接技術(shù)
(l0)?聯(lián)機(jī)幫助功能文章源自四五設(shè)計(jì)網(wǎng)-http://www.4968ejs.cn/3109.html

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

2?利用VB實(shí)現(xiàn)圓臺交互式繪制的實(shí)現(xiàn)過程文章源自四五設(shè)計(jì)網(wǎng)-http://www.4968ejs.cn/3109.html

2.1?啟動(dòng)VB程序文章源自四五設(shè)計(jì)網(wǎng)-http://www.4968ejs.cn/3109.html

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

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

?文章源自四五設(shè)計(jì)網(wǎng)-http://www.4968ejs.cn/3109.html

????圖1? VB6.0主窗口文章源自四五設(shè)計(jì)網(wǎng)-http://www.4968ejs.cn/3109.html

????
圖2?重命名操作后的工程資源管理器文章源自四五設(shè)計(jì)網(wǎng)-http://www.4968ejs.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常數(shù)庫），如圖3所示。本文其實(shí)只用到了"SolidWorks 2007 Type Libray"（SolidWorks庫文件），但為了方便以后的程序擴(kuò)展，將上述三種常用庫文件一并添加。

?

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

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

圖4?編輯后窗體界面

2.4編程實(shí)現(xiàn)

在VB編程環(huán)境下，引用單元文件，創(chuàng)建相關(guān)函數(shù)及編寫事件處理過程，實(shí)現(xiàn)程序功能。繪制圓臺的詳細(xì)程序代碼及其注釋如下所示：
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軟件接口并新建一個(gè)零件文件
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
點(diǎn)擊"啟動(dòng)SolidWorks交互式繪圖"后，程序調(diào)用SolidWorks自動(dòng)繪制的圓臺三維圖如圖5所示。可交互式修改參數(shù)，直至達(dá)到滿意的效果。操作完成后點(diǎn)擊"退出SolidWorks環(huán)境"可以自動(dòng)關(guān)閉并退出SolidWorks環(huán)境。

?

????圖5?交互式繪圖后結(jié)果

3?小結(jié)

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

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