| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1177 人关注过本帖
标题:各位大神,小弟求教一个VB中Listbox控件列表中插入的问题
只看楼主 加入收藏
huangjunxing
Rank: 1
等 级:新手上路
帖 子:49
专家分:0
注 册:2014-8-13
结帖率:50%
收藏
已结贴  问题点数:20 回复次数:6 
各位大神,小弟求教一个VB中Listbox控件列表中插入的问题
图片附件: 游客没有浏览图片的权限,请 登录注册
如图所示,在鼠标选中的任意行后面,添加新的内容,请各位大神不吝赐教,小弟感激万分
搜索更多相关主题的帖子: 如图所示 
2016-09-27 22:48
pengzhanggui
Rank: 5Rank: 5
等 级:职业侠客
威 望:8
帖 子:161
专家分:344
注 册:2015-7-20
收藏
得分:5 
用click事件,弹出新的textbox,然后输入,回车,插入。

来找我试试看
2016-09-28 07:52
xzlxzlxzl
Rank: 15Rank: 15Rank: 15Rank: 15Rank: 15
来 自:湖北
等 级:贵宾
威 望:125
帖 子:1091
专家分:5825
注 册:2014-5-3
收藏
得分:5 
查看AddItem方法的参数:AddItem 添加字符,[添加位置]
据此代码“List1.AddItem 新数据, List1.ListIndex + 1”即可在选中的后面添加新数据,如未选中则添加新数据到第一个。
2016-09-28 09:06
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:5 
很简单的,看下面代码:
程序代码:
Private Sub Form_Load()
For I = 1 To 4
List1.AddItem I
Next I
End Sub

Private Sub List1_Click()
Dim AA As Integer
AA = List1.ListCount
AA = AA + 1
List1.Clear
For I = 1 To AA
List1.AddItem I
Next I
End Sub

每点击一次就会增加一个项目。

请不要选我!!!
2016-09-28 09:12
xzlxzlxzl
Rank: 15Rank: 15Rank: 15Rank: 15Rank: 15
来 自:湖北
等 级:贵宾
威 望:125
帖 子:1091
专家分:5825
注 册:2014-5-3
收藏
得分:0 
回复 4楼 ZHRXJR
你这样显然达不到楼主要求

'这样才行的
Private Sub List1_Click()
  List1.AddItem List1.ListCount + 1, List1.ListIndex + 1
End Sub
2016-09-28 09:14
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:0 
以下是引用xzlxzlxzl在2016-9-28 09:14:29的发言:

你这样显然达不到楼主要求

'这样才行的
Private Sub List1_Click()
  List1.AddItem List1.ListCount + 1, List1.ListIndex + 1
End Sub

呵呵,随便写了一下,见笑了。

请不要选我!!!
2016-09-28 09:27
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:941
专家分:5244
注 册:2015-8-10
收藏
得分:5 
3楼的正解
2016-09-28 10:44
快速回复:各位大神,小弟求教一个VB中Listbox控件列表中插入的问题
数据加载中...
 
   



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

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