以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何获取ListView当前行的坐标?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=87399)

--  作者:hui986
--  发布时间:2016/7/11 1:45:00
--  [求助]如何获取ListView当前行的坐标?

如题!

目的:当鼠标在ListViewRow 上的时候,在当前的ListViewRow 上显示相应的工具栏

 

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")

If lvw.Current IsNot Nothing Then

    Dim vr As WinForm.ListViewRow = lvw.Current

    ‘如何获取当前行的坐标?

    ’Messagebox.show("当前行的左边是" & ??  & ",当前行的顶部是" & ??,"提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

[此贴子已经被作者于2016/7/11 4:03:29编辑过]

--  作者:大红袍
--  发布时间:2016/7/11 4:05:00
--  

直接用 lvw.Rows() 就行

 

http://www.foxtable.com/webhelp/scr/2864.htm

 


--  作者:hui986
--  发布时间:2016/7/11 8:27:00
--  

袍哥,早上好!

我想获取的数据是坐标

因为只有有了坐标,我才能控制显示工具栏(panel)的显示位置

 


--  作者:hui986
--  发布时间:2016/7/11 8:34:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20160711083241.png
图片点击可在新窗口打开查看

--  作者:Hyphen
--  发布时间:2016/7/11 9:08:00
--  
RowSelectionChanged事件

Dim lsv = e.Sender.basecontrol

If lsv.SelectedItems.count > 0 Then
    msgbox(lsv.SelectedItems(0).Position.X & "-" & lsv.SelectedItems(0).Position.Y)
End If

--  作者:hui986
--  发布时间:2016/7/11 9:13:00
--  

好样的,这样都行,厉害图片点击可在新窗口打开查看

谢谢!