一、学生设置课程界面优化 1.界面
通过点击列表框中的内容实现课程之间的转移，减少了两个命令按钮，操作更加简单。
代码：
Private Sub listallcourse_Click() If listallcourse.ListIndex >= 0 Then listselectcourse.AddItem listallcourse.Text listallcourse.RemoveItem listallcourse.ListIndex End If End Sub Private Sub listselectcourse_Click() Dim a As String Dim b As String If listselectcourse.ListIndex >= 0 Then listallcourse.AddItem listselectcourse.Text listselectcourse.RemoveItem listselectcourse.ListIndex End If End Sub
2.每次点击设置课程按钮清除已选择课程里面内容
在设置课程按钮界面添加 listselectcourse.Clear 代码
