|
| Højde på processlinien Fra : K.L. |
Dato : 19-01-01 15:01 |
|
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
| |
Tomas Christiansen (20-01-2001)
| Kommentar Fra : Tomas Christiansen |
Dato : 20-01-01 00:11 |
|
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
| |
VBCoder (27-01-2001)
| Kommentar Fra : VBCoder |
Dato : 27-01-01 20:51 |
|
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
>
>
| |
|
|