VB题目（项目列表：list），急…

来源：百度知道 编辑：UC知道 时间：2024/06/06 05:14:08
设计一个商品数量程序，有两个项目列表（list），左边是商品，右边是选择好的商品，如何实现选中商品后，比如选中“苹果”添加第一次右边LIST为（苹果*1），添加第二次为（苹果*2）,手机提问的，悬赏最高只可以20,后有追加，急…

Private Sub Form_Load()
List1.AddItem "I1", 0
List1.AddItem "I2", 1
List1.AddItem "I3", 2
List1.AddItem "I4", 3
List1.AddItem "I5", 4
End Sub

Private Sub List1_Click()
Dim strList1 As String
Dim i As Integer
Dim intlist2count As Integer
Dim strF As String
Dim strB As String
Dim StrNew As String
Dim Flag As Boolean
Flag = False
intlist2count = List2.ListCount
strList1 = List1.List((List1.ListIndex))
'List2.AddItem
If intlist2count = 0 Then
List2.AddItem strList1 & "*1", intlist2count
Else
For i = 0 To intlist2count - 1
strF = Mid(List2.List(i), 1, InStr(1, List2.List(i), "*") - 1)
strB = Mid(List2.List(i), InStr(1, List2.List(i), "*") + 1, Len(List2.List(i)) - InStr(1, List2.List(i), "*"))
If strF = strList1 Then
StrNew = strF & "