这篇文章给大家介绍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中怎么实现组件封装就分享到这里了，希望以上内容可以对大家有一定的帮助，可以学到更多知识。如果觉得文章不错，可以把它分享出去让更多的人看到。
亿速云「云服务器」，即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘，价格低至29元/月。点击查看>>
免责声明：本站发布的内容（图片、视频和文字）以原创、转载和分享为主，文章观点不代表本网站立场，如果涉及侵权请联系站长邮箱：is@yisu.com进行举报，并提供相关证据，一经查实，将立刻删除涉嫌侵权内容。
