以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]窗口中增加行时,让鼠标自动定位到主表与关联表的当前行的第一列,求事件代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77775)
--  作者：liuyixin662
--  发布时间：2015/11/25 11:08:00
--  [求助]窗口中增加行时,让鼠标自动定位到主表与关联表的当前行的第一列,求事件代码
老师你好!窗口中表增加行和删除行时,让鼠标自动定位到主表与关联表的当前行的第一列,求事件代码,谢谢!
--  作者：大红袍
--  发布时间：2015/11/25 11:19:00
--  

mark 设置鼠标位置

 

全局代码

 

<DllImport("user32.dll", EntryPoint := "SetCursorPos")> _
Public Function SetCursorPos(x As Integer, y As Integer) As Boolean

End Function

 

设置到焦点单元格

 

Dim c1table As C1FlexGrid.C1FlexGrid = Tables("表A").Grid
Dim rc As C1FlexGrid.CellRange = c1table.Selection
Dim cellrect As System.Drawing.Rectangle = c1table.RectangleToScreen(c1table.GetCellRect(rc.r1,rc.c1))
SetCursorPos(cellrect.x, cellrect.y)
--  作者：ljh29206
--  发布时间：2015/12/25 10:37:00
--  
袍哥在问下

我系统 放在 win7 的启动项目下

开机自动启动，启动后焦点 不会定位在  系统里面  很奇怪， 能否 模拟 鼠标 按一下鼠标 左键 ，让焦点定位在系统上