Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As Rect) As Long
Private Type Rect
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Sub Command1_Click()
Dim Rect As Rect
GetWindowRect Me.hwnd, Rect
msgbox "宽度:" & Rect.Right - Rect.Left & "高度:" & Rect.Bottom - Rect.Top
End Sub
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。