|
GetReferenceCount Function
|
|
|
Prototype
|
Public Declare Function GetReferenceCount Lib "TclBridge.dll" (poObj As Object) As Long
|
|
Input
|
The "poObj" parameter, which is the object to query for a reference count.
|
|
Output
|
None.
|
|
Returns
|
The reference count of the specified object.
Please note that this may not be accurate due to how COM handles reference counts on some kinds of objects.
|
|
COM Results
|
Not applicable.
|
|
Side Effects
|
A temporary reference to the object is added and then released (should have no net effect).
|
|
Description
|
None.
|
|
Notes
|
The declaration for this function is in the "TclBridgeSupport" (TCLBSUPT.BAS) module.
|
|
Example
|
Private Sub Command1_Click()
Dim plResult As Long plResult = GetReferenceCount(Me) MsgBox "The result is: (" & plResult & ", " & pvResult & ")", vbInformation, App.Title End Sub |