| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 556 人关注过本帖
标题:[求助]关于列表框和组合框内容的互换
只看楼主 加入收藏
zhengzinan
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-7-14
收藏
 问题点数:0 回复次数:1 
[求助]关于列表框和组合框内容的互换

我编写的内容如下
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Combo1.AddItem Combo1.Text
Combo1.Text = ""
End If
End Sub

Private Sub List1_Click()
Combo1.AddItem List.Text
List1.RemoveItem List.ListIndex

End Sub
题目要求,在组合框中的文本框输入内容,回车后,组合框的内容转移到列表框中,单击列表框中的内容,内容转移到组合框中。

搜索更多相关主题的帖子: 列表 
2007-07-14 15:52
Joforn
Rank: 6Rank: 6
等 级:贵宾
威 望:23
帖 子:1242
专家分:122
注 册:2007-1-2
收藏
得分:0 

Option Explicit
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
List1.AddItem Combo1.Text
Combo1.Text = ""
End If
End Sub

Private Sub List1_Click()
Combo1.AddItem List1.Text
Combo1.Text = List1.Text
List1.RemoveItem List1.ListIndex
End Sub


VB QQ群:47715789
2007-07-14 17:17
快速回复:[求助]关于列表框和组合框内容的互换
数据加载中...
 
   



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

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