VB6 ListView双击事件：传递选中项列值至PSA33窗体

步骤1：获取ListView双击项的列数据 #

VB6中，ListView的SelectedItem属性对应当前选中的条目，双击时可通过它获取各列的值：

• 第1列（主列）的值用SelectedItem.Text获取
• 后续列的值用SelectedItem.SubItems(index)获取，index从1开始对应第2列，以此类推

需添加判断逻辑，避免双击空白区域时触发错误。

步骤2：传递数据到PSA33窗体并显示 #

以下两种常用方式可实现数据传递，按需选择：

方式一：直接赋值给目标窗体控件

若PSA33窗体上有用于显示列值的控件（如TextBox），可直接在双击事件中赋值：

Private Sub ListView1_DblClick()
    Dim selectedItem As ListItem
    Set selectedItem = ListView1.SelectedItem
    
    ' 确认选中有效条目
    If Not selectedItem Is Nothing Then
        ' 根据你的ListView列数调整变量和索引
        Dim mainCol As String, subCol1 As String, subCol2 As String
        mainCol = selectedItem.Text
        subCol1 = selectedItem.SubItems(1)
        subCol2 = selectedItem.SubItems(2)
        
        ' 传递值并显示窗体
        With PSA33
            .txtMainCol.Text = mainCol  ' 替换为PSA33中对应控件名
            .txtSubCol1.Text = subCol1
            .txtSubCol2.Text = subCol2
            .Show
        End With
    End If
End Sub

方式二：通过公共变量传递（更安全，解耦控件依赖）

1. 在PSA33窗体的通用声明区定义公共变量：

' PSA33窗体代码
Public MainColumn As String
Public SubColumn1 As String
Public SubColumn2 As String

Private Sub Form_Load()
    ' 窗体加载时将变量值同步到控件
    txtMainCol.Text = MainColumn
    txtSubCol1.Text = SubColumn1
    txtSubCol2.Text = SubColumn2
End Sub

2. 在ListView的双击事件中给公共变量赋值：

Private Sub ListView1_DblClick()
    Dim selectedItem As ListItem
    Set selectedItem = ListView1.SelectedItem
    
    If Not selectedItem Is Nothing Then
        With PSA33
            .MainColumn = selectedItem.Text
            .SubColumn1 = selectedItem.SubItems(1)
            .SubColumn2 = selectedItem.SubItems(2)
            .Show
        End With
    End If
End Sub

注意事项 #

• 确保ListView的View属性设置为lvwReport（报表视图），否则SubItems无法正常获取值
• 根据实际列数，调整SubItems的索引和变量数量

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