注册 登录
编程论坛 VB6论坛

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

huangjunxing 发布于 2016-09-27 22:48, 1275 次点击
只有本站会员才能查看附件,请 登录
如图所示,在鼠标选中的任意行后面,添加新的内容,请各位大神不吝赐教,小弟感激万分
6 回复
#2
pengzhanggui2016-09-28 07:52
用click事件,弹出新的textbox,然后输入,回车,插入。
#3
xzlxzlxzl2016-09-28 09:06
查看AddItem方法的参数:AddItem 添加字符,[添加位置]
据此代码“List1.AddItem 新数据, List1.ListIndex + 1”即可在选中的后面添加新数据,如未选中则添加新数据到第一个。
#4
ZHRXJR2016-09-28 09:12
很简单的,看下面代码:
程序代码:
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

每点击一次就会增加一个项目。
#5
xzlxzlxzl2016-09-28 09:14
回复 4楼 ZHRXJR
你这样显然达不到楼主要求

'这样才行的
Private Sub List1_Click()
  List1.AddItem List1.ListCount + 1, List1.ListIndex + 1
End Sub
#6
ZHRXJR2016-09-28 09:27
以下是引用xzlxzlxzl在2016-9-28 09:14:29的发言:

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

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

呵呵,随便写了一下,见笑了。
#7
xiangyue05102016-09-28 10:44
3楼的正解
1