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中怎么实现组件封装就分享到这里了，希望以上内容可以对大家有一定的帮助，可以学到更多知识。如果觉得文章不错，可以把它分享出去让更多的人看到。