学生信息管理系统优化（二）

一、学生设置课程界面优化 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	代码