我得到窗口在屏幕位置，但是控件的位置不是以这个为起点 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 我得到窗口在屏幕位置，但是控件的位置不是以这个为起点

共有3822人关注过本帖树形打印复制链接主题：我得到窗口在屏幕位置，但是控件的位置不是以这个为起点

jiangxun

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

加好友

发短信

等级：四尾狐帖子：876 积分：5929 威望：0 精华：0 注册：2014/8/3 12:15:00

我得到窗口在屏幕位置，但是控件的位置不是以这个为起点 发帖心情

Post By：2014/10/20 0:33:00 [显示全部帖子]

以下是控件的click事件：

Dim x As Integer
Dim y As Integer
x = System.Windows.Forms.Cursor.Position.X.toString()
y = System.Windows.Forms.Cursor.Position.y.toString()
e.Form.controls("Button2").left=x-e.form.baseform.left
e.Form.controls("Button2").Top=y-e.form.baseform.top
e.Form.controls("Button2").Visible=True

通过这个可以获得窗口位置，但是控件的位置总是偏差一个窗口标题栏高度（Y）和窗口边框宽度（x）的值

怎么解决呢？

能不能进一步实现拖着控件走呢？

我最终目的是想实现在窗口中绘制流程图，最后实现自动绘制流程图功能

[此贴子已经被作者于2014-10-20 0:35:34编辑过]