在进行学生管理系统验收的时候,设置课程的时候出问题了,一门课程只要点添加按钮,就添加进去,一直点就一直添加,还有就是使用不方便,这是师父发现的问题,做系统是为了给别人用的,应该想着怎么方便使用怎么去做。之后,就开始想办法解决重复添加和双击添加课程这俩问题。
下面这段代码,解决了这两个问题,关于重复添加解决办法参考了一篇博客,借鉴他人的经验。
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
在理解代码的时候我们要注意代码的逻辑问题,在双击名称的时候,要判断列表中是否有重复的名称,若已经有这门课程,就提示“已添加此课程!”,并退出这个过程,接着进行添加下一个。如此继续,就不会有重复的名称出现了。