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