主题：我得到窗口在屏幕位置，但是控件的位置不是以这个为起点

以下是控件的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）的值

怎么解决呢？

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

 

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

有相差,那么你就补一些就好了.比如相差20 就 -20

 不是告诉过你方法了么？你这样获取，就必须写死相差的宽度和高度

从哪里看出来窗口标题栏高和边框宽度呢

 

 只能大概预估。

如何打开*。table例子文件

 

 呃，你如果是开发版的，就去下载一个商业版的foxtable，安装后，就能用那个打开。