各位大神，小弟求教一个VB中Listbox控件列表中插入的问题 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 各位大神，小弟求教一个VB中Listbox控件列表中插入的问题

标题：各位大神，小弟求教一个VB中Listbox控件列表中插入的问题

只看楼主

huangjunxing

等　级：新手上路
帖　子：49
专家分：0
注　册：2014-8-13
结帖率：50%

楼主

已结贴√ 问题点数：20 回复次数：6

各位大神，小弟求教一个VB中Listbox控件列表中插入的问题

如图所示，在鼠标选中的任意行后面，添加新的内容，请各位大神不吝赐教，小弟感激万分

搜索更多相关主题的帖子: 如图所示　

2016-09-27 22:48

pengzhanggui

等　级：职业侠客
威　望：8
帖　子：161
专家分：344
注　册：2015-7-20

第 2 楼

得分:5

用click事件，弹出新的textbox，然后输入，回车，插入。

来找我试试看

2016-09-28 07:52

xzlxzlxzl

来　自：湖北
等　级：贵宾
威　望：125
帖　子：1091
专家分：5825
注　册：2014-5-3

第 3 楼

得分:5

查看AddItem方法的参数：AddItem 添加字符,[添加位置]
据此代码“List1.AddItem 新数据, List1.ListIndex + 1”即可在选中的后面添加新数据，如未选中则添加新数据到第一个。

2016-09-28 09:06

ZHRXJR

等　级：版主
威　望：125
帖　子：1034
专家分：5519
注　册：2016-5-10

第 4 楼

得分: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

来　自：湖北
等　级：贵宾
威　望：125
帖　子：1091
专家分：5825
注　册：2014-5-3

第 5 楼

得分:0

回复 4楼 ZHRXJR

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

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

2016-09-28 09:14

ZHRXJR

等　级：版主
威　望：125
帖　子：1034
专家分：5519
注　册：2016-5-10

第 6 楼

得分: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

等　级：贵宾
威　望：86
帖　子：934
专家分：5244
注　册：2015-8-10

第 7 楼

得分:5

3楼的正解

2016-09-28 10:44

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-469274-1-1.html