双击以在列表框之间移动项目-CSDN博客

本文介绍了一种在Visual Basic中实现的功能，允许用户通过双击列表框中的项目，将其从一个列表框移动到另一个列表框的方法。这种方法适用于需要对部分项目进行特定操作的场景，如筛选客户列表。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

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

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

 
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