以文本方式查看主题 - 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 -- ![]() ![]() |
-- 作者: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 -- 好样的,这样都行,厉害 谢谢! |