Hur tar jag reda på ett formulärs left,top, height och width kordinater? Det är inte ett formulär som jag har skapat utan en annan process har skapat det. Har handtaget till det.

mvh Frans

I en modul:

<code>
Public Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
</code>

Någon annanstans (Hmmm...)

<code>
Private Sub Command1_Click()
Dim windowrect As RECT

Call GetWindowRect(Form1.hwnd, windowrect)

'De olika koordinaterna finns i:
'windowrect.Bottom
'windowrect.Left
'windowrect.Right
'windowrect.Top
End Sub
</code>

/Ivar

tack precis det jag ville ha.

om jag t.ex vill ha ut höjden på formuläret, gör jag då så här?:

height = skärmenshöjd - (top + bottom)

Hur tar jag reda på skärmens höjd/bredd? Duger screen.height/width? Vad är det för enhet som man arbetar med? pixlar?



mvh Frans

height = bottom - top

pixelWidth = Screen.Width / Screen.TwipsPerPixelX
pixelHeight = Screen.Height / Screen.TwipsPerPixelY