ListView双击将值传递至另一窗体ComboBox的实现方案求助

我来帮你搞定这个双击ListView传递客户ID到主窗体组合框的问题！其实实现起来不难，有两种常用的方案，我给你一步步讲清楚：

这种方法适合小型项目，逻辑直观，上手快：

• 第一步，修改Form_VerClientes的构造函数，让它能接收主窗体的实例：
  在Form_VerClientes的代码文件里，先声明一个私有变量保存主窗体，再修改构造函数：

  Private _vendasForm As Form_Vendas
  
  Public Sub New(vendasForm As Form_Vendas)
      InitializeComponent()
      _vendasForm = vendasForm
  End Sub
  

• 第二步，调整Form_Vendas里打开Form_VerClientes的代码：
  把原来的打开代码（比如Form_VerClientes.Show()）改成下面这样，把当前窗体实例传进去：

  Dim verClientesForm As New Form_VerClientes(Me)
  verClientesForm.Show()
  

• 第三步，处理ListView的双击事件：
  在设计器里双击ListView，生成DoubleClick事件的处理方法，然后写入以下代码：

  Private Sub ListView1_DoubleClick(sender As Object, e As EventArgs) Handles ListView1.DoubleClick
      ' 先确保有选中的记录
      If ListView1.SelectedItems.Count > 0 Then
          ' 获取选中项的ID（这里假设ID在ListView的第0列，根据你的实际列索引调整）
          Dim clienteId As String = ListView1.SelectedItems(0).SubItems(0).Text
          
          ' 给主窗体的组合框赋值，这里推荐用公共方法（更规范）
          _vendasForm.SetClienteId(clienteId)
          
          ' 可选：双击后关闭当前窗体
          Me.Close()
      End If
  End Sub
  

• 注意：默认情况下cmb_cliente是私有控件，直接访问不太规范。建议在Form_Vendas里写一个公共方法来设置组合框的值：

  Public Sub SetClienteId(clienteId As String)
      cmb_cliente.Text = clienteId
  End Sub
  

这种方法遵循面向对象的设计原则，降低窗体间的耦合度，适合大型项目：

• 第一步，在Form_VerClientes里定义自定义事件和事件参数：
  用来传递选中的客户ID：

  ' 自定义事件参数，携带客户ID
  Public Class ClienteSelectedEventArgs
      Inherits EventArgs
      Public Property ClienteId As String
      Public Sub New(id As String)
          ClienteId = id
      End Sub
  End Class
  
  ' 声明自定义事件
  Public Event ClienteSelected As EventHandler(Of ClienteSelectedEventArgs)
  

• 第二步，在ListView的双击事件里触发自定义事件：

  Private Sub ListView1_DoubleClick(sender As Object, e As EventArgs) Handles ListView1.DoubleClick
      If ListView1.SelectedItems.Count > 0 Then
          Dim clienteId As String = ListView1.SelectedItems(0).SubItems(0).Text
          ' 触发事件，把ID传递出去
          RaiseEvent ClienteSelected(Me, New ClienteSelectedEventArgs(clienteId))
          Me.Close()
      End If
  End Sub
  

• 第三步，在Form_Vendas里订阅这个事件：
  打开Form_VerClientes的时候，绑定事件处理方法：

  Dim verClientesForm As New Form_VerClientes()
  ' 订阅自定义事件
  AddHandler verClientesForm.ClienteSelected, AddressOf OnClienteSelected
  verClientesForm.Show()
  

• 第四步，在Form_Vendas里写事件处理逻辑：
  接收传递过来的ID，赋值给组合框：

  Private Sub OnClienteSelected(sender As Object, e As ClienteSelectedEventArgs)
      cmb_cliente.Text = e.ClienteId
      ' 可选：事件处理完成后移除订阅，避免内存泄漏
      RemoveHandler CType(sender, Form_VerClientes).ClienteSelected, AddressOf OnClienteSelected
  End Sub
  

两种方案都能实现你的需求，如果你只是快速解决问题，方案一足够；如果想让代码更健壮、易维护，方案二更合适。

内容的提问来源于stack exchange，提问作者StewieL