TAMANHO DE UMA JANELA

NEOBH 07/11/2011 10:18:05
#388602
Pessoal,

Como faça para pegar o tamanho de uma janela do windows através de um hWnd.

Grato,
GANDA.NICK 07/11/2011 18:14:35
#388652
Olá, se já tem o hwnd da janela basta isto:

Em um modulo.

Option Explicit
Private Type RECT
     Left As Long
     Top As Long
     Right As Long
     Bottom As Long
End Type

Declare Function GetWindowRect Lib [Ô]user32[Ô] (ByVal hWnd As Long, lpRect As RECT) As Boolean

Public Sub GetWindowAttributes(ByVal hWnd As Long)
    Dim WindowRect As RECT
    GetWindowRect hWnd, WindowRect
    MsgBox [Ô]Top: [Ô] & Str$(WindowRect.Top) & vbCrLf & [Ô]Left: [Ô] & Str$(WindowRect.Left)
    MsgBox [Ô]Height: [Ô] & Str$(WindowRect.Bottom) - Str$(WindowRect.Top) & vbCrLf & [Ô]Width: [Ô] & Str$(WindowRect.Right) - Str$(WindowRect.Left)
End Sub



Para chamar:

 Call GetWindowAttributes(hwnd_da_janela)


Espero que isto o ajude! Té+
Tópico encerrado , respostas não são mais permitidas
Voltar