求助！用VB制作RPG游戏中的包裹界面！

包裹界面？是什么东西？
指的是背包吗？GameRes上面说，这个是整个游戏中最难的地方
因为是关于游戏场景和背包物品的交互，要专门定义一个类型来存放物品数据,再弄一个数组来存放物品

我把我以前做的那个拿过来吧
你看看有没有帮助

Sub 提取物品()
  If player.wp = "" Then
        List1.Clear
      Else
        List1.Clear
        Dim chd As Integer
        Dim i As Integer
        chd = Len(player.wp)
        For i = 1 To chd / 5
            Dim w1 As String
            Dim w2 As String
            Dim w3 As String
            w1 = Left(Trim(player.wp), 5)
            If chd = 5 Then
            ElseIf chd <> 5 Then
              player.wp = Mid(player.wp, 6, chd - 5)
            End If
            w2 = Left(w1, 3)
            w3 = Right(w1, 2)
            If val(w3) < 10 Then
              List1.AddItem wp(val(w2)).mz + "   " + Str(val(w3)) + wp(val(w2)).dw
            Else
              List1.AddItem wp(val(w2)).mz + "  " + Str(val(w3)) + wp(val(w2)).dw
            End If
        Next i
        Dim t As Integer, r As Integer
        Dim s1 As String, s2 As String, s3 As Integer, s4 As Integer, s5 As String, s6 As String
        For t = 0 To List1.ListCount
          s1 = Trim(Left(List1.List(t), 4))


          For r = t + 1 To List1.ListCount
            s2 = Trim(Left(List1.List(r), 4))
            s3 = val(Left(Right(List1.List(t), 3), 2))
            s4 = val(Left(Right(List1.List(r), 3), 2))
            Dim v As Integer
            v = Len(List1.List(t))
            If s2 = s1 Then
              If s3 + s4 >= 10 Then s5 = Str(s3 + s4)
              If s3 + s4 < 10 Then s5 = " " + Trim(Str(s3 + s4))
              If val(s5) <= 99 Then
                If v = 12 Then
                  List1.List(t) = Left(List1.List(t), 9) + s5 + Right(List1.List(t), 1)
                  List1.RemoveItem r
                ElseIf v = 11 Then
                  List1.List(t) = Left(List1.List(t), 8) + s5 + Right(List1.List(t), 1)
                  List1.RemoveItem r
                ElseIf v = 10 Then
                  List1.List(t) = Left(List1.List(t), 7) + s5 + Right(List1.List(t), 1)
                  List1.RemoveItem r
                End If
              ElseIf val(s5) > 99 Then


                s5 = 99
                s6 = Str(s3 + s4 - 99)
                If v = 12 Then
                  List1.List(t) = Left(List1.List(t), 9) + s5 + Right(List1.List(t), 1)
                  List1.List(r) = Left(List1.List(r), 9) + s6 + Right(List1.List(r), 1)
                ElseIf v = 11 Then
                  List1.List(t) = Left(List1.List(t), 8) + s5 + Right(List1.List(t), 1)
                  List1.List(r) = Left(List1.List(r), 8) + s6 + Right(List1.List(r), 1)
                ElseIf v = 10 Then
                  List1.List(t) = Left(List1.List(t), 7) + s5 + Right(List1.List(t), 1)
                  List1.List(r) = Left(List1.List(r), 7) + s6 + Right(List1.List(r), 1)
                End If
              End If
            Else
            End If
          Next r
        Next t
        
      End If
End Sub

这个主要是看你的物品信息是怎样存储的
你应该把问题再说详细点

我是用最简单的方法做包裹界面的——listbox