Question

关于VB的listbox控件的使用

使用列表框实现对菜单点菜的功能.在窗体加载时在列表框1中添加菜单名,若用户在列表框1中双击某菜单名,且选择了已经选过的项目,则弹出信息框予以提示,否则将该项目加载到列表框2中. 求各位大虾帮忙~ 感激不尽~ 急用

Answer 1

Private Sub List1_DblClick()
Dim i As Long
Dim s As String

If List1.ListIndex > -1 Then
s = List1.List(List1.ListIndex)
If List2.ListCount > 0 Then
For i = 0 To List2.ListCount - 1
If s = List2.List(i) Then
MsgBox "已经选过了。", vbOKCancel, "提示"
Exit For
End If
Next i
If i = List2.ListCount Then List2.AddItem s
Else
List2.AddItem s
End If
End If
End Sub

Private Sub Form_Load()
Dim i As Long
For i = 1 To 5
List1.AddItem "菜单" & i
Next i
End Sub

Answer 2

就上面的那个可以