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

约定不等于承诺〃 2021-11-09 08:56 271阅读 0赞

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

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

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

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