| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 772 人关注过本帖
标题:在限制下。怎样使鼠标勾选 选不上呢?高人指点、、、、
只看楼主 加入收藏
大头0927
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2010-12-8
结帖率:50%
收藏
已结贴  问题点数:20 回复次数:3 
在限制下。怎样使鼠标勾选 选不上呢?高人指点、、、、
实验1.3 设计一个表决器,表决器中有6个候选项(如北京、上海、深圳、广州、武汉、南京),单选按钮有1、2、3、4,当选择3时,只能选择3个候选城市,通过程序自动限制复选框的选择数量,【提交】后将选择的城市显示在编辑框中,如图1-3所示。
图片1.rar (8.11 KB)



就是这个东西  在限制下  怎样才能选不上呢?或者别的好方法?求助。来自学者   
搜索更多相关主题的帖子: 候选城市 上海 北京 深圳 广州 
2011-03-20 00:28
qq1023569223
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
来 自:湖南科技大学
等 级:贵宾
威 望:26
帖 子:2753
专家分:13404
注 册:2010-12-22
收藏
得分:10 
变更Enable属性吧!

   唯实惟新 至诚致志
2011-03-20 09:26
oulihua75316
Rank: 2
来 自:湖南永州
等 级:论坛游民
帖 子:11
专家分:72
注 册:2011-3-20
收藏
得分:10 


测试效果:
图片附件: 游客没有浏览图片的权限,请 登录注册

程序代码:
Dim a As Integer                                 '判断复选框个数
Dim b As Integer                                 '判断单选框个数
Dim x As Integer                                 '用于循环显示选项
Private Sub Check1_Click(Index As Integer)
If Check1.Item(Index).Value = 1 Then             '如果是勾选
    If a < b Then                                '如果同时在设置数量范围内
        a = a + 1                                '记录选择个数
    Else
        Check1.Item(Index).Value = 0             '如果在范围外,则不选择
        a = a + 1
    End If
ElseIf Check1.Item(Index).Value = 0 Then         '如果是取消勾选
    a = a - 1                                    '记录选择个数
End If

Text1.Text = ""                                  '清空文本框,以用来重新显示选择项
For x = 0 To 5
    If Check1.Item(x).Value = 1 Then
        Text1.Text = Text1.Text & " " & Check1.Item(x).Caption
    End If
Next x

End Sub

Private Sub Form_Load()
Dim i As Integer
a = 0
b = 1
End Sub

Private Sub Option1_Click(Index As Integer)         '每次选择,清空以前选项
b = Index + 1
For i = 0 To 5
    Check1.Item(i).Value = 0
Next i
a = 0                                                  '同时清空记录数
End Sub

笨笨熊真的很郁闷,因为没人喜欢它……
2011-03-20 19:22
大头0927
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2010-12-8
收藏
得分:0 
回复 3楼 oulihua75316
  厉害  谢啦!是c#编的吗?
呵呵、、、、、、、
2011-03-29 22:51
快速回复:在限制下。怎样使鼠标勾选 选不上呢?高人指点、、、、
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015882 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved