Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共6 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:如何实现以下的目的,谢谢

1楼
雨中的泪 发表于:2011/5/11 21:00:00

只选择复选框1时提示,选择了复选框1

只选择复选框2时提示,选择了复选框2

选择了1和2时,提示选择了复选框1、2

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table

2楼
雨中的泪 发表于:2011/5/11 21:19:00
搞定了
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table

3楼
czy 发表于:2011/5/11 21:21:00

呵呵,任意多个也没有这么复杂吧。

 

Dim s As String
For Each x As WinForm.Control In e.Form.Controls
    If Typeof x Is WinForm.CheckBox Then
        Dim c As WinForm.CheckBox = x
        If c.Checked = True
            s = s & " " & c.text
        End If
    End If
Next
If s = "" Then
    MessageBox.Show("你没有做出选择")
Else
    MessageBox.Show("你选择了 " & s)
End If

4楼
雨中的泪 发表于:2011/5/11 22:42:00
全选和全反选如何实现?
5楼
雨中的泪 发表于:2011/5/11 23:29:00

老大

全选和全反选如何实现?

6楼
czy 发表于:2011/5/12 0:46:00

For Each x As WinForm.Control In e.Form.Controls
    If Typeof x Is WinForm.CheckBox Then
        Dim c As WinForm.CheckBox = x
        c.Checked = True
    End If
Next

 

For Each x As WinForm.Control In e.Form.Controls
    If Typeof x Is WinForm.CheckBox Then
        Dim c As WinForm.CheckBox = x
        c.Checked = False
    End If
Next

共6 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03320 s, 4 queries.