怎么取得任务栏的高度或宽度

[subMain]

当使用“GetWindowRect”或“SHAppBarMessage”API函数取得任务栏的高度或宽度时，总提示“尝试读取或写入受保护的内存。这通常指示其他内存已损坏。”错误。
这是为什么？安全问吗？
怎么解决这个问题或使用其它方法来取得任务栏的高度或宽度？

Windows XP SP3
.NET Framework 2.0

[兔子-顾问]

[Quote=引用 3 楼 dylike 的回复:]
任务栏宽度就是屏幕宽度,不需要计算.
任务高度=屏幕高度-工作区高度
=
Screen.Bounds.Height-Screen.WorkArea.Height
[/Quote]
+1

[please_call_me_J]

[Quote=引用 8 楼 dylike 的回复:]
VB.NET code
''' <summary>
''' 任务栏
''' </summary>
''' <remarks></remarks>
Public Structure TaskBar
''' <summary>
''' 任务栏区域
''' </summary>
''……
[/Quote]
顶。。。。

[CloneCenter]

[Quote=引用 3 楼 dylike 的回复:]

任务栏宽度就是屏幕宽度,不需要计算.
任务高度=屏幕高度-工作区高度
=
Screen.Bounds.Height-Screen.WorkArea.Height
[/Quote]
这样说的不全对，因为任务栏可以被拖拽到屏幕的四个方向，上下左右都有可能，只是通常都是在下面而已。

[zhsleep]

http://www.mndsoft.com/blog/article.asp?id=271

Option Explicit

Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Public Const SPI_GETWORKAREA = 48


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

Public Function GetTaskbarHeight() As Integer
Dim lRes As Long
Dim rectVal As RECT

lRes = SystemParametersInfo(SPI_GETWORKAREA, 0, rectVal, 0)
GetTaskbarHeight = ((Screen.Height / Screen.TwipsPerPixelX) - rectVal.Bottom) * Screen.TwipsPerPixelX
End Function

[dylike]

[Quote=引用 5 楼 clonecenter 的回复:]
引用 3 楼 dylike 的回复:

任务栏宽度就是屏幕宽度,不需要计算.
任务高度=屏幕高度-工作区高度
=
Screen.Bounds.Height-Screen.WorkArea.Height

这样说的不全对，因为任务栏可以被拖拽到屏幕的四个方向，上下左右都有可能，只是通常都是在下面而已。
[/Quote]

Screen.Area工作区有个Bounds属性,这就告诉了你任务栏在什么方向.

[dylike]

    ''' <summary>
    ''' 任务栏
    ''' </summary>
    ''' <remarks></remarks>
    Public Structure TaskBar
        ''' <summary>
        ''' 任务栏区域
        ''' </summary>
        ''' <remarks></remarks>
        Public Bounds As Rectangle
        ''' <summary>
        ''' 任务栏方向
        ''' </summary>
        ''' <remarks></remarks>
        Public DirectionF As Direction
        ''' <summary>
        ''' 任务栏方向
        ''' </summary>
        ''' <remarks></remarks>
        Public Enum Direction
            ''' <summary>
            ''' 底
            ''' </summary>
            ''' <remarks></remarks>
            Bottom = 0
            ''' <summary>
            ''' 左
            ''' </summary>
            ''' <remarks></remarks>
            Left = 1
            ''' <summary>
            ''' 顶
            ''' </summary>
            ''' <remarks></remarks>
            Top = 2
            ''' <summary>
            ''' 右
            ''' </summary>
            ''' <remarks></remarks>
            Right = 3
        End Enum
    End Structure

    Public Function GetTaskBarRect() As TaskBar
        Try
            Dim Tskb As New TaskBar
            '获取主显示器工作区
            Dim wRct As Rectangle = Screen.GetWorkingArea(New Point(0, 0))
            '获取主显示器大小
            Dim sRct As Rectangle = Screen.GetBounds(New Point(0, 0))
            '判断左上角位置以确定任务栏方向
            With wRct.Location
                If .X = 0 AndAlso .Y = 0 AndAlso wRct.Width = sRct.Width Then
                    Tskb.DirectionF = TaskBar.Direction.Bottom
                    Tskb.Bounds.X = 0 : Tskb.Bounds.Y = 0 : Tskb.Bounds.Width = wRct.Width : Tskb.Bounds.Height = sRct.Height - wRct.Height
                ElseIf .X > 0 Then
                    Tskb.DirectionF = TaskBar.Direction.Left
                    Tskb.Bounds.X = sRct.Width - wRct.Width : Tskb.Bounds.Y = 0 : Tskb.Bounds.Width = sRct.Width - wRct.Width : Tskb.Bounds.Height = wRct.Height
                ElseIf .X = 0 AndAlso .Y > 0 Then
                    Tskb.DirectionF = TaskBar.Direction.Top
                    Tskb.Bounds.X = 0 : Tskb.Bounds.Y = sRct.Height - wRct.Height : Tskb.Bounds.Width = wRct.Width : Tskb.Bounds.Height = sRct.Height - wRct.Height
                ElseIf .X = 0 AndAlso .Y = 0 AndAlso wRct.Width < sRct.Width Then
                    Tskb.DirectionF = TaskBar.Direction.Right
                    Tskb.Bounds.X = wRct.Right : Tskb.Bounds.Y = 0 : Tskb.Bounds.Width = wRct.Width : Tskb.Bounds.Height = wRct.Height
                End If
            End With
            Return Tskb
        Catch ex As Exception
        End Try
    End Function

[古今多少事]

GetWindowRect结合Findwindows试试。

[古今多少事]

总觉得。NET有更好的获取方法。

[dylike]

任务栏宽度就是屏幕宽度,不需要计算.
任务高度=屏幕高度-工作区高度
=
Screen.Bounds.Height-Screen.WorkArea.Height