获得一个控件在整个屏幕的位置

'添加 Text1 Command1 可得到与楼主完全一样的结果.

Dim xx1%,yy1%,xx2%,yy2%
Private Sub Command1_Click()
xx1 = IIf(Me.BorderStyle = 2, (Me.Left + Text1.Left + 60) \ 15, (Me.Left + Text1.Left) \ 15)
yy1 = IIf(Me.BorderStyle = 2, (Me.Top + Text1.Top + 345) \ 15, (Me.Top + Text1.Top) \ 15)
xx2 = IIf(Me.BorderStyle = 2, (Me.Left + Text1.Left + Text1.Width + 60) \ 15, (Me.Left + Text1.Left + Text1.Width) \ 15)
yy2 = IIf(Me.BorderStyle = 2, (Me.Top + Text1.Top + Text1.Height + 345) \ 15, (Me.Top + Text1.Top + Text1.Height) \ 15)
MsgBox xx1 & "," & yy1 & vbCrLf & xx2 & "," & yy2
End Sub

获得的位置不一样~~~

1楼的只能用在有hWnd属性的控件
2楼的只能用窗体属性ScaleMode = [1 - Twip]时

只要是控件，都可以直接用以下这个代码
Option Explicit

Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long

Private Type POINTAPI
  X As Long
  Y As Long
End Type

Private Sub Command1_Click()
  DisplayControlPointAtScreen Label1
  DisplayControlPointAtScreen Line1
End Sub

Private Sub DisplayControlPointAtScreen(ctl As Control)
  Dim pt As POINTAPI
  With ctl
    If TypeOf ctl Is Line Then
      pt.X = ScaleX(IIf(.X1 > .X2, .X2, .X1), ScaleMode, vbPixels)
      pt.Y = ScaleY(IIf(.Y1 > .Y2, .Y2, .Y1), ScaleMode, vbPixels)
    Else
      pt.X = ScaleX(.Left, ScaleMode, vbPixels)
      pt.Y = ScaleY(.Top, ScaleMode, vbPixels)
    End If
  End With
  ClientToScreen hwnd, pt
  MsgBox "标签在屏幕上的位置是：(" & pt.X & "，" & pt.Y & ")"
End Sub

给2楼的一点建议：你使用固定的边框值，不一定有效，因为在不同的操作系统下(如，在XP下或在非XP下但使用XP的主题风格时)，窗体边框和标题栏的高度是不同的

谢谢提醒, 这点我倒是没注意.

对我个人来说还好, 因我的软件 100% 都是没边匡的窗体, 我2F 代码是我

习掼用来抓取部份小区域图片使用的, 发这个帖只是多了Borderstyle的判断.