以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]请教 如何像鼠标右键功能那样 ,在鼠标位置打开窗口。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=68753)

--  作者:zhl7928
--  发布时间:2015/5/24 10:40:00
--  [求助]请教 如何像鼠标右键功能那样 ,在鼠标位置打开窗口。
关键点是如何获取鼠标当前位置
--  作者:大红袍
--  发布时间:2015/5/24 10:43:00
--  
 msgbox(System.Windows.Forms.Cursor.Current.Position.X & "," & System.Windows.Forms.Cursor.Current.Position.Y)
--  作者:zhl7928
--  发布时间:2015/5/24 11:33:00
--  
谢谢
那我这么引用后出错了,该怎么引用? 数据转换后也不对
Dim b,c As Integer
b = System.Windows.Forms.Cursor.Current.Position.X
c = System.Windows.Forms.Cursor.Current.Position.Y
        Forms("调拨数").SetBounds(b,c,178,221)
        Forms("调拨数").Open()

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150524112859.png
图片点击可在新窗口打开查看


--  作者:大红袍
--  发布时间:2015/5/24 11:37:00
--  
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)
 

--  作者:zhl7928
--  发布时间:2015/5/24 11:59:00
--  
谢谢,辛苦了。