| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 491 人关注过本帖
标题:【求助】关于组合框和列表框的问题
只看楼主 加入收藏
saiya_ma
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2007-4-10
收藏
 问题点数:0 回复次数:1 
【求助】关于组合框和列表框的问题
有一个组合框和一个列表框
组合框有四个选项,想选中一个就在列表框中添加,如果该项已经存在就不添加。

请教各位该怎么写?
搜索更多相关主题的帖子: 列表 
2007-06-03 17:34
ouzhiguang
Rank: 1
来 自:湖南长沙
等 级:新手上路
威 望:1
帖 子:240
专家分:0
注 册:2007-5-18
收藏
得分:0 

Private Sub Combo1_Click()
For i = 0 To List1.ListCount '列表项目个数
If List1.List(i) = Combo1.text Then'判断列表中是否跟组合框中有相同
MsgBox "该项目已经存在!"
Exit Sub
End If
Next i
List1.AddItem Combo1.Text'如果没有相同的就把组合框中的内容添加到列表中
End Sub

Private Sub Form_Load()
Combo1.AddItem "数学"'初始化组合框中四个选项!
Combo1.AddItem "语文"
Combo1.AddItem "英语"
Combo1.AddItem "物理"
End Sub

2007-06-04 10:35
快速回复:【求助】关于组合框和列表框的问题
数据加载中...
 
   



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

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