vb6 – 表单大小调整以填充屏幕尺寸减去任务栏

发布时间：2020-12-17 07:27:54 所属栏目：百科来源：网络整理

导读：如何在vb6中调整表单大小,使表单下边框位于任务栏的顶部解决方法有没有理由你不能只是最大化形式？这将是我的第一印象. 如果那不是跑步者,您可以尝试以下列方式获取任务栏高度： Private Const ABM_GETTASKBARPOS = H5Private Type RECT Left As Long Top

如何在vb6中调整表单大小,使表单下边框位于任务栏的顶部

解决方法

有没有理由你不能只是最大化形式？这将是我的第一印象.

如果那不是跑步者,您可以尝试以下列方式获取任务栏高度：

Private Const ABM_GETTASKBARPOS = &H5

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

Private Type APPBARDATA
    cbSize As Long
    hwnd As Long
    uCallbackMessage As Long
    uEdge As Long
    rc As RECT
    lParam As Long
End Type

Private Declare Function SHAppBarMessage Lib "shell32.dll" (ByVal dwMessage As Long,pData As APPBARDATA) As Long


Function GetTaskBarSize()
    Dim ABD As APPBARDATA

    SHAppBarMessage ABM_GETTASKBARPOS,ABD

    MsgBox "Width:" & ABD.rc.Right - ABD.rc.Left 
    MsgBox " Height:" & ABD.rc.Bottom -    ABD.rc.Top

End Sub

然后将表单的高度设置为屏幕高度减去任务栏的高度.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!