VB.NET中怎么實現組件封裝

這篇文章給大家介紹VB.NET中怎么實現組件封裝，內容非常詳細，感興趣的小伙伴們可以參考借鑒，希望對大家能有所幫助。

新建一個項目，選擇Visual Basic \ Window \ 類庫，假設項目名為ClassLibrary1

然后 在solution manager(解決方案資源管理器）中，將新創建的Class1.vb文件刪除。

然后在solution manager(解決方案資源管理器）中的項目上點擊右鍵，在彈出的菜單上點擊添加 \ 類，在彈出的對話框中選擇com類，修改類的名稱（本例中修改為ComC.vb），后點擊添加按鈕。

則會看到ComC.vb的代碼如下：

＜ ComClass(ComC.ClassId, 
ComC.InterfaceId, ComC.EventsId)＞   
_ Public Class ComCClass ComC   
COM GUID#Region "COM GUID"   
' 這些 GUID 提供此類的 COM 標識   
' 及其 COM 接口。若更改它們，則現有的   
' 客戶端將不再能訪問此類。   
Public Const ClassId As String = 
"97451265-d75d-4d5a-a39d-6c4b68f8dd99"   
Public Const InterfaceId As String = 
"5015b9e7-64e6-4750-8c28-5c51d968f1d6"   
Public Const EventsId As String = 
"1afd03f4-5974-445e-8ca2-a8e9be3432d7"   
#End Region   
' 可創建的 COM 類必須具有一個不帶參數的   
Public Sub New()   
' 否則， 將不會在   
' COM 注冊表中注冊此類，且無法通過   
' CreateObject 創建此類。   
Public Sub New()Sub New()   
MyBase.New()   
End Sub   
End Class 

現在只要在這個類中添加public 的成員即可，假如我們添加一個方法Northsnow

＜ ComClass(ComC.ClassId, 
ComC.InterfaceId, ComC.EventsId)＞   
_ Public Class ComCClass ComC   
COM GUID#Region "COM GUID"   
' 這些 GUID 提供此類的 COM 標識   
' 及其 COM 接口。若更改它們，則現有的   
' 客戶端將不再能訪問此類。   
Public Const ClassId As String = 
"97451265-d75d-4d5a-a39d-6c4b68f8dd99"   
Public Const InterfaceId As String = 
"5015b9e7-64e6-4750-8c28-5c51d968f1d6"   
Public Const EventsId As String = 
"1afd03f4-5974-445e-8ca2-a8e9be3432d7"   
#End Region   
' 可創建的 COM 類必須具有一個不帶參數的   
Public Sub New()   
' 否則， 將不會在   
' COM 注冊表中注冊此類，且無法通過   
' CreateObject 創建此類。   
Public Sub New()Sub New()   
MyBase.New()   
End Sub   
Public Sub Northsnow()Sub 
Northsnow(ByVal ss As String) MsgBox(ss)   
End Sub   
End Class  

然后就可以編譯，編譯后，在ｐｂ中添加如下的代碼來調用這個com

int intValue   
oleobject objOle   
objOle=create OLEObject  
intValue=objOle.
connecttonewobject
("ClassLibrary1.ComC")  
objOLe.Northsnow
("I am Northsnow")  

關于VB.NET中怎么實現組件封裝就分享到這里了，希望以上內容可以對大家有一定的幫助，可以學到更多知識。如果覺得文章不錯，可以把它分享出去讓更多的人看到。