如何在右键单击后阻止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按钮，同时用鼠标右键单击该项以保持现有选择，就像您一样左键单击。

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