Hi all,<br>First I would really like to thank Paul for the script for the VAS it's great!<br>In my experiment I need to use the VAS both horizontally and vertically, and i need the needle starting position to be at the left and right edges (and not like Paul's VAS in the center).<br>For the horizontal VAS I managed to do it by adding another argument to VAS_DragScale so it looks like this:<br><br>Function VAS_DragScale(c As Context, strAttributeName as string, Optional duration as Variant, <u>Optional strSliderDirection as Variant</u>) as Integer<br><br>and than inside the function i added the following:<br><br>'set mouse cursor at left right or center position<br>    If IsMissing(strSliderDirection) then<br>        Mouse.SetCursorPos 0.5*(VAS_SliderDummy.Left+VAS_SliderDummy.Right), VAS_SliderDummy.Bottom<br>    else<br>        if strSliderDirection = "left" then<br>            Mouse.SetCursorPos VAS_SliderDummy.Left, VAS_SliderDummy.Bottom<br>        else<br>            if strSliderDirection = "right" then<br>                Mouse.SetCursorPos VAS_SliderDummy.Right, VAS_SliderDummy.Bottom<br>            end if<br>        end if<br>    End If<br><br>and in the trials I use an inline to tell the needle where to start.<br>That went fine but when I try to implement it in the vertical VAS it always starts from the bottom of the slider dummy text object,<br>I guess it is got to do with the fact that to create the vertical vas I just changed the slide text object (VAS_SliderDummy) dimensions, in the script basically changes every X to Y and vice versa, and every Object.Right to Object.Bottom and every Object.Left to Object.Top .<br>So for example my changes to the script above looks like this:<br><br>'set mouse cursor at up down or center position<br>    If IsMissing(strSliderDirection1) then<br>        Mouse.SetCursorPos 0.5*(VAS_SliderDummy.Bottom+VAS_SliderDummy.Top), VAS_SliderDummy.Left<br>    else<br>        if strSliderDirection1 = "top" then<br>            Mouse.SetCursorPos VAS_SliderDummy.Top, VAS_SliderDummy.Left<br>        else<br>            if strSliderDirection1 = "bottom" then<br>                Mouse.SetCursorPos VAS_SliderDummy.Bottom, VAS_SliderDummy.Left<br>            end if<br>        end if<br>    End If<br><br>As I mentioned it doesn't work.<br>If anyone got a clue I will be greatfull!<br>I attached the whole experiment if someone needs it and I would like to thank Paul again for the original script.<br>

<p></p>

-- <br />
You received this message because you are subscribed to the Google Groups "E-Prime" group.<br />
To unsubscribe from this group and stop receiving emails from it, send an email to e-prime+unsubscribe@googlegroups.com.<br />
To post to this group, send email to e-prime@googlegroups.com.<br />
To view this discussion on the web visit <a href="https://groups.google.com/d/msgid/e-prime/1af07bf2-5f71-4f20-baa4-3c0acb57543d%40googlegroups.com">https://groups.google.com/d/msgid/e-prime/1af07bf2-5f71-4f20-baa4-3c0acb57543d%40googlegroups.com</a>.<br />
For more options, visit <a href="https://groups.google.com/groups/opt_out">https://groups.google.com/groups/opt_out</a>.<br />
 <br />
 <br />