海南是哪个省的城市:获取系统任务栏高度

来源:百度文库 编辑:偶看新闻 时间:2024/05/07 13:14:33

获取系统任务栏高度

分类: 【VB新手学堂】 2010-10-18 1550 56人阅读 评论(0) 收藏 举报

这个代码返回系统任务栏高度,以缇(twips)做单位,使用了SystemParametersInfo API函数。


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