以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗口表获得当前列字段的屏幕位置  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=82733)
--  作者：凡夫俗子
--  发布时间：2016/3/23 19:36:00
--  窗口表获得当前列字段的屏幕位置
窗口表获得当前列字段的屏幕位置
--  作者：大红袍
--  发布时间：2016/3/23 20:00:00
--  

下面，获取的是当前单元格的值的位置

 

Dim c1table As C1FlexGrid.C1FlexGrid = e.Form.controls("table1").Table.Grid
Dim rc As C1FlexGrid.CellRange = c1table.Selection
Dim cellrect As System.Drawing.Rectangle = c1table.RectangleToScreen(c1table.GetCellRect(rc.r1,rc.c1))
msgbox("x=" & cellrect.x &  "    y=" & cellrect.y)
--  作者：凡夫俗子
--  发布时间：2016/3/23 20:03:00
--  
谢谢
[此贴子已经被作者于2016/3/23 20:17:07编辑过]
--  作者：大红袍
--  发布时间：2016/3/23 20:12:00
--  

红色地方控制位置。

 

Dim c1table As C1FlexGrid.C1FlexGrid = e.Form.controls("table1").Table.Grid
Dim rc As C1FlexGrid.CellRange = c1table.Selection
Dim cellrect As System.Drawing.Rectangle = c1table.RectangleToScreen(c1table.GetCellRect(0, rc.c1))
msgbox("x=" & cellrect.x &  "    y=" & cellrect.y)