Private Sub ListView1_DoubleClick(ByVal sender As Object, ByVal e As EventArgs) Handles ListView1.DoubleClick
Try
Dim tt1, tt2, kv, kn, Novelsn As String
Dim a_item As ListViewItem
For Each a_item In ListView1.SelectedItems
tt1 = a_item.SubItems(1).Text.Trim
tt2 = a_item.SubItems(3).Text.Trim
kv = tt1
kn = tt2
Novelsn = qidian(kv)
Dim pk() As String = Novelsn.Split("|")
Dim sm As Integer = CInt(pk(1))
cunru(kv, kn, pk(0), sm)
Me.Close()
'MsgBox("加入成功!")
Next
Catch ex As Exception
End Try
End Sub
这个是范例,可以对listview操作里面的数据