7,763
社区成员
发帖
与我相关
我的任务
分享关于如何用右键来选取list的内容
当一个list里加载内容后（比如100个），当点右键的时候会弹出一个菜单，并且鼠标所处的那个内容会被选中，（相当于，先用左键选中然后再点右键）如何实现？
谢谢!!
谢谢!!
...全文
请发表友善的回复…
发表回复
踏平扶桑 2003-12-10
- 打赏
- 举报
谢谢：）
northwolves 2003-12-09
- 打赏
- 举报
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 Sub
Private 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
Private Sub Form_Load()
For i = 1 To 100
List1.AddItem i
Next
End Sub
Private 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
