学生信息管理系统——双击添加列表选项

    

    在进行学生管理系统验收的时候，设置课程的时候出问题了，一门课程只要点添加按钮，就添加进去，一直点就一直添加，还有就是使用不方便，这是师父发现的问题，做系统是为了给别人用的，应该想着怎么方便使用怎么去做。之后，就开始想办法解决重复添加和双击添加课程这俩问题。

    下面这段代码，解决了这两个问题，关于重复添加解决办法参考了一篇博客，借鉴他人的经验。

Private Sub listallcourse_DblClick()
    Dim selectcourse As Integer
    Dim i As Integer         '定义两个整型变量
     Dim j As Integer
    
     For selectcourse = 0 To listallcourse.ListCount - 1
         If listallcourse.Selected(selectcourse) = True Then
                listselectcourse.AddItem listallcourse.List(listallcourse.ListIndex)
                                             '往 listSelectcourse列表中添加课程
               For i = 0 To listselectcourse.ListCount - 1
                    For j = i + 1 To listselectcourse.ListCount
                                              '   判断在list列表中是否有相同的名称
                                 If listselectcourse.List(i) = listselectcourse.List(j) Then
                                        listselectcourse.RemoveItem j
                                        MsgBox "已添加此课程！", vbOKOnly, "提示"
                                        Exit Sub
                                 End If
                    Next j
             Next i
        End If
     Next selectcourse
End Sub       

 

           在理解代码的时候我们要注意代码的逻辑问题，在双击名称的时候，要判断列表中是否有重复的名称，若已经有这门课程，就提示“已添加此课程！”，并退出这个过程，接着进行添加下一个。如此继续，就不会有重复的名称出现了。