VB隐藏和显示任务栏代码

显示任务栏代码：

API.Shell_TrayWnd.Show

隐藏任务栏代码：

API.Shell_TrayWnd.Hide

注意:需要在代码开头加入如下语句

Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Const SW_HIDE = 0
Public Const SW_SHOW = 5
Public API As Object

Set API = CreateObject("Shell.Application")

相关问题

vb6 用代码让窗体在任务栏上方显示

可以使用以下代码让 VB6 窗体在任务栏上方显示：

Private Sub Form_Load()
    '设置窗体在任务栏上方显示
    Me.WindowState = vbNormal
    Me.Top = 0
    Me.Left = (Screen.Width - Me.Width) / 2
End Sub

在窗体的 Load 事件中，设置窗体的状态为 vbNormal，然后将窗体的 Top 属性设置为 0，这样窗体就会在屏幕的最上方显示。另外，为了让窗体居中显示，还需要将窗体的 Left 属性设置为屏幕宽度减去窗体宽度的一半。这样窗体就会在任务栏上方居中显示。

vb6 用代码让窗体在任务栏的上方显示

可以使用以下代码让 VB6 窗体在任务栏的上方显示：

Private 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

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 taskbarHeight As Long
    Dim rc As RECT
    Call SystemParametersInfo(SPI_GETWORKAREA, 0, rc, 0)
    taskbarHeight = Screen.Height - (rc.Bottom - rc.Top)
    
    '设置窗体在任务栏上方显示
    Me.WindowState = vbNormal
    Me.Top = -taskbarHeight
    Me.Left = (Screen.Width - Me.Width) / 2
End Sub

首先，通过调用 SystemParametersInfo 函数获取任务栏的高度。然后，将窗体的状态设置为 vbNormal，将窗体的 Top 属性设置为任务栏高度的负值，这样窗体就会在任务栏的上方显示。最后，为了让窗体居中显示，还需要将窗体的 Left 属性设置为屏幕宽度减去窗体宽度的一半。这样窗体就会在任务栏的上方居中显示。