level 1
'添加代码
Private Sub Command1_Click()
List1.AddItem Combo1.Text
End Sub
‘删除代码
Private Sub Command2_Click()
List1.RemoveItem List1.ListIndex
End Sub
2014年02月15日 07点02分
5
level 1
如果要增加项目
Private Sub Form_Load()
Combo1.AddItem "A"
Combo1.AddItem "B"
End Sub
也可以用With语句。
With Combo1
.AddItem "A"
.AddItem "B"
End With
（A、B代表课程名称）
2014年02月15日 07点02分
6
