以文本方式查看主题 - 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() |
-- 作者:大红袍 -- 发布时间: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 -- 谢谢,辛苦了。 |