Author Topic: Quick Drop Down conception.  (Read 12561 times)

0 Members and 1 Guest are viewing this topic.

Andrea

  • Water Moccasin
  • Posts: 2372
Quick Drop Down conception.
« on: December 21, 2009, 04:48:07 PM »
Hi all....

as you have seen on DiLeader Post..
this is my secret on how I have make the TAB-Drop-Down effect !

First, You need to create the TAB image file.
because in fact I use PictureBox with 3 event.
(OnClicked, OnMouseEntered and OnMouseMovedOff)
Than....move the control as shown below.

Code: [Select]
(defun c:DclForm1_PictureBox8_OnMouseEntered (/ pb8pos)
  (Setq pb8pos (Odcl_Control_GetCurPos Fruits_DclForm1_PictureBox8))
  (while (/= (nth 0 pb8pos) 0)
  (command "._delay" 1);;<-optional > = slower
  (Setq pb8pos (list (1+ (nth 0 pb8pos)) (nth 1 pb8pos) (nth 2 pb8pos) (nth 3 pb8pos)))
  (Odcl_Control_SetPos Fruits_DclForm1_PictureBox8 (nth 0 pb8pos)(nth 1 pb8pos)(nth 2 pb8pos)(nth 3 pb8pos)) 
  (Odcl_PictureBox_Refresh Fruits_DclForm1_PictureBox8)
)
  (princ)
)



(defun c:DclForm1_PictureBox8_OnMouseMovedOff (/ pb8pos)
  (Setq pb8pos (Odcl_Control_GetCurPos Fruits_DclForm1_PictureBox8))
  (while (/= (nth 0 pb8pos) -35)
  (command "._delay" 1);;<-optional > = slower
  (Setq pb8pos (list (1- (nth 0 pb8pos)) (nth 1 pb8pos) (nth 2 pb8pos) (nth 3 pb8pos)))
  (Odcl_Control_SetPos Fruits_DclForm1_PictureBox8 (nth 0 pb8pos)(nth 1 pb8pos)(nth 2 pb8pos)(nth 3 pb8pos))
  (Odcl_PictureBox_Refresh Fruits_DclForm1_PictureBox8)
)
  (princ)
)


You can  make any effect you want.....the limit is just your imagination...

enjoy !


« Last Edit: December 21, 2009, 04:54:34 PM by Andrea »
Keep smile...

Matt__W

  • Seagull
  • Posts: 12955
  • I like my water diluted.
Re: Quick Drop Down conception.
« Reply #1 on: December 21, 2009, 04:52:50 PM »
What do you win if you get 3 cherries in a row?  :lol:
Autodesk Expert Elite
Revit Subject Matter Expert (SME)
Owner/FAA sUAS Pilot @ http://skyviz.io

Andrea

  • Water Moccasin
  • Posts: 2372
Re: Quick Drop Down conception.
« Reply #2 on: December 23, 2009, 10:48:58 AM »
What do you win if you get 3 cherries in a row?  :lol:

You win the possibility to participate to a contest to win a chance to have a ticket for the ......


 :kewl:
Keep smile...

Matt__W

  • Seagull
  • Posts: 12955
  • I like my water diluted.
Re: Quick Drop Down conception.
« Reply #3 on: December 23, 2009, 10:53:31 AM »
What do you win if you get 3 cherries in a row?  :lol:

You win the possibility to participate to a contest to win a chance to have a ticket for the ......
For th-e-e-e-e-e-e-e.....??!??  What??!?
Autodesk Expert Elite
Revit Subject Matter Expert (SME)
Owner/FAA sUAS Pilot @ http://skyviz.io