关于如何用右键来选取list的内容

Question

当一个list里加载内容后（比如100个），当点右键的时候会弹出一个菜单，并且鼠标所处的那个内容会被选中，（相当于，先用左键选中然后再点右键）如何实现？
谢谢!!

Answer 1

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Sub Form_Load()
For i = 1 To 100
List1.AddItem i
Next
End SubPrivate Sub List1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Button = vbRightButton Then
      Call mouse_event(&H6, 0, 0, 0, 0)
       DoEvents
       PopupMenu b 'add your menu name
    End If
End Sub