专家坐堂-遍历画板中的多选框的相关问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  遍历画板中的多选框的相关问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103301)

--  作者：李小胖
--  发布时间：2017/7/5 14:41:00
--  遍历画板中的多选框的相关问题

Dim panel1 As WinForm.Panel = e.Form.Controls("Panel2")
For Each outCB As WinForm.Control In panel1.Children
If outCB Is FoxTable.WinForm.CheckBox Then
MessageBox.Show(outCB.Tostring())
End If
Next

此主题相关图片如下：222222.png
这个应该怎么写才对呢?

--  作者：有点甜
--  发布时间：2017/7/5 14:50:00
--
Dim panel1 As WinForm.Panel = e.Form.Controls("Panel2")
For Each outCB As WinForm.Control In panel1.Children
    If typeof outCB Is FoxTable.WinForm.CheckBox Then
        MessageBox.Show(outCB.Tostring())
    End If
Next

--  作者：李小胖
--  发布时间：2017/7/5 15:06:00
--

Dim panel1 As WinForm.Panel = e.Form.Controls("Panel2")
For Each outCB As WinForm.Control In panel1.Children
If typeof outCB Is FoxTable.WinForm.CheckBox Then
If (CheckBox(outCb).Checked = True Then

End If
End If
Next

此主题相关图片如下：33333333.png

[此贴子已经被作者于2017/7/5 15:09:58编辑过]

--  作者：有点甜
--  发布时间：2017/7/5 15:14:00
--
Dim panel1 As WinForm.Panel = e.Form.Controls("Panel2")
For Each outCB As object In panel1.Children
    If typeof outCB Is FoxTable.WinForm.CheckBox Then
        If outcb.checked = True Then

        End If
    End If
Next