以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  当前列位置  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=121102)
--  作者：良才
--  发布时间：2018/6/29 10:38:00
--  当前列位置
请老师指点，谢谢！
Dim x As Integer = CurrentTable.Position
Dim y As Integer =当前列位置 ？

If Forms("窗口1").Opened Then
    Forms("窗口1").Close()
Else
    Forms("窗口1").show
    Forms("窗口1").SetBounds(x,y+15,400,400)
End If
[此贴子已经被作者于2018/6/29 10:39:07编辑过]
--  作者：有点甜
--  发布时间：2018/6/29 10:43:00
--  
Dim c1table As C1FlexGrid.C1FlexGrid = CurrentTable.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)
--  作者：良才
--  发布时间：2018/6/29 10:53:00
--  
谢谢