class表中有课程内容：语文、数学、科学、英语等等，字段名为lesson_name，动态添加的checkbox控件生成后，如何为控件添加click事件？

SELECT lesson
COPY TO array c_lesson fiel lesson_name for !EMPTY(lesson_name)
s_len = ALEN(c_lesson)

c_top = 100
c_left = 18
k = 1
FOR i = 1 to  s_len
    IF i = 4 then
        k = 1
        c_top = c_top + 20
    ENDIF
    str = 'checkbox'+ ALLTRIM(STR(i))
    thisform.addobject( str,'checkbox')
    with thisform.&str
        .top = c_top
        .left = c_left + k * 100
        .autosize = .t.
        .caption = c_lesson(i)
        .visible=.t.
        .click
    ENDWITH
    k = k + 1
ENDFOR

添加到表单的Activate事件中了

能具体说明一下吗？最好能提供代码，谢谢：）

（表单文件在下面）



[ 本帖最后由 lisxi 于 2014-2-22 20:02 编辑 ]

我是用VFP8.0编程的，表单已经上传，麻烦帮我写一下程序，只需要单击checkbox能在表单上的一个Label上显示课程名就可以了，前面说的有些看不太懂。谢谢：）

[ 本帖最后由 lisxi 于 2014-2-22 18:52 编辑 ]

重新上传表单文件

谢谢tony deng! 你在美国吗，这个时间上班？

[ 本帖最后由 lisxi 于 2014-2-22 19:17 编辑 ]

继续请教高手，求完整的程序，单击checkbox控件能在表单的Label上显示课程名称。

[ 本帖最后由 lisxi 于 2014-2-23 08:55 编辑 ]

谢谢sdta，果然是高手

谢谢：） 又多学到一种方法。