学生系统优化2

   VB中如何让listbox 不能添加相同的数据  

     在list1.additem str前现对str进行判断，看已添加的item中是否已经有str项，若无则添加，若有则提示。
list控件说明：
list（index）：取索引值为index的item项的值
listindex：当前选择的item项的索引值
ListCount：返回当前list控件中的item数量
RemoveItem(Index)：从list中删除索引号为index的item项
clear：删除所有item项。

   在查询学生课程信息中，我的出现了一堆一堆的air和数学（课程科目）

      

   

   首先，增加一个功能

 

 Function CheckItem(str As String) As Boolean
   Dim i As Integer
       For i = 0 To Listallcourse.ListCount - 1
              If str = Listallcourse.List(i) Then
                   CheckItem = False     '有重复项，不可添加
                   GoTo e_n_d
             End If
       Next
             CheckItem = True      '无重复项，可添加
      e_n_d:
  End Function

并且在commandset中加入

   

 If CheckItem(str) Then    ’里边包含str项
            Listallcourse.AddItem str   ’将str显示在list的条目里
            Else
            MsgBox "存在重复项，无法添加！", vbOKOnly, "提示"
            Listallcourse.Clear   ’删除所有条目 
          （或者只将上一条改成listallcourse.removeitem（index）删除多余的条目 ）
      End If