E-prime 鼠标点击选择

实验过程：

       界面上有四个区域，每个区域显示一个数字，其中一个数字为正确答案，鼠标点击之后FeedbackDisplay给予反馈。

难点：

         1.E-prime默认不显示光标,怎样显示鼠标光标呢？又如何在显示下一个刺激时关掉鼠标光标呢？

         2.如何获得鼠标的点击信息？又如何根据点击信息确定点击区域呢？

针对第一个问题：

           我是在Slide6中收集鼠标点击，所以在此之前需要创建inline语句：

            Mouse.ShowCursor True

            这样光标就能好好显示了。相应的slide6显示后写入语句“Mouse.ShowCursor False”，鼠标光标就停止显示了。

针对第二个问题：

            Dim theState As SlideState

            Set theState=Slide6.States("Default")

            Dim strHit As String

            Dim theMouseResponseData As MouseResponseData

            If Slide6.InputMasks.Responses.Count > 0 then

                          Set theMouseResponseData=CMouseResponseData(Slide6.InputMasks.Responses(1)）

                          strHit = theState.HitTest(theMouseResponseData.CursorX,theMouseResponseData.CursorY)

                          '这一步就获取了鼠标点击的位置，并且这一步将鼠标点击的位置转换成所在位置控件的名称

                          If strHit=c.GetAttrib("answer")Then

                                     Slide6.CRESP=c.GetAttrib("answer")

                                     Slide6.ACC=1

                          End if

            End if

我还在List中对answer的值进行了修改：

answer的值全部改成了控件的名称"V1 ,V2,V3.."

这样只需要判断鼠标点击位置控件的名称是否和正确答案所在控件名称是否相同即可。

strHit=c.GetAttrib("answer")