[Code Snippet] Using With statement for cleaner code

from WinCustomize 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
3,209 views 13 replies
Reply #1 from WinCustomize Forums Top
Ditto for Javascript. (Haven't tried this in DesktopX, but the JScript language supports it.
Code: javascript
  1. With (Object)
  3. {
  5. Height += 20;
  7. Width += 20;
  9. }
Reply #2 from WinCustomize Forums Top
hmm.... The code feature didn't keep my linebreaks. had to go back and insert BR tags manually... ...and no colouring?
CursorFX - Customize your Windows cursor
Reply #3 from WinCustomize Forums Top
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.
Reply #4 from WinCustomize Forums Top
It seems to work with forms as well. Now that's where I can see it being really useful.

Code: vbscript
  2. Set frmfeed = DesktopX.CreateForm
  4. With frmfeed
  6. .AddPreference "title"
  8. .Preference("title").Type = "Text"
  10. .Preference("title").DefaultValue = "Title"
  12. .Preference("title").Caption = "Title"
  14. End With
Reply #5 from WinCustomize Forums Top
Good tip. I use it all the time in forms and never thought to try it with everything else.
Reply #6 from WinCustomize Forums Top
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?
Reply #7 from WinCustomize Forums Top
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)
Reply #8 from WinCustomize Forums Top
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"
Reply #9 from WinCustomize Forums Top
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
Reply #10 from WinCustomize Forums Top
Thanks.  Makes sense now.
 
Reply #11 from WinCustomize Forums Top
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
  2. '--position/aligned based on the main object
  4. Function posObject
  6. With DesktopX.Object("ExternalObject")
  8. .Left= Object.Right + 12 'Positions External Object to the left of main object
  10. .Top = Object.Top 'Aligns External Object Top to main object
  12. .ToolTipText = "This is My Object"
  14. End With
  16. End Function
Reply #12 from WinCustomize Forums Top
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
Reply #13 from WinCustomize Forums Top
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
  2. Const lLeft="objLeft",lMid="objMid",lRight="objRight",Label="txtLabel"
  6. Function sizeLabel
  8. With DesktopX
  10. .Object(lMid).Left = .Object(lLeft).Right
  12. .Object(lRight).Left = .Object(lMid).Right
  14. .Object(Label).Width = .Object(lLeft).Width+.Object(lMid).Width+.Object(lRight).Width
  16. '--mask adjustments
  18. Object.Width=.Object(lRight).Right
  20. Object.Height=.Object(lMid).Height
  22. End With
  24. End Function
  28. 'Called when the script is executed
  30. Sub Object_OnScriptEnter
  32. Call sizeLabel
  34. End Sub