如何获取其他窗体的高度和宽度??

[一如当初]

我不是说自己本身的窗口，是其他窗口

已知目标窗口句柄，如何获取该窗体的高度和宽度??

[AprilSong]

用这个～

Declare Function GetWindowRect Lib "user32" Alias "GetWindowRect" (ByVal hwnd As Long, lpRect As RECT) As Long

[ryuginka]

GetWindowRect 可以获得

[一如当初]

知道了，不过rect结构里，哪个宽哪个是高啊，呵呵?

[AprilSong]

Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Right - Left 就是了～

[xsail_work]

窗体名。right－窗体名。left为宽
同理

[taosin]

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 GetWidHei(ByVal Hwnd As Long, W As Long, H As Long)
Dim RC As RECT, Rt As Long
Rt = GetWindowRect(Hwnd, RC)
If Rt > 0 Then
W = RC.Right - RC.Left
H = RC.Top - RC.Bottom
End If
End Sub