Current
返回ListView的当前行。
示例
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
If lvw.Current IsNot Nothing Then
Dim vr As WinForm.ListViewRow = lvw.Current
Messagebox.show("你选择的国家是" & vr.Text & ",面积为" & vr("面积"),"提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If