- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 获取当前控件在屏幕的坐标 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=82672)
-- 发布时间：2016/3/22 16:22:00
-- [求助] 获取当前控件在屏幕的坐标
各位前辈及学友，向单击按钮在制定位置打开窗口，下面代码不正确，请给予指正，谢谢。
-- 发布时间：2016/3/22 16:22:00
--
各位前辈及学友，向单击按钮在制定位置打开窗口，下面代码不正确，请给予指正，谢谢。
forms("动态窗口").show(e.form.Controls(e.Sender.name).Left+e.Sender.Width,e.form.Controls(e.Sender.name).Top+e.Sender.Height)
-- 发布时间：2016/3/22 16:23:00
--
参考
| 下载信息 [文件大小：296.0 KB 下载次数：15] | |
 点击浏览该文件:按钮菜单.table |
-- 发布时间：2016/3/22 16:25:00
--
forms("动态窗口").show(System.Windows.Forms.Cursor.Position.X, System.Windows.Forms.Cursor.Position.Y)
-- 发布时间：2016/3/22 16:34:00
--
谢谢红袍回复，意思不同，效果差不多，谢谢。
-- 发布时间：2016/3/22 16:57:00
--
参考“按钮菜单”例子，获取正确控件坐标，p.x及p.y，有需要的学友可参考。
Dim P As Point = e.Form.panel.PointToScreen(e.Sender.Location)
forms("动态窗口").show(p.x+e.Sender.Width,p.y+e.Sender.Height)