Question

VB6.0的列表框怎么才能不重复相同名称的项目？？

我想做一个MP3播放器，可是每选一次MP3文件列表框就增加一项，怎么才能使其相同名称的项不重复？

Answer 1

假设你要添加的字符串变量为str，并从text1.text 中取得，单击command1时添加项目： 列表框的名称为 list1 代码如下： Private Sub Command1_Click() Dim str As String Dim i As Integer, flag As Boolean str = Trim(Text1.Text) flag = False For i = 0 To List1.ListCount - 1 If str = Trim(List1.List(i)) Then flag = True End If Next i If Not flag Then List1.AddItem (str) End If End Sub

记得采纳啊