ccccc - vb吧

level 7

skeiwi 楼主

大佬我又来了@初音✨七奈，怎么才能让list1内容迁到list2

2022年10月03日 03点10分 1

level 15

初音✨七奈

移动一个列表项，就是先把这一项添加（AddItem）到第二个列表框，再从第一个列表框里删除（RemoveItem）
另外题目中有判断重复的要求，但是判断时机好像不对，难道不是往List1里添加的时候就应该判断么

2022年10月03日 03点10分 2

skeiwi

@初音✨七奈 list1可以重复，添加到2时2如果重复了再判断

2022年10月03日 05点10分

skeiwi

这要咋输才能双击哪个移哪个

2022年10月03日 05点10分

初音✨七奈

@- 我就是说“list1允许重复”不合理 [滑稽]

2022年10月03日 05点10分

初音✨七奈

@skeiwi ListIndex属性表示选中项的序号，List(ListIndex)表示选中项的内容（完整写法应该像List1.List(List1.ListIndex)这样）

2022年10月03日 05点10分

level 15

初音✨七奈

判断是否有重复项，需要循环比较，代码如下：
For i = 0 To List2.ListCount - 1
If List1.List(List1.ListIndex) = List2.List(i) Then
MsgBox "该地名已存在"
Exit Sub
End If
Next i
如果没有重复项，程序就会正常结束循环之后继续执行，此时再移动List1的选中项即可

2022年10月03日 05点10分 4

skeiwi

我放哪个控件都输出不了 [喷]