-
March 12th, 2013, 07:04 AM
#1
Set a new Class module using a pointer to another one
Goodmorning
My purpose is to reach a result like this:
Code:
Dim clsA As New Class1
Dim clsB As New Class1
Set clsB = clsA
but using pointers to object and the CopyMemory API call.
The reasons why I've to pass trough this way are several and hard to explain.
I tried this code:
Code:
Dim ptrA As Long, ptrB As Long
ptrA = ObjPtr(clsA)
ptrB = ObjPtr(clsB)
CopyMemory ptrB, ptrA, 4
but nothing happens, because (although clsA is initialized) clsB always seems to be empty (any property value of clsA is set to clsB).
I also tried to call the ObjPtr() function inside the Class1 module like this:
but neither this time I gave results.
Can you help me?
-
March 12th, 2013, 05:58 PM
#2
Re: Set a new Class module using a pointer to another one
You need to place the first set of calls into a normal MODULE, and set the references to PUBLIC. Then, they will be shared throughout the application.
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|