Slow "comparison/replace" script

CoolBlue · #36 06-25-2014, 08:57 AM

Quote:

Originally Posted by whatsup

I see your correction, but you still left out an important thing:
That's especially important for object-variables which are set to an object like "As Worksheet". That's because the lng_ObjPtr we obtain from objwks is the same as we get from ObjPtr(Sheet1). Since Sheet1 still exists when we check afterwards, it doesn't tell if the reference hold by VarPtr(objwks) has been released.

Yes, I see what you mean... I got myself confused trying to explain it. Unfortunately my time to edit it has expired already.

Quote:

Originally Posted by whatsup

I have to come back on the example in my file for Run11_clsTest()....
I still don't know why

Code:

lng_objcls1 = ObjPtr(Class1)

isn't accepted, but with "Me" it works.

Its because Class1 is not an object, its a Class template if you like.
ObjPtr(Class1) is like VarPtr(LongPtr) or ObjPtr(Collection)
These are semantic representations of definitions of data structures, not objects. But, yep, that is what the Me statement is for. It refers to the particular instance of the object of type Class1. So every instance of type Class1 has its own "Me"... a pointer to itself. But a Class cannot have a pointer to itself, coz it's not an object, only a definition of a type of object.

I'n not sure what VarPtr(Me) is though... I can't figure that on out and the contents of that location are zero. That one is making my head spin

Quote:

Originally Posted by whatsup

I don't get what exactly you are after, but I guess you will surprise me again

Well, we will see... I'm struggling with it.
I am hoping to have something like this...

Code:

Sub testObj()
Const objBytes As Long = 32
Dim o As clReferrence
Dim lObj As Worksheet

    Set gwks = Worksheets(1)
    
    Set lObj = gwks
    Set o = New clReferrence
    o.initObject objBytes, lObj
    
    Debug.Print "Address:  " & o.Address & vbTab & "Contents:  " & o.Contents
    Debug.Print "pAddress: " & o.pAddress & vbTab & "pContents: " & o.pContents

End Sub

But its hard to pass a reference to lobj (in other words VarPtr(lobj)) into the clReferrence object. VBA tends to resolve the reference all the way to gwks and the address of the local variable is discarded when you pass it into the Class Object.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Wierd "script code" in a downloaded .doc file	CNBarnes	Word	2	10-18-2012 02:07 AM
replace data from variable with "sub and super script" from excel to word by vba	krishnaoptif	Word VBA	9	06-22-2012 05:08 AM
How to choose a "List" for certain "Heading" from "Modify" tool?	Jamal NUMAN	Word	2	07-03-2011 03:11 AM
Rules and Alerts: "run a script"?	discountvc	Outlook	0	06-15-2010 07:36 AM
An "error has occurred in the script on this page"	decann	Outlook	8	09-03-2009 08:54 AM