Search
Forum Home | Login
SirSmiley
SirSmiley
Join Date 06/2005
+38

[Code Snippet] Using With statement for cleaner code

May 22, 2007 6:25:48 PM from WinCustomize ForumsWinCustomize Forums
So, I'm browsing through the MS Scripting Help file and stumble upon a statement I forgot about completely... from back in my Access days. I opened up Builder and found the With Statement works really well in DesktopX. I'm not using the vbscript tags because the seemed be striping the formatting.

With object
    statements
End With

Using it from within an object:

Sub MySub
'--Changes object size
With Object
   .Height = 128
   .Width = 128
   .ToolTipText = "This is My Object"
End With
End Sub

Referencing another object:

Sub MySub
'--Changes object size
With DesktopX.Object("AnotherObject")
   .Height = 128
   .Width = 128
   .ToolTipText = "This is My Object"
End With
End Sub

Within the timer function I found this to work also:

Sub Object_OnTimer100
'--Grows the object until timer is killed
With Object
   .Height = .Height + 20
   .Width = .Width + 20
End With
End Sub


desktopx
Locked Post
Search this post
Advanced Search
Subscription Options
Reason for Karma (Optional)
Successfully updated karma reason!
SirSmiley
thomassen
Join Date 01/2003
+10
Reply #1 May 22, 2007 6:44:57 PM
from WinCustomize ForumsWinCustomize Forums
Ditto for Javascript. (Haven't tried this in DesktopX, but the JScript language supports it.
Code: javascript
  1. With (Object)
  2. {
  3. Height += 20;
  4. Width += 20;
  5. }
Reason for Karma (Optional)
Successfully updated karma reason!
SirSmiley
thomassen
Join Date 01/2003
+10
Reply #2 May 22, 2007 6:46:59 PM
from WinCustomize ForumsWinCustomize Forums
hmm.... The code feature didn't keep my linebreaks. had to go back and insert BR tags manually... ...and no colouring?
Reason for Karma (Optional)
Successfully updated karma reason!
SirSmiley
SirSmiley
Join Date 06/2005
+38
Reply #3 May 22, 2007 9:39:35 PM
from WinCustomize ForumsWinCustomize Forums
Thanks. Don't know why I didn't check that out as I always use the big WSH Help file which contains everything.

hmm.... The code feature didn't keep my linebreaks. had to go back and insert BR tags manually... ...and no colouring?


Noticed this the other day. Hope it gets fixed soon as it's a nice feature.
Reason for Karma (Optional)
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
SirSmiley
Join Date 06/2005
+38
Reply #4 May 22, 2007 10:01:59 PM
from WinCustomize ForumsWinCustomize Forums
It seems to work with forms as well. Now that's where I can see it being really useful.

Code: vbscript
  1. Set frmfeed = DesktopX.CreateForm
  3. With frmfeed
  5. .AddPreference "title"
  7. .Preference("title").Type = "Text"
  9. .Preference("title").DefaultValue = "Title"
  11. .Preference("title").Caption = "Title"
  13. End With
Reason for Karma (Optional)
Successfully updated karma reason!
SirSmiley
sViz
Join Date 04/2006
+508
Reply #5 May 23, 2007 8:27:13 AM
from WinCustomize ForumsWinCustomize Forums
Good tip. I use it all the time in forms and never thought to try it with everything else.
Reason for Karma (Optional)
Successfully updated karma reason!
SirSmiley
SirSmiley
Join Date 06/2005
+38
Reply #6 May 23, 2007 1:19:58 PM
from WinCustomize ForumsWinCustomize Forums
That's why I like throwing things out there. Because you never the uses someone will come up with.

On a simple object it's probably not that useful but, maybe would save a few bytes in the script. On a large script I'm wondering if it might slow things down slightly?
Reason for Karma (Optional)
Successfully updated karma reason!
SirSmiley
ZubaZ
Join Date 11/2001
+917
Reply #7 May 23, 2007 1:34:54 PM
from WinCustomize ForumsWinCustomize Forums
OK . . I rode a short bus to work this morning . . so help me out learning something new.

What's it do better than some other way of doing something?  Why use it?  How to use it in the real world?

(sorry for being so clueless)
Reason for Karma (Optional)
Successfully updated karma reason!
SirSmiley
SirSmiley
Join Date 06/2005
+38
Reply #8 May 23, 2007 1:52:27 PM
from WinCustomize ForumsWinCustomize Forums
IMO it's mostly an aesthetics thing but, it will save some bytes or more to your script.

Since I'm lazy I'll just use the forms example difference using five settings.

Normal Example:

Code: vbscript
  1. Set myform = DesktopX.CreateForm
  5. myform.AddPreference "title"
  7. myform.Preference("title").Type = "Text"
  9. myform.Preference("title").DefaultValue = "Title"
  11. myform.Preference("title").Caption = "Title"
  15. myform.AddPreference "title"
  17. myform.Preference("title").Type = "Text"
  19. myform.Preference("title").DefaultValue = "Title"
  21. myform.Preference("title").Caption = "Title"
  25. myform.AddPreference "title"
  27. myform.Preference("title").Type = "Text"
  29. myform.Preference("title").DefaultValue = "Title"
  31. myform.Preference("title").Caption = "Title"
  35. myform.AddPreference "title"
  37. myform.Preference("title").Type = "Text"
  39. myform.Preference("title").DefaultValue = "Title"
  41. myform.Preference("title").Caption = "Title"
  45. myform.AddPreference "title"
  47. myform.Preference("title").Type = "Text"
  49. myform.Preference("title").DefaultValue = "Title"
  51. myform.Preference("title").Caption = "Title"
Reason for Karma (Optional)
Successfully updated karma reason!
SirSmiley
SirSmiley
Join Date 06/2005
+38
Reply #9 May 23, 2007 1:55:00 PM
from WinCustomize ForumsWinCustomize Forums
Using With Statement Example:

Code: vbscript
  1. Set myform = DesktopX.CreateForm
  3. With myform
  5. .AddPreference "title"
  7. .Preference("title").Type = "Text"
  9. .Preference("title").DefaultValue = "Title"
  11. .Preference("title").Caption = "Title"
  15. .AddPreference "title"
  17. .Preference("title").Type = "Text"
  19. .Preference("title").DefaultValue = "Title"
  21. .Preference("title").Caption = "Title"
  25. .AddPreference "title"
  27. .Preference("title").Type = "Text"
  29. .Preference("title").DefaultValue = "Title"
  31. .Preference("title").Caption = "Title"
  35. .AddPreference "title"
  37. .Preference("title").Type = "Text"
  39. .Preference("title").DefaultValue = "Title"
  41. .Preference("title").Caption = "Title"
  45. .AddPreference "title"
  47. .Preference("title").Type = "Text"
  49. .Preference("title").DefaultValue = "Title"
  51. .Preference("title").Caption = "Title"
  55. End With
Reason for Karma (Optional)
Successfully updated karma reason!
SirSmiley
ZubaZ
Join Date 11/2001
+917
Reply #10 May 23, 2007 2:07:28 PM
from WinCustomize ForumsWinCustomize Forums
Thanks.  Makes sense now.
 
Reason for Karma (Optional)
Successfully updated karma reason!
SirSmiley
SirSmiley
Join Date 06/2005
+38
Reply #11 May 23, 2007 2:30:35 PM
from WinCustomize ForumsWinCustomize Forums
The other thing to keep in mind when dealing with objects is that you can only reference one object using the With Statement but, they can be nested like if statements. If possible I'd reference the external object using this method.

For Example:
This code uses the with statement for the external object.

Code: vbscript
  1. '--position/aligned based on the main object
  3. Function posObject
  5. With DesktopX.Object("ExternalObject")
  7. .Left= Object.Right + 12 'Positions External Object to the left of main object
  9. .Top = Object.Top 'Aligns External Object Top to main object
  11. .ToolTipText = "This is My Object"
  13. End With
  15. End Function
Reason for Karma (Optional)
Successfully updated karma reason!
SirSmiley
RomanDA
Join Date 12/2003
+147
Reply #12 May 23, 2007 3:03:45 PM
from WinCustomize ForumsWinCustomize Forums
looks great. I use this a lot in the forms i have setup.
Look at some of the right-click menus.

haven't thought to use it in all the "object" type settings, but it looks good.

and no, im not dead.. yet.... I have a new tutorial coming .. soon
Reason for Karma (Optional)
Successfully updated karma reason!
SirSmiley
SirSmiley
Join Date 06/2005
+38
Reply #13 May 23, 2007 3:22:29 PM
from WinCustomize ForumsWinCustomize Forums
Guess, I would've figured this out sooner if I actually looked at every widget/object's code.

RomanDA, damn you and your tutorials making me too lazy!

Edit: Haven't gotten Nested With Statements to work like in my old modules but, it works fine with the "DesktopX" namespace

Code: vbscript
  1. Const lLeft="objLeft",lMid="objMid",lRight="objRight",Label="txtLabel"
  5. Function sizeLabel
  7. With DesktopX
  9. .Object(lMid).Left = .Object(lLeft).Right
  11. .Object(lRight).Left = .Object(lMid).Right
  13. .Object(Label).Width = .Object(lLeft).Width+.Object(lMid).Width+.Object(lRight).Width
  15. '--mask adjustments
  17. Object.Width=.Object(lRight).Right
  19. Object.Height=.Object(lMid).Height
  21. End With
  23. End Function
  27. 'Called when the script is executed
  29. Sub Object_OnScriptEnter
  31. Call sizeLabel
  33. End Sub
Reason for Karma (Optional)
Successfully updated karma reason!
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: