我们专注攀枝花网站设计 攀枝花网站制作 攀枝花网站建设
成都网站建设公司服务热线:400-028-6601

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决

VB.NET中怎么实现组件封装

这篇文章给大家介绍VB.NET中怎么实现组件封装,内容非常详细,感兴趣的小伙伴们可以参考借鉴,希望对大家能有所帮助。

龙凤网站建设公司创新互联,龙凤网站设计制作,有大型网站制作公司丰富经验。已为龙凤成百上千家提供企业网站建设服务。企业网站搭建\成都外贸网站建设公司要多少钱,请找那个售后服务好的龙凤做网站的公司定做!

新建一个项目,选择Visual Basic \ Window \ 类库,假设项目名为ClassLibrary1

然后 在solution manager(解决方案资源管理器)中,将新创建的Class1.vb文件删除。

然后在solution manager(解决方案资源管理器)中的项目上点击右键,在弹出的菜单上点击添加 \ 类,在弹出的对话框中选择com类,修改类的名称(本例中修改为ComC.vb),后点击添加按钮。

则会看到ComC.vb的代码如下:

  1. < ComClass(ComC.ClassId, 
    ComC.InterfaceId, ComC.EventsId)>   

  2. _ Public Class ComCClass ComC   

  3. COM GUID#Region "COM GUID"   

  4. ' 这些 GUID 提供此类的 COM 标识   

  5. ' 及其 COM 接口。若更改它们,则现有的   

  6. ' 客户端将不再能访问此类。   

  7. Public Const ClassId As String = 
    "97451265-d75d-4d5a-a39d-6c4b68f8dd99"   

  8. Public Const InterfaceId As String = 
    "5015b9e7-64e6-4750-8c28-5c51d968f1d6"   

  9. Public Const EventsId As String = 
    "1afd03f4-5974-445e-8ca2-a8e9be3432d7"   

  10. #End Region   

  11. ' 可创建的 COM 类必须具有一个不带参数的   

  12. Public Sub New()   

  13. ' 否则, 将不会在   

  14. ' COM 注册表中注册此类,且无法通过   

  15. ' CreateObject 创建此类。   

  16. Public Sub New()Sub New()   

  17. MyBase.New()   

  18. End Sub   

  19. End Class 

现在只要在这个类中添加public 的成员即可,假如我们添加一个方法Northsnow

  1. < ComClass(ComC.ClassId, 
    ComC.InterfaceId, ComC.EventsId)>   

  2. _ Public Class ComCClass ComC   

  3. COM GUID#Region "COM GUID"   

  4. ' 这些 GUID 提供此类的 COM 标识   

  5. ' 及其 COM 接口。若更改它们,则现有的   

  6. ' 客户端将不再能访问此类。   

  7. Public Const ClassId As String = 
    "97451265-d75d-4d5a-a39d-6c4b68f8dd99"   

  8. Public Const InterfaceId As String = 
    "5015b9e7-64e6-4750-8c28-5c51d968f1d6"   

  9. Public Const EventsId As String = 
    "1afd03f4-5974-445e-8ca2-a8e9be3432d7"   

  10. #End Region   

  11. ' 可创建的 COM 类必须具有一个不带参数的   

  12. Public Sub New()   

  13. ' 否则, 将不会在   

  14. ' COM 注册表中注册此类,且无法通过   

  15. ' CreateObject 创建此类。   

  16. Public Sub New()Sub New()   

  17. MyBase.New()   

  18. End Sub   

  19. Public Sub Northsnow()Sub 
    Northsnow(ByVal ss As String) MsgBox(ss)   

  20. End Sub   

  21. End Class  

然后就可以编译,编译后,在pb中添加如下的代码来调用这个com

  1. int intValue   

  2. oleobject objOle   

  3. objOle=create OLEObject  

  4. intValue=objOle.
    connecttonewobject
    ("ClassLibrary1.ComC")  

  5. objOLe.Northsnow
    ("I am Northsnow")  

关于VB.NET中怎么实现组件封装就分享到这里了,希望以上内容可以对大家有一定的帮助,可以学到更多知识。如果觉得文章不错,可以把它分享出去让更多的人看到。


文章题目:VB.NET中怎么实现组件封装
当前链接:http://mswzjz.cn/article/jicoie.html

其他资讯