---

Hej

Er det muligt at finde højden på processlinien.

Jeg skal bruge det til at finde max. højden for min form. Jeg kan ikke
bruge vinduet i maksimeret tilstand, da det ikke altid skal bruge max.
bredde samtidigt.

På forhånd tak

/Kim

---

K.L. skrev:
> Er det muligt at finde højden på processlinien.
>
> Jeg skal bruge det til at finde max. højden for min form.

Er det ikke nemmere at bruge værdierne for størst mulige form på skærmen i
stedet?
Så tages der også højde for eventuelle ikon-bars osv.
Efter lidt prøven frem og tilbage, kom jeg frem til følgende, som sørger
for, at lade formen fylde hele skærmens højde i Form_Load:


Private Declare Function SystemParametersInfo Lib "user32" Alias
"SystemParametersInfoA" _
(ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As RECT, _
ByVal fuWinIni As Long) As Long

Private Const SPI_GETWORKAREA = 48

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

Private Sub Form_Load()
Dim Info As RECT
SystemParametersInfo SPI_GETWORKAREA, 0, Info, 0
Me.Top = 0
Me.Height = (Info.Bottom - Info.Top) * Screen.TwipsPerPixelY
End Sub


Naturligvis bør flere af tingene defineres som Public i et fælles kodemodul.
-------
Tomas

---

Den nemmeste måde er da at bruge sysinfo kontrollen der kommer med vb5 og
vb6.

with sysinfo1
debug.print .workareaheight
debug.print .workareawidth
end with

VBCoder

"Tomas Christiansen" <toc@blikroer.removethis.dk> skrev i en meddelelse
news:AP3a6.615$MD2.12015@news.get2net.dk...
> K.L. skrev:
> > Er det muligt at finde højden på processlinien.
> >
> > Jeg skal bruge det til at finde max. højden for min form.
>
> Er det ikke nemmere at bruge værdierne for størst mulige form på skærmen i
> stedet?
> Så tages der også højde for eventuelle ikon-bars osv.
> Efter lidt prøven frem og tilbage, kom jeg frem til følgende, som sørger
> for, at lade formen fylde hele skærmens højde i Form_Load:
>
>
> Private Declare Function SystemParametersInfo Lib "user32" Alias
> "SystemParametersInfoA" _
> (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As RECT,
_
> ByVal fuWinIni As Long) As Long
>
> Private Const SPI_GETWORKAREA = 48
>
> Private Type RECT
> Left As Long
> Top As Long
> Right As Long
> Bottom As Long
> End Type
>
> Private Sub Form_Load()
> Dim Info As RECT
> SystemParametersInfo SPI_GETWORKAREA, 0, Info, 0
> Me.Top = 0
> Me.Height = (Info.Bottom - Info.Top) * Screen.TwipsPerPixelY
> End Sub
>
>
> Naturligvis bør flere af tingene defineres som Public i et fælles
kodemodul.
> -------
> Tomas
>
>