VB怎么响应COM里的事件啊?

2007-05-15 05:08:53 391 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Python面向对象基础：属性动态添加在现代编程中，面向对象编程（OOP）是一种常用的编程范式。它通过将数据和操作这些数据的函数结合在一起，提供了更好的组织和复用代码的方式。在Python中，面向对象编程是一个强大而灵活的工具，它不仅支持创建类和对象，还允许动态添加属性和方法。本文将深入探讨Python中动态添加属性的机制，并结合实例详细解释其用法和应用场景。面向对象编程是一种将数据和操作这些数据的方法封装在一起的编程范式。类（Class）：定义对象的蓝图，包含属性和方法。对象（Object）：类的实例，代表具体的事物。阅读详情

COM里抛出一个事件,可是VB里怎么调用啊?

PS:COM的dll是用.net2005写的,函数和属性都已经正常调用成功,只剩下事件了

...全文

【Python】深入探索Python元类：动态生成类与对象的艺术元类是Python中一个高级且强大的特性，允许开发者在类的创建过程中插入自定义逻辑，从而动态生成类和对象。本文将全面介绍Python中的元类概念，深入探讨如何使用`type`和`__metaclass__`来动态生成类。通过详细的代码示例和中文注释，本文将展示元类在实际开发中的应用，包括类属性的自动注册、方法的动态添加、类实例的控制等。我们还将解析元类的工作机制，讨论其在设计模式中的应用，并探讨元类与装饰器、继承等高级特性的结合使用。通过本篇文章，读者将全面掌握Python元类的使用方法，提升代码的灵活性和阅读详情

swordbroken

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

swordbroken 2007-05-16

打赏
举报

花了我两天的时间,还好工期不紧张
希望对以后的兄弟有用

Rose2007 2007-05-16

打赏
举报

恭喜楼主自己解决问题

swordbroken 2007-05-16

打赏
举报

要在VB里调用COM的事件,.NET里需要以下的处理:
首先,定义一个Interface,里面有一个和事件相同参数和名称的方法(例子里是PersonEvents),指定如下的属性

Public Delegate Sub PersonEventHandler( ByVal name As String )

' 下面的声明是指定为IDispatch接口
<InterfaceTypeAttribute(ComInterfaceType.InterfaceIsIDispatch)> _
Public Interface PersonEvents
　　Sub NameChanged( ByVal name As String )
End Interface

Public Class Person

　　Public Event NameChanged As PersonEventHandler
....
End Class

　然后用ComSourceInterfaces属性指定Class的Interface

Public Delegate Sub PersonEventHandler( ByVal name As String )

<InterfaceTypeAttribute(ComInterfaceType.InterfaceIsIDispatch)> _
Public Interface PersonEvents
　　Sub NameChanged( ByVal name As String )
End Interface

<ComSourceInterfaces("DotNetCOMTest.PersonEvents, DotNetCOMTest")> _
Public Class Person

　　Public Event NameChanged As PersonEventHandler

　ComSourceIntarfaces属性値的参数有两个,第一个是指定事件处理的Interface名,第二个是Interface存在的Assembly名

swordbroken 2007-05-16

打赏
举报

已经解决,.NET的代码写的时候有些特殊的声明就可以了

swordbroken 2007-05-15

打赏
举报

说是不支持WithEvents

Rose2007 2007-05-15

打赏
举报

Dim WithEvents MyDog As CDog

CDog 为DLL名

mndsoft 2007-05-15

打赏
举报

在VB ide环境中选中按 F2 查看该dll的事件过程，然后按照过程类型写。
如:
Sub Encode(Destination() As Byte, Source() As Byte)

rainstormmaster 2007-05-15

打赏
举报

Private WithEvents 变量名 As 类名

这样定义试试

VB怎么响应COM里的事件啊?

相关推荐