VB listbox 添加数据问题

现在list1中有几个数据例如:dfsgssgslist1.AddItem只能在最后增加,那如果我想选中了fs然后就在fs下增加一个数据abc怎样做呢?... 现在 list1中有几个数据例如:
d
fs
gss
gs

list1.AddItem 只能在最后增加,那如果我想选中了 fs 然后就在 fs 下增加一个数据 abc 怎样做呢?
展开
 我来答
211406
推荐于2016-07-14 · 超过15用户采纳过TA的回答
知道答主
回答量:55
采纳率:0%
帮助的人:0
展开全部
Private Sub Command1_Click()
'代码中Text1.Text是一个文本框用以输入要添加的数据
Dim mIndex As Integer
If List1.ListCount = 0 Then
List1.AddItem Text1.Text
Else
If List1.ListIndex >= 0 Then
mIndex = List1.ListIndex
List1.AddItem Text1.Text, mIndex + 1
Else
List1.AddItem Text1.Text
End If
End If
End Sub

本答案可以直接运行
hawking_xu
2009-09-29 · TA获得超过215个赞
知道小有建树答主
回答量:211
采纳率:0%
帮助的人:153万
展开全部
如果是vb6的话只能把fs后面的数据往下移,我以前也碰到过,所以努力找过办法
不过像这样的问题只要第一次写一个通用函数,以后调用就行了。
建立自己的小函数库还是很有必要的。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
tianqing20wen

2009-09-29 · TA获得超过2.4万个赞
知道大有可为答主
回答量:8226
采纳率:88%
帮助的人:4994万
展开全部
Private Sub Form_Load()
For i = 1 To 3
List1.AddItem i
Next
End Sub

Private Sub List1_DblClick()
List1.AddItem "wo", List1.ListIndex + 1
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
Treelab
2021-01-03 · 贡献了超过299个回答
知道答主
回答量:299
采纳率:100%
帮助的人:13.3万
展开全部

本节视频我们来聊一聊如何添加数据表的行与列。Treelab 官网:www.treelab.com.cn

已赞过 已踩过<
你对这个回答的评价是?
评论 收起
揭莞然H7
2009-10-05 · TA获得超过5683个赞
知道小有建树答主
回答量:893
采纳率:0%
帮助的人:652万
展开全部
'正确解答
Private Sub Command2_Click()
If List1.ListIndex >= 0 Then
List1.AddItem Text1.Text, List1.ListIndex + 1
End If
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(4)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式