实现类似Windows自动隐藏任务栏的功能,如状态栏或控件的实现自动隐藏等!!!!请您写一下注释!!!急急急!!!在线等

Question

各位大师，帮忙解答一下，在VB中怎么实现类似Windows自动隐藏任务栏的功能如状态栏或控件等!!!!20分请您写一下注释!!!急急急!!!在线等 ！！！！！！！！！
    鼠标移动实现类似Windows自动隐藏任务栏的功能,如状态栏或控件的实现自动隐藏等!!!!20分请您写一下注释!!!急急急!!!在线等

Answer 1

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
                       (ByVal lpClassName As String, _
                        ByVal lpWindowName As String) As LongPublic Declare Function ShowWindow Lib "user32" _
                       (ByVal hwnd As Long, _
                        ByVal nCmdShow As Long) As LongPublic Const SW_SHOW = 5                         '任务栏显示
Public Const SW_HIDE = 0                         '任务栏隐藏--------------------
'窗体载入：LOAD
'-------------------------------
Private Sub Form_Load()
        
    Me.WindowState = vbMaximized       '窗体保持最大化
    
    lhwnd = FindWindow("Shell_traywnd", "")
    
    Call ShowWindow(lhwnd, SW_HIDE)    '隐藏任务栏
        
    Call TreeLoadData                  '初始化树形列表
    
    strMdlName = "FrmManage"
    
End Sub'窗体Resize
'-------------------------------
Private Sub Form_Resize()
    
    On Error Resume Next
    
    Me.WindowState = vbMaximized       '窗体保持最大化
        
    Call InitFace                      '初始化界面显示
    
End Sub'确认窗体卸载
'-------------------------------
Private Sub Form_Unload(Cancel As Integer)    If MsgBox("确实要退出系统吗?", vbInformation + vbYesNo + vbDefaultButton2, "提示") = vbYes Then
        Call ShowWindow(lhwnd, SW_SHOW)   '显示任务栏
        Unload Me
    Else
        Cancel = True
    End IfEnd Sub