ms-access-2007 - 右键单击后如何防止 ListBox 取消选择项目

Question

我有一个表格，里面有一个列表框。选择项目（通常是 20 个项目）并在项目上单击鼠标右键它应该打开另一个弹出表单，问题是右键单击选定的项目后将被取消选择，除了一个项目上有鼠标。

右键单击后如何防止列表框取消选择项目。

鼠标右键的代码如下：

Private Sub ItemList_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
 Const RIGHTBUTTON = 2
 Dim udtPos As POINTAPI
 Dim frm As Access.Form

If Button = RIGHTBUTTON Then

Set mp = New [*clsMousePosition]
GetCursorPos udtPos


DoCmd.OpenForm "frmshortcut"
DoCmd.MoveSize udtPos.x * mp.TwipsPerPixelX, udtPos.y * mp.TwipsPerPixelY
Forms!frmshortcut!txtparameter = Me.ItemList.Value


 End If

End Sub

Answer 1

如果Multi Select属性设置为Simple这不应该发生。

我假设它Mutli Select设置为Extended，在这种情况下，您应该在CTRL用鼠标右键单击该项目的同时按下按钮，以保持现有选择，就像左键单击一样。

简而言之：右键单击与左键单击相同，只是它还打开了一个上下文菜单。