list列表问题

来源：百度知道 编辑：UC知道 时间：2024/06/15 05:28:34
我的list列表有N项

============================================================

我的要求是：如果list列表里面的任何一项，如果包含我指定的字符

则将该项输入到combobox，有几项则输入几项到combobox。

=================================================================

例如：

list列表如下：

迅雷5
132165
与 132132
adasd 与
……

而我指定的字符就是“与”。

则将

与 132132
adasd 与
输入到combobox中~~

================================================================
请给出详细源码~，没有看懂者，不会者，灌水者，请不要回复~谢谢~
================================================================
===============================================================================
对于已经添加进去的不要重复添加
还有，重新选择指定字符输入到combobox的时候
将上次输入到combobox的全部清除
================================================================

Private Sub Command1_Click()
Combo1.Clear
Dim a As String, b As Integer
Dim i As Integer
a = InputBox("请指定")
If a <> "" Then
For i = 0 To List1.ListCount - 1
b = InStr(List1.List(i), a)
If b <> 0 Then Combo1.AddItem List1.List(i)
If Combo1.ListCount > 0 Then Combo1.ListIndex = 0
Next
End If
End Sub

Private Sub Form_Load()
List1.AddItem "迅雷5"
List1.AddItem "132165"
List1.AddItem "与 132132"
List1.AddItem "adasd 与"
End Sub
我只是给你举个例子，具体细节你还要自己去完善，你所说的问题应该这样就可以了。

使用循环，取出每项字符串中的每个字符，然后（循环）校对，满足条件时，立即输出……