直接这样写就可以了
Dim point As Point = Forms("窗口1").Panel.PointToScreen(Forms("窗口1").Controls("Button1").BaseControl.Bounds.Location)msgbox(point.x & " " & point.y)
加好友 
发短信
Post By：2017/1/24 1:03:00 [显示全部帖子]
