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