Tag: class

如何使用excel vba将事件分配给多个对象？

我在工作表上有十个下拉菜单，每个下拉菜单都应该对GotFocus()事件作出相同的响应。 我写了下面的代码，但我得到一个运行时错误（459） – “对象或类不支持设置，如果事件” 在一个名为clsPDRinput的类中，我有以下几点： Public WithEvents inputObj As OLEObject Public Property Set myInput(obj As OLEObject) Set inputObj = obj End Property Public Sub tbPDRInput_GotFocus() //Do some stuff… End Sub 我然后运行下面的代码是产生错误： Dim tbCollection As Collection Public Sub InitializePDRInput() Dim myObj As OLEObject Dim obj As clsPDRInput Set tbCollection = New Collection For Each myObj In […]

Excel VBA：销毁一个对象的集合是否会销毁每一个对象？

假设我有一个MyClass对象的集合MyCollection 。 Set MyCollection = Nothing调用每个包含的对象的析构函数，或者我应该照顾设置每个对象= Nothing单独的？ 我明显关心内存泄漏的原因。 Dim MyCollection As Collection Set MyCollection = New Collection … 'add objects of type MyClass here Set MyCollection = Nothing 破坏这个类是否调用每个对象的析构函数？