在 vb6 ListView 中创建 Dblclick 事件的问题答案

【问题标题】：problem with Create Dblclick event at vb6 ListView在 vb6 ListView 中创建 Dblclick 事件的问题
【发布时间】：2023-01-31 05:53:53
【问题描述】：

如果双击列表视图中的一项，

我需要打开另一个表格（psa33），寻找双击产品的列值。

该双击项目的列值必须出现在新打开的表单中。

我怎样才能做到？

请帮帮我

Private Sub ListView1_DblClick()
   PSA33.Show
End Sub

现在它只适用于形式变化，但我需要做更多。

我想我需要找到 listview1 的双击项的列数据

并将其发送到 psa33

但我不知道该怎么做

【问题讨论】：

查看 Treeview 的 .HitTest event。
将一个属性添加到您的 PSA33 表单中，您将在显示表单之前在其中分配值。然后在表单内您可以做任何您需要的事情，例如将值分配给文本框。

标签： vb6

【解决方案1】：

属性 ListView1.SelectedItem 包含对所选 ListItem 的引用。

请务必检查该属性是否指向有效项，因为用户还可以双击 ListView 的空白区域。

示例代码：

    If ListView1.SelectedItem Is Nothing Then
        MsgBox "No tem selected", vbOKOnly + vbExclamation, "Can't proceed"
    Else
        PSA33.<NewPropertyYouHaveToCreate> = ListView2.SelectedItem.Text
        PSA33.Show
    End If

【讨论】：