Dx Scripting Help

from WinCustomize Forums

I am very new to dx and scripting, so bare with me.  I have a button that when pushed a tray slides out (called target6).  On target6 there is another button that when pushed will open another tray called target9.  Now when i push the original button that opens and closes target6, I would like it to not only close target6 but also target9.  I don't want the main button to open target9 just close it.  Here is just the script attached to the main button.  Works perfectly.  I have tried adding in just the closing portion of the script for target9 and it works, but it only works for target9 and not target6. Help Please.

 

Code
  3. 'Called when the script is executed
  4. Sub Object_OnScriptEnter
  6. End Sub
  8. 'Called when the script is terminated
  9. Sub Object_OnScriptExit
  11. End Sub
  13. Sub Object_OnScriptEnter
  14.   desktopx.Object("Target6").top = 0
  15. End Sub
  17. Function Object_OnLButtonUp(x, y, Dragged)
  18.   If Dragged = False Then
  19.     If desktopx.Object("Target6").Left = 0 Then
  20.       object.KillTimer 100
  21.       object.SetTimer 200,10
  22.     Else
  23.       object.KillTimer 200
  24.       object.SetTimer 100,10
  25.     End If
  26.   End If
  27. End Function
  28.  
  29. Sub object_ontimer100
  30.   If desktopx.Object("Target6").Left < 0 Then
  31.     desktopx.Object("Target6").Left = desktopx.Object("Target6").Left + 5
  32.   Else
  33.     object.KillTimer 100
  34.   End If
  35. End Sub
  36.  
  37. Sub object_ontimer200
  38.   If desktopx.Object("Target6").Left > - 300 Then
  39.     desktopx.Object("Target6").Left = desktopx.Object("Target6").Left - 5
  40.   Else
  41.     object.KillTimer 200
  42.   End If
  43. End Sub

9,206 views 6 replies
Reply #1 from WinCustomize Forums Top

in short (since i have no time to code)..

You need several vars.

Code: vbscript
  3. Dim DrawerOpen(10)  --- where 10 is the max number of drawers
  5. MaxDrawers = 10
  7. For x =1 to MaxDrawers
  8.   DrawerOpen(x) = False
  9. Next x

'-- That sets all the drawers to "closed" in the vars

'now in the button that opens the 1st drawer :
' as i have pointed out in multiple other posts (see THIS ONE) i would suggest 1 MASTER object and ALL the other objects having "empty" scripts in them, so that all the code resides in 1 location.  This allows you to easily keep track of things.

So lets say you named the button that opens the first drawer BTN1 & the btn that loads the 2nd slider BTN2 the code would look like:  -- keep in mind CaSe is important here

Code: vbscript
  3. Function Object_OnLButtonUpEx(obj,x,y,dragged)
  4.     If Not dragged Then
  5.         Select Case obj.name
  7.     Case "BTN1"
  9.         '-- ok here we have to make some assumtions - 1 that the drawers are named Drawer1/2/3 etc.
  10.        '-- we will toggle the open/close based on DrawerOpen(1) = True/False 
  12.     if DrawerOpen(1)= False then
  13.       'do whatever you want to open the drawer1 - the code above seems ok
  14.      ' at the END of that add:
  16.      DrawerOpen(1)= True
  18.     else
  20.       'Here is  the check to see if the 2nd drawer opens
  21.       if DrawerOpen(2)= True then ' close the 2nd drawer
  22.         'do whatever you want to close the 2nd drawer first
  23.         DrawerOpen(2)= False 'used to store the fact drawer 2 is closed now
  24.       end if
  26.          'then do whatever it takes to close drawer1
  27.      DrawerOpen(1) = False
  29.     end if
  31.     Case "BTN2"
  32.      'Add similar code here to open/close drawer2       
  33.     End Select
  34.   End If
  35. End Function

Ok i know its not 100% but it should put you on the right track.

1. always keep the code in 1 master object

2. use VARS to store open/closed states, etc.

3. i like to use DIM var so that you dont need things like Drawer1, Drawer2, drawer3, etc.. its all a DIM.. ie: Drawer(1), (2), (3) and its easy to traverse this list.

4. look at what others have done (Zu calls this STEALING but if you dont take their code, just the ideas, or if you ask for the code, its not Stealing) and see how others have done what you are trying to do

5. ok this sounds lame, but i wonder how many people do this.. TRY GOOGLE... ie: DesktopX Slide or DesktopX Buttons, etc.

Good luck

Reply #2 from WinCustomize Forums Top

Thanks for the reply will take all this into consideration.  Hopefully I can come up with a working script.  Will let ya know, thanks again.

Groupy 2 - Organize multiple applications into grouped tabs on your Windows desktop
Reply #3 from WinCustomize Forums Top

If not.. i will have some time over the weekend to look at things.. you could email me the dxpack.

Reply #4 from WinCustomize Forums Top

I will send it your way.  I looked over what you wrote and tried it out myself, but only came up with errors.  Guess there is still a lot that I don't understand.  Thanks

Reply #5 from WinCustomize Forums Top

Ok.. before you send things look over the demo i uploaded here

 

It should show you how to control some things, if you want me to work on you project later, let me know.

 

+1 Loading…
Reply #6 from WinCustomize Forums Top

Wow, you are awesome, will dig into that later :thumbsup: k6 :w00t: