以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=64104)

--  作者:新航程小何
--  发布时间:2015/2/5 8:47:00
--  [求助]

各位老师,早上好!请问怎么实现在鼠标所在按钮位置显示独立窗口,也就是实现鼠标位置和独立窗口位置是一样的?


--  作者:Bin
--  发布时间:2015/2/5 8:53:00
--  
Dim x As Integer =System.Windows.Forms.Cursor.Position.X
Dim y As Integer  = System.Windows.Forms.Cursor.Position.Y
Forms("窗口2").show
Forms("窗口2").SetBounds(x,y,400,400)

--  作者:Bin
--  发布时间:2015/2/5 8:54:00
--  
Forms("窗口2").SetBounds(x,y,Forms("窗口2").width,Forms("窗口2").height)