listview控件中记录的是某数据库记录，要求双击其中一行，弹出一窗口显示其详细信息

Question

这段用代码怎么写？主要是选中某行，再双击的代码我不会

Answer 1

Private Sub ListView1_DblClick()
  Set Itmx = Me.ListView1.SelectedItem
  Form1.Show
  Form1.Text1.Text = Itmx.Text
  Form1.Text2.Text = Itmx.SubItems(1)
  
End Sub

Answer 2

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
    Form1.Text1.Text = lsvLesnIfm.SelectedItem.Text
    Form1.Text2.Text = lsvLesnIfm.SelectedItem.SubItems(1)
    Form1.Show 1
End Sub

Answer 3

Sorry,更正一下：
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
    Form1.Text1.Text = ListView1.SelectedItem.Text
    Form1.Text2.Text = ListView1.SelectedItem.SubItems(1)
    Form1.Show 1
End Sub

Answer 4

Private Sub lvwSJRY_DblClick()
    If Me.lvwSJRY.SelectedItem Is Nothing Then
'        MsgBox "请在右边的网格中选择一个客户！", vbInformation, "提示"
        Exit Sub
    End If
    
    frmTJResult.ShowPersonInfo Val(Mid(Me.lvwSJRY.SelectedItem.Key, 2)), Me.lvwSJRY.SelectedItem.SubItems(3)
End Sub

Answer 5

思路：
双击或单击得到key或者text，通过此查找数据库，弹出Form接收
Private Sub Listview1_DblClick()
......
End Sub