13518219792
這篇文章給大家介紹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中怎么實現組件封裝就分享到這里了，希望以上內容可以對大家有一定的幫助，可以學到更多知識。如果覺得文章不錯，可以把它分享出去讓更多的人看到。
