当前列位置 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 当前列位置

共有1736人关注过本帖树形打印复制链接主题：当前列位置

良才

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：788 积分：6297 威望：0 精华：0 注册：2012/6/11 17:21:00

当前列位置

Post By：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编辑过]

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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)

良才

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：788 积分：6297 威望：0 精华：0 注册：2012/6/11 17:21:00

Post By：2018/6/29 10:53:00 [只看该作者]

谢谢

下一主题 >> << 上一主题

主题：当前列位置