以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  光标定位到Panel1  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=94907)

--  作者:yangwenghd
--  发布时间:2017/1/5 0:01:00
--  光标定位到Panel1
问问 点击按钮怎么把光标定位到Panel1  感谢 感谢 
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:只显示窗口.table


[此贴子已经被作者于2017/1/5 0:03:30编辑过]

--  作者:有点蓝
--  发布时间:2017/1/5 8:56:00
--  
Panel是没有办法定位的,因为没有输入焦点
--  作者:有点色
--  发布时间:2017/1/5 9:25:00
--  

 你的问题和你的例子没有半毛钱关系。如果你要获取panel1的坐标,参考

 

 

 

Dim dp As Point
dp = e.Form.controls("panel1").basecontrol.PointToClient(dp)
msgbox(-dp.x & " " & -dp.y)


--  作者:yangwenghd
--  发布时间:2017/1/5 19:28:00
--  
非常非常 不好意思 被我上传错了 不好意思 不好意思 ,
我试了一下 还是不行 能在帮忙看看吗  感谢 感谢 
点击下一行后 光标自动跳到 Panel1
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:移动光标.table


[此贴子已经被作者于2017/1/5 19:29:01编辑过]

--  作者:有点色
--  发布时间:2017/1/5 19:34:00
--  
With Tables("计划表")
    .Position = .Position + 1
    Dim txt = e.Form.controls("panel1").basecontrol.controls(0)
    txt.text = .Current("事件内容")
    txt.Select
End With