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

VB的课程设计题

q = q + 1

Command1.Enabled = True End Sub

（3）退出卡片式查询代码如下：

Private Sub Command3_Click() Form3.Show Unload Me End Sub

（4）查看第一个零件代码如下：

Private Sub Command4_Click() p = Val(List2.List(0)) Call xishi(p) End Sub

（5）查看最后一个零件代码如下：

Private Sub Command5_Click()

p = Val(List2.List(List2.ListCount - 1)) Call xishi(p) End Sub

（6）卡片式配件框发生改变代码如下：

Private Sub Text3_Change() List2.Clear

For i = 0 To Form12.List1(0).ListCount - 1 If Text3 <> "" And Text4 = "" Then

If Trim(Text3) = Trim(Form12.List1(0).List(i)) Then List2.AddItem i End If

搜索“diyifanwen.net”或“第一范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，第一范文网，提供最新高等教育汽车零部件查询系统设计说明书(13)全文阅读和word下载服务。