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


本页地址:http://www.foxtable.com/webhelp/topics/2837.htm