How to underline/highlight chosen answers?

[Paul Groot]

This is very similar to what I posted yesterday (to another question), but
I will extent the script a bit to make it more clear:

Dim strName as String
Dim theState as SlideState
Dim theText as SlideText
strName = "Odp" & Slide1.RESP
Set theState = Slide1.States (Slide1.ActiveState)
Set theText = CSlideText(theState.Objects(strName))
If Not theText Is Nothing Then
   ' just changing a few properties here...
   theText.BackColor = CColor("silver")
   theText.FontBold = CLogical("Yes")
   theText.FontUnderline = CLogical("Yes")
   theText.Draw
Else
   '  oops: unexpected response
End If

Make sure to replace Slide1 with the name of your slide. Also ,you still
have to make sure that the changed graphics will be visible for some time.
(E.g. use a wait object)

Paul



On 4 July 2013 15:41, Anna <osowska.anna at gmail.com> wrote:

> Hi David,****
>
> thank you for your reply but it’s not exactly what I’m looking for. I’m
> interested in a solution which will allow to underline text objects with
> the numbers of possible responses after respondent makes a choice using
> keyboard. For example, if respondent presses “1”, the text object with
> number “1”will be underlined/highlighted or its backcolor will change.****
>
> Have you got any idea how to do this?****
>
> Regards,****
>
> Anna****
>
> --
> 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/98d3fef9-9a87-45df-8883-b93290ce926d%40googlegroups.com
> .
> For more options, visit https://groups.google.com/groups/opt_out.
>
>
>

-- 
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/CAKAdR-tiEUjRKHg3apttYQs6eyzv7mGF%3DP4NYLqarLT2qYHyTw%40mail.gmail.com.
For more options, visit https://groups.google.com/groups/opt_out.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://listserv.linguistlist.org/pipermail/eprime/attachments/20130704/ff877bfd/attachment.htm>