双击以在列表框之间移动项目

有时您可能并排有两个列表框，并且想要双击一个框中的项目以将其移至另一个。

例如，也许第一个列表框包含一个客户列表，而您想要执行仅与其中一些客户有关的某些功能（例如，通过电子邮件发送给他们）。 通过双击所需的客户名称，可以在右侧框中找到所需的列表。

首先，制作一个带有两个列表框参数的通用子：

 
Private Sub MoveListItem(lstFrom As ListBox, lstTo As ListBox)
     lstTo.AddItem (lstFrom.Value)
     lstFrom.RemoveItem (lstFrom.Value)
End Sub 

然后在相应的列表框的双击事件中调用此子：

 
Private Sub lstA_DblClick(Cancel As Integer)
    MoveListItem Me.lstA, Me.lstB
End Sub  
Private Sub lstB_DblClick(Cancel As Integer)
    MoveListItem Me.lstB, Me.lstA
End Sub  

在这里，您将用列表框的名称替换“ lstA”和“ lstB”。 您可以通过在框之间放置一个按钮来进行一些修改，并在单击该按钮时将项目从一个移到另一个。

这是一个简单的任务，但可以派上用场！

拍

From: https://bytes.com/topic/access/insights/795313-double-clicking-move-item-between-list-boxes