| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2300 人关注过本帖
标题:选择传感器界面的问题
只看楼主 加入收藏
chen3bing
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:507
专家分:104
注 册:2008-11-12
结帖率:91.22%
收藏
已结贴  问题点数:10 回复次数:8 
选择传感器界面的问题
图片附件: 游客没有浏览图片的权限,请 登录注册

界面大概如上图。领导要求,8个选择按钮,上面四个一组,下面四个一组。
上面四个最多选择一个,也可以不选;下面四个最多选择一个,也可以不选。
我感觉不好实现,用单选按钮,8个只能选择一个,放到两个frame控件里至少选择一个,不可以不选。
用复选按钮,又可以选择多个,都不符合要求。请问高手,有什么好办法?谢谢!
搜索更多相关主题的帖子: 选择 界面 传感器 按钮 要求 
2020-02-26 14:50
ysr2857
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:34
帖 子:809
专家分:77
注 册:2020-2-10
收藏
得分:1 
我的解决方法供参考:下面一组选择令一种控件,相当于单选按钮,只是不方便了,如下面的控件用下拉菜单列表,用几个按钮分别输入几行,在属性窗口每行赋值为0,1,2,3.
点下拉按钮,选0123就行。不懂,猜测,试试可行不。
2020-02-26 15:37
chen3bing
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:507
专家分:104
注 册:2008-11-12
收藏
得分:0 
没看明白什么意思
2020-02-26 15:40
ysr2857
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:34
帖 子:809
专家分:77
注 册:2020-2-10
收藏
得分:0 
下面给代码举例,两行的程序,分别输入了+   -符号,你可以多用两行,用4行。
Private Sub Form_Load()
With Combo1
.AddItem "+"
.AddItem "-"
.ListIndex = 0
End With
2020-02-26 15:45
ysr2857
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:34
帖 子:809
专家分:77
注 册:2020-2-10
收藏
得分:0 
这里的.ListIndex = 0  就是不点击的时候始终选第一行。
2020-02-26 15:49
ysr2857
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:34
帖 子:809
专家分:77
注 册:2020-2-10
收藏
得分:0 
代码可以这样:
Private Sub Form_Load()
With Combo1
.AddItem "序号5"
.AddItem "序号6"
.AddItem "序号7"
.AddItem "序号8"
.ListIndex = 0
End With
end  sub
2020-02-26 16:04
chen3bing
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:507
专家分:104
注 册:2008-11-12
收藏
得分:0 
谢谢!明白什么意思了。可是这样貌似不行,两个组合框,这样写至少选择一个序号,不能不选。
2020-02-26 16:35
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:8 
下拉列表,不方便操作。
建议用复选框。
在复选框响应事件里判断一下。

如果当前点击的控件为选中,那么就清掉其它选项的选择。这个直接使用循环直接清就行了。
否则不清了。

Private Sub Check1_Click(Index As Integer)
Dim ck As CheckBox                      '定义变量
If Check1(Index).Value = 1 Then         '当前是否选择
    For Each ck In Check1               '循环开始
        If ck.Index <> Index Then       '是否是当前控件
            ck.Value = 0                '不是,则设置未选择
        End If
    Next
End If
End Sub

授人于鱼,不如授人于渔
早已停用QQ了
2020-02-26 17:58
wmf2014
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:216
帖 子:2039
专家分:11273
注 册:2014-12-6
收藏
得分:1 
Private Sub Command1_Click()
  '取消选择
  Option1.Value = False
  Option2.Value = False
  Option3.Value = False
  Option4.Value = False
End Sub


能编个毛线衣吗?
2020-02-26 18:34
快速回复:选择传感器界面的问题
数据加载中...
 
   



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

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