Hej.

Behöver ett API för att ta reda på följande.

1. Taskbarens placering:
1.a nederkant
1.b överkant
1.c vänsterkant
1.d högerkant

2. Taskbarens höjd i fallen 1.a och 1.b
alernativt taskbarens bredd i fallen 1.c och 1.d


/peterh

http://www.vbapi.com/ref/s/systemparametersinfo.html

Såg att det stod hur man kunde se hur stort fönstret var - taskbaren. Då kanske du kan få reda på hur stor hela skärmen är och därmed få ut höjden med detta...

<code>
lRet = SystemParametersInfo(SPI_GETWORKAREA, vbNull, apiRECT, 0)

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

Const SPI_GETWORKAREA = 48

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


Private Sub Command1_Click()
Dim lRet As Long
Dim apiRECT As RECT

lRet = SystemParametersInfo(SPI_GETWORKAREA, vbNull, apiRECT, 0)

If lRet Then
Print "WorkAreaLeft: " & apiRECT.Left
Print "WorkAreaTop: " & apiRECT.Top
Print "WorkAreaWidth: " & apiRECT.Right - apiRECT.Left
Print "WorkAreaHeight: " & apiRECT.Bottom - apiRECT.Top
Else
Print "SystemParametersInfo failed."
End If

End Sub
</code>

/Pelle

SHAppBarMessage


MS