以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于定位弹出对话框的位置  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=68810)
--  作者：sara
--  发布时间：2015/5/25 16:12:00
--  关于定位弹出对话框的位置
如何让对话框弹出时候在点击位置附近
--  作者：大红袍
--  发布时间：2015/5/25 16:15:00
--  

 那这个对话框必须你自己设置一个窗口。控制窗口的left和top属性

 

 如

 

Dim b,c As Integer
b = System.Windows.Forms.Cursor.Current.Position.X
c = System.Windows.Forms.Cursor.Current.Position.Y
Forms("调拨数").Open(b,c)
\'Forms("调拨数").SetBounds(b,c,178,221)