pchome

第一互动时尚科技门户

怎么用VB在command上输出代码将list1中选中的数据移动到list2中

相机包

赛腾

赛腾 ST1

讨论回答 (5)

Private Sub Command1_Click()
  List2.AddItem List1.List(List1.ListIndex)
  If List1.ListIndex <> -1 Then
  List1.RemoveItem List1.ListIndex
  End If

End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 1 To 5
  List1.AddItem i
Next

End Sub

用VB做两个列表框之间数据移动其实挺基础的，command按钮触发的时候，先判断list1有没有选中内容，比如用IflistListIndex<>-1Then这样的语句来判断。然后用listAddItemlistText把选中的内容添加到list2中，接着listRemoveItemlistListIndex把原列表里的内容删掉。不过有时候可能会遇到重复添加的问题，所以可以加一个检查list2是否已经存在该值的判断。这样就不会重复了，代码写起来也比较稳妥

VB操作列表框移动数据这个功能挺常见的，我之前也做过类似的功能。你可以在按钮的Click事件里面写代码，首先判断list1有没有选中项，可以用listListIndex是否等于-1来判断。如果选中了，就用listAddItemlistText来添加项，接着用listRemoveItemlistListIndex来移除原来的项。这样就能实现移动了。不过如果是多选的话可能需要循环处理多个选中项，这时候就要用到listSelected属性来遍历

我记得在VB里实现这个功能应该不难，你可以先找到list1选中的项，用listListIndex来获取当前选中的索引，然后判断是不是有效索引（比如不等于-1），然后用listAddItem把list1的文本加进去，之后再用listRemoveItem把原来的删掉。不过要注意顺序，先删掉的话索引可能会变，所以最好先把值保存下来。网上好像也有很多类似的例子可以参考

1元起，底价买苹果华为新品手机去购买

相关问题

为何我电脑中只有Realtex HD Audio output，没有Realtex HD Audio Input，电脑有声音，但麦克风不能录音

9973 浏览 4 回答

DNF机械第五章的g系列受魔法暴击限制么

9888 浏览 4 回答

惠普5525如何消除更换传送装置的提示

9841 浏览 5 回答

想买手机，1200～1600左右的的手机哪款性价比高，值得购置？

9400 浏览 4 回答

IXUS系列中有比较沉稳的颜色的相机吗？

9260 浏览 4 回答

dnf+11的50蓝手镯价钱

9151 浏览 4 回答

《打上花火》《海之幽灵》《Orion》分别是哪部动漫的歌曲?

8683 浏览 7 回答

DEll电脑windows7内部版本7601此windows副本不是正版并且还连不上网

8213 浏览 5 回答

佳能 IXUS系列哪款最好？

6654 浏览 5 回答

y52st1版是什么意思

6413 浏览 6 回答

TCLD电视32F3380E有声音图像黑暗

6367 浏览 4 回答

dell1510和1420哪个更好呀？

6002 浏览 3 回答

柯南震惊警视厅的1200万人质与通往天国的倒计时好看吗？

5856 浏览 4 回答

摩托罗拉1200按钮除了开机键别到全失灵怎么修？

5722 浏览 6 回答

热门问题

photosh来自op蒙版前途色白色无法还原

9998 浏览 5 回答

wps默认的字体特别小，怎么修改默认打开字体的大小

9998 浏览 5 回答

华为电视忽然不支持爱奇艺?

9998 浏览 4 回答

南京现在哪里有广告公司招聘

9997 浏览 2 回答

条件最小值函数excel公式

9997 浏览 3 回答

三星9100和苹果4s哪款好

9997 浏览 8 回答

手机充不起电，拿去维修要价钱

9997 浏览 4 回答

就是一有电话或者信息，他就会说来自谁谁谁的电话或者信息，随后我想问的是怎么把它关掉？

9997 浏览 5 回答

谁知道人参果的代码

9997 浏览 6 回答

苹果x美版 MQAR2LL/A是无锁吗 A1901是无锁的吗?可以恢復出厂吗

9997 浏览 5 回答

最新问答

怎么用天天动听设定滚动字幕

4555 浏览 6 回答

小米升级以后来电往上滑怎么处理

5636 浏览 7 回答

正常人一小时能背诵多少字？

6890 浏览 7 回答

农业银行app隐藏卡号电子账户没了

4025 浏览 4 回答

小米2s手机左上角状态栏的日历怎样取消?

6028 浏览 4 回答

小米影视年卡值得买吗

7535 浏览 4 回答

OPPO手机电影方式是干嘛的?

7769 浏览 5 回答

小米是否有高端机型

276 浏览 6 回答

soul背景3d形象肿么打开

7045 浏览 5 回答

使用360安全浏览器时收藏夹内容都显示出来怎么样把它隐藏起来

9891 浏览 5 回答

电脑版 ©2025 电脑之家版权所有