Question

vb 在listbox中，弹出右键菜单

选中list的某个值后，按右键，就可以弹出一个菜单，
菜单内容为:修改备注等
怎么做

Answer 1

首先在菜单编辑器里新建一个主菜单，就叫lstrmnu好了，把他设为不可见，然后在它下面添加子菜单，（点一下右箭头按钮即可），把你想要实现的菜单项都写进去，在listbox的右击事件里写popupmenu lstrmnu即可实现，要编辑菜单项的事件处理，只要在设计模式直接单击菜单项（设计模式右击listbox是没用的）即可弹出代码窗口

如果要对list中的某一项进行操作，只要使用listbox的listindex属性即可（这个从0开始的整数是listbox中的item的序号）

Answer 2

先设置菜单 ,例如取名为修改 ，关键字 XG，下级有 备注(bz),完成(wc)两项，利用鼠标右键 事件 和 list 事件，则代码如下：
Private Sub bz_Click()
Call List1_ItemCheck(List1.ListIndex)
End Sub

Private Sub Form_Load()
For i = 0 To 20
List1.AddItem i
Next i
End Sub

Private Sub List1_ItemCheck(Item As Integer)
List1.List(Item) = Text1.Text
End Sub

Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu xg
End If
End Sub
想修改成任何值，只要把TEXT1 的值修改一下就可以！

Answer 3

在Click事件中添加代码