VFP生成lable

[hzz1988]

我的check通过动态生成的。 代码如下：

ntop=10
thisform.pageframe1.AddObject("班级","Page")
cPage="thisform.pageframe1.班级"
oPage=EVALUATE(cPage)
FOR m.j=1 TO 10
cControlName="张三"+SYS(2015)
oPage.addobject(cControlName,"CheckBox")
oControl=EVALUATE("oPage."+cControlName)
oControl.visible=.t.
oControl.top=ntop
oControl.autosize=.t.
ntop=ntop+oControl.height+10
ENDFOR

-------------------------
请问 我怎么点击下面按钮。获取被选择的值 或者他的名字

[都市夜猫]

加一个按钮，Click 事件中写入：

Local op as Page
Local cc, oo, ii

m.op = Thisform.pageframe1.Pages(Thisform.pageframe1.PageCount)
m.cc = '你选择了：'
For m.ii = 1 to m.op.ControlCount
	m.oo = m.op.Controls(m.ii)
	If Lower(m.oo.BaseClass) == 'checkbox' and !Empty(m.oo.Value)
		m.cc = m.cc + Chr(13)+Chr(10)+ m.oo.Name
	EndIf
EndFor

MessageBox(m.cc)

[hzz1988]

引用 1 楼 dkfdtf 的回复:

加一个按钮，Click 事件中写入：

Local op as Page
Local cc, oo, ii

m.op = Thisform.pageframe1.Pages(Thisform.pageframe1.PageCount)
m.cc = '你选择了：'
For m.ii = 1 to m.op.ControlCount
	m.oo = m.op.Controls(m.ii)
	If Lower(m.oo.BaseClass) == 'checkbox' and !Empty(m.oo.Value)
		m.cc = m.cc + Chr(13)+Chr(10)+ m.oo.Name
	EndIf
EndFor

MessageBox(m.cc)

谢谢了，请问如果我那个图，里面张三满了。40个。怎么把pageframe1的滚动条掉出来

[oldbbb]

建议：将checkbox放到GRID去处理，便捷、高效。

[都市夜猫]

page 控件没有滚动条，不可能调出来 网上有个阿根廷人写的名为 ctl32 的 vfp9 类库，其中有个可滚动容器：http://www.ctl32.com/ 你可以将所有 checkbox 放到一个容器控件中，再把这个容器控件放到可滚动容器内