汽车零部件查询系统设计说明书(18)

VB的课程设计题

If List1(0).Text = "" Then MsgBox "请选择要修改的零件" Else Form7.Show

Form7.Text1 = List1(0).Text Form7.Text2 = List1(1).Text Form7.Text3 = List1(2).Text Form7.Text4 = List1(3).Text Form7.Text5 = List1(4).Text Form7.Text6 = List1(5).Text

List1(0).RemoveItem List1(0).ListIndex List1(1).RemoveItem List1(1).ListIndex List1(2).RemoveItem List1(2).ListIndex List1(3).RemoveItem List1(3).ListIndex List1(4).RemoveItem List1(4).ListIndex List1(5).RemoveItem List1(5).ListIndex End If End Sub

（2）添加零部件代码如下：

Private Sub Command2_Click() Form8.Show End Sub

（3）删除零部件代码如下：

Private Sub Command3_Click()

List1(0).RemoveItem List1(0).ListIndex List1(1).RemoveItem List1(1).ListIndex List1(2).RemoveItem List1(2).ListIndex