How to display a selected response (selected by press a key in the keyboard)

[Chen]

Hi dear all,

I would like to highlight an object based on the subject's response.  

I learned from some codes when an object was selected by the subject with a 
mouse

...unfortunately I am not smart enough to apply it in when I ask my subject 
to give a response by pressing the key "2", "3", or "4".

 Basically my subject has 3 seconds to make a choice.  

I would like the box surrounding the selected option to change color (to 
green for example) while the slide is still displayed, or the words (in the 
text of the slide) change color.

My code is like this:

Dim theState As SlideState    '

Dim hitObject As SlideText  

Set theState = ResponseSlide.States(ResponseSlide.ActiveState)   
 'ResponseSlide is the name of the slide'

Select Case ResponseSlide.RESP

Case "2"

   hitObject = theState.Objects("Text1")

Case "3"

   hitObject = ResponseSlide.Name("Text2")

Case "4"

   hitObject = ResponseSlide.Name("Text3")

End Select

hitObject.BackColor = CColor("green")

hitObject.Draw

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

the error message is like this:

The object does not have an assignable default property.


~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Hope someone can help me...I have been stuck for an entire day...;-;

Thanks a lot in advance!

OLI:)

-- 
You received this message because you are subscribed to the Google Groups "E-Prime" group.
To unsubscribe from this group and stop receiving emails from it, send an email to e-prime+unsubscribe at googlegroups.com.
To post to this group, send email to e-prime at googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/e-prime/663fdc48-8a2b-449e-b7a8-3a9d759bc58d%40googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://listserv.linguistlist.org/pipermail/eprime/attachments/20140904/8c943d9f/attachment.htm>