B
BenD
I am trying to create an object from a class module in another workbook.
I followed Chip Pearson's various explanations from this forum. This one
is from the beginning of this year:
===========
You can change the instancing property of the class to "Public Not
Creatable" which will allow you to declare a variable of that class
type, but not create an instance of the class. In the project that
contains the class, create a public function in a standard code module
that create a new instance of the class and returns a reference as its
result.
For example,
' in the project that contains Class1
Public Function CreateClass () As Class1
Set CreateClass = New Class1
End Function
' in the project that need a Class1 variable
Dim C1 As ProjName.Class1
Set C1 = ProjName.CreateClass()
--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
===========
and it works! However....not completely as I envisaged:
The class is stored in an Addin. Amongst others it contains a property
(TransFileChanged) that stores a 'change' status of another workbook.
When a cell change takes places in this workbook, the class is activated
and the status is set to True. That works.
Unfortunately, the Addin does not seem to store the proper value when
the code finishes that sets the status property. Accessing the property
from within the Addin gives me an 'empty' value. My gut feeling says it
has something to do with creating more than one instance of the class an
accessing the wrong one, but have not been able to solve it.
Some code:
=========================
External workbook: Module
=========================
Option Explicit
Public clsTrans As vbprjCLAXCheckCBWAddIn.clsTrans
Public Sub UpdateTranslation()
'First make a reference to the proper Class Module in the Addin:
Set clsTrans = vbprjCLAXCheckCBWAddIn.CreateTransClass()
'Set the property:
clsTrans.TransFileChanged = True
Set clsTrans = Nothing
Exit Sub
=========================
=========================
Addin: General module
=========================
Public Function CreateTransClass() As clsTrans
Set CreateTransClass = New clsTrans
End Function
=========================
=========================
Addin: Class module called: clsTrans
=========================
Private m_FileChange As Boolean 'Stores file change status.
Public Property Get TransFileChanged() As Boolean
TransFileChanged = m_FileChange
End Property
Public Property Let TransFileChanged(p_bolChanged As Boolean)
m_FileChange = p_bolChanged
End Property
=========================
The class is used within the Addin to keep track of some basic
properties and methods related to the external workbook. That means that
within the Addin the class is instanced as well, although I am not using
the class as a collection.
As said, the code flows through the Let property. But if I try to access
the property from within the Addin, the property is empty/nothing.
I was wondering if there would be anyone interested to give me some
pointers?
Excel XP
Windows XP
Best regards,
Bennie Douma
I followed Chip Pearson's various explanations from this forum. This one
is from the beginning of this year:
===========
You can change the instancing property of the class to "Public Not
Creatable" which will allow you to declare a variable of that class
type, but not create an instance of the class. In the project that
contains the class, create a public function in a standard code module
that create a new instance of the class and returns a reference as its
result.
For example,
' in the project that contains Class1
Public Function CreateClass () As Class1
Set CreateClass = New Class1
End Function
' in the project that need a Class1 variable
Dim C1 As ProjName.Class1
Set C1 = ProjName.CreateClass()
--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
===========
and it works! However....not completely as I envisaged:
The class is stored in an Addin. Amongst others it contains a property
(TransFileChanged) that stores a 'change' status of another workbook.
When a cell change takes places in this workbook, the class is activated
and the status is set to True. That works.
Unfortunately, the Addin does not seem to store the proper value when
the code finishes that sets the status property. Accessing the property
from within the Addin gives me an 'empty' value. My gut feeling says it
has something to do with creating more than one instance of the class an
accessing the wrong one, but have not been able to solve it.
Some code:
=========================
External workbook: Module
=========================
Option Explicit
Public clsTrans As vbprjCLAXCheckCBWAddIn.clsTrans
Public Sub UpdateTranslation()
'First make a reference to the proper Class Module in the Addin:
Set clsTrans = vbprjCLAXCheckCBWAddIn.CreateTransClass()
'Set the property:
clsTrans.TransFileChanged = True
Set clsTrans = Nothing
Exit Sub
=========================
=========================
Addin: General module
=========================
Public Function CreateTransClass() As clsTrans
Set CreateTransClass = New clsTrans
End Function
=========================
=========================
Addin: Class module called: clsTrans
=========================
Private m_FileChange As Boolean 'Stores file change status.
Public Property Get TransFileChanged() As Boolean
TransFileChanged = m_FileChange
End Property
Public Property Let TransFileChanged(p_bolChanged As Boolean)
m_FileChange = p_bolChanged
End Property
=========================
The class is used within the Addin to keep track of some basic
properties and methods related to the external workbook. That means that
within the Addin the class is instanced as well, although I am not using
the class as a collection.
As said, the code flows through the Let property. But if I try to access
the property from within the Addin, the property is empty/nothing.
I was wondering if there would be anyone interested to give me some
pointers?
Excel XP
Windows XP
Best regards,
Bennie Douma