再次遇到问题...
1、窗体的标题栏显示“选课界面”，窗体上有两个列表框，左边是List1，右边是List2，其中List2中的列表项按字母顺序升序显示。窗体下方有一个文本框，名为Text1。请你：1) 写出程序中需要的属性设置。
2) 编写程序，要求单击List1中的某一项时，该项显示在Text1中；双击List1中的某一项时，该项从List1中删除，添加至List2。当List中的内容已满5门时，不允许再添加并提示“超过5门课程，不能再选了！”
Private Sub Form_Load()
List1.AddItem "Visual Basic程序"
List1.AddItem "数据结构"
List1.AddItem "操作系统"
List1.AddItem "硬件技术基础"
List1.AddItem "计算机网络"
List1.AddItem "多媒体技术"
List1.AddItem "c++程序设计"
End Sub
Private Sub List1_Click()
Text1.Text = List1.Text
End Sub
Private Sub List1_DblClick()
For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) = True Then
List1.RemoveItem i
List2.AddItem i '这里错误
End If
Next
If List2.ListCount >= 5 Then
MsgBox "超过5门课程，不能再选了!"
End If
End Sub
谢谢大家帮我修改,就是“该项从List1中删除，添加至List2”做不出.
List1.AddItem "Visual Basic程序"
List1.AddItem "数据结构"
List1.AddItem "操作系统"
List1.AddItem "硬件技术基础"
List1.AddItem "计算机网络"
List1.AddItem "多媒体技术"
List1.AddItem "c++程序设计"
End Sub
Private Sub List1_Click()
Text1.Text = List1.Text
End Sub
Private Sub List1_DblClick()
For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) = True Then
List1.RemoveItem i
List2.AddItem i '这里错误
End If
Next
If List2.ListCount >= 5 Then
MsgBox "超过5门课程，不能再选了!"
End If
End Sub
