/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
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
>
>



Søg
Reklame
Statistik
Spørgsmål : 177551
Tips : 31968
Nyheder : 719565
Indlæg : 6408825
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste