Forum Home | Login

kutulu13

Join Date 09/2007

Retrieving Other Object Variables

I'm trying to retrive variable values from each object on my desktop by means of

"For each obj in DesktopX.Objects
MsgBox DesktopX.ScriptObject(obj.Name).objGroupNumber
Next"

The problem I have is that not all of my objects have "objGroupNumber" instantiated. When the for loop reaches an object without "objGroupNumber" instantiated it sends an "Object Required" error. Is there a way to check for object variables such as "IsObject" ?

Locked Post

Advanced Search

Watch this post

Do not email me updates for this post Email me updates for this post

Successfully updated karma reason!

sViz

Join Date 04/2006

+508

Is there a way to check for object variables such as "IsObject" ?

Not sure, but you can stick On Error Resume Next before your code so it will ignore the error and keep going.

On Error Resume Next
For Each obj In DesktopX.Objects
MsgBox DesktopX.ScriptObject(obj.Name).objGroupNumber
Next

Successfully updated karma reason!

Tried that. The Script continues execution but it causes another function in the script to fail when it resumes.

Successfully updated karma reason!

SirSmiley

Join Date 06/2005

+38

Without knowing more about the variable/script that you've provided it's hard to give complete answers. My thinking is that maybe an If Statement within the For Next statement may be all you need?

Code: vbscript
For each obj in DesktopX.Objects
If DesktopX.ScriptObject(obj.Name).objGroupNumber > 1 And DesktopX.ScriptObject(obj.Name).objGroupNumber < 30 Then
MsgBox DesktopX.ScriptObject(obj.Name).objGroupNumber
Else
End If
Next

If all your items aren't in the same group why not create some custom states or what I do is cheat & use the comment field as a sort of temp storage field.

The reason I do this is to reduce the number of open variables running in the script, in order to streamline a larger script.

Successfully updated karma reason!

Sign Up or Login and this ad disappears!
There are many great features available to you once you register. Sign Up for a free account and browse the forums without ads.

SirSmiley, did you miss the part about the variable not being SET? If I call "DesktopX.ScriptObject(obj.Name).objGroupNumber" without "objGroupNumber" being set on the object "obj.Name", it will give an "Object Required" error AKA no var.

What I'm doing is emulating a virtual desktop by hiding all of the objects on my desktop except one. The visible one is a triger for the rest of my objects. Each time I hit the trigger I want the trigger object to:
1) Hide all object that aren't hidden.
2) Search each object for "objGroupNumber" var. and based upon what number is set show the objects with the same number. Objects that dont have this var, "objGroupNumber", instantiated I want to remain hidden.

Successfully updated karma reason!

SirSmiley

Join Date 06/2005

+38

Okay. You are always going to get errors if you are searching each scripted object for a variable that isn't set. So, the only quick idea based on what you've given would be to set a zero-length string(or a null value) in all scripted objects then do the If Statement.

"Dim objGroupNumber
objGroupNumber=""

Code: vbscript
For each obj in DesktopX.Objects
If DesktopX.ScriptObject(obj.Name).objGroupNumber="" Then
Else
MsgBox DesktopX.ScriptObject(obj.Name).objGroupNumber
End If
Next

Successfully updated karma reason!

SirSmiley

Join Date 06/2005

+38

Ignore what I just said? This script worked for me.

Code: vbscript
For Each obj In DesktopX.Objects
On Error Resume Next
'MsgBox ("Error # " & CStr(Err.Number) & " " & obj.Name)
'Err.Clear      ' Clear the error.	
With DesktopX.ScriptObject(obj.Name)	
If .objGroupNumber=1 Then
DesktopX.Object(obj.Name).Visible = False
MsgBox .objGroupNumber
End If
End With

Successfully updated karma reason!

Welcome Guest! Please take the time to register with us.

There are many great features available to you once you register, including:

Richer content, access to many features that are disabled for guests like commenting and posting on the forums.
Access to a great community, with a massive database of many, many areas of interest.
Access to contests & subscription offers like exclusive emails.
It's simple, and FREE!

View all recent posts

Mark all posts as read Delete cookies created by the forum Return to Top

Stardock Forums v Server Load Time: Page Render Time: