以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  我得到窗口在屏幕位置，但是控件的位置不是以这个为起点  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=58568)
--  作者：jiangxun
--  发布时间：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编辑过]
--  作者：Bin
--  发布时间：2014/10/20 8:27:00
--  
有相差,那么你就补一些就好了.比如相差20 就 -20
--  作者：有点甜
--  发布时间：2014/10/20 9:07:00
--  

 不是告诉过你方法了么？你这样获取，就必须写死相差的宽度和高度
--  作者：jiangxun
--  发布时间：2014/10/21 20:50:00
--  

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

 
--  作者：有点甜
--  发布时间：2014/10/21 20:51:00
--  
 只能大概预估。
--  作者：jiangxun
--  发布时间：2014/10/21 21:02:00
--  

如何打开*。table例子文件

 
--  作者：有点甜
--  发布时间：2014/10/21 21:07:00
--  
 呃，你如果是开发版的，就去下载一个商业版的foxtable，安装后，就能用那个打开。