12-1.frm

vb6.0编程实例详解,很详细的介绍,对学习VB有帮助

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "API 函数调用例程"
   ClientHeight    =   1875
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4530
   LinkTopic       =   "Form1"
   ScaleHeight     =   1875
   ScaleWidth      =   4530
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command5 
      Caption         =   "退出"
      Height          =   495
      Left            =   2280
      TabIndex        =   4
      Top             =   1080
      Width           =   2055
   End
   Begin VB.CommandButton Command4 
      Caption         =   "消隐任务栏"
      Height          =   495
      Left            =   240
      TabIndex        =   3
      Top             =   1080
      Width           =   1815
   End
   Begin VB.CommandButton Command3 
      Caption         =   "恢复"
      Height          =   495
      Left            =   3120
      TabIndex        =   2
      Top             =   240
      Width           =   1215
   End
   Begin VB.CommandButton Command2 
      Caption         =   "最小"
      Height          =   495
      Left            =   1680
      TabIndex        =   1
      Top             =   240
      Width           =   1215
   End
   Begin VB.CommandButton Command1 
      Caption         =   "最大"
      Height          =   495
      Left            =   240
      TabIndex        =   0
      Top             =   240
      Width           =   1215
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_HIDE = 0
Private Const SW_SHOWNORMAL = 1
Private Const SW_SHOWMINIMIZED = 2
Private Const SW_SHOWMAXIMIZED = 3
Private Const SW_SHOWNOACTIVATE = 4
Private Const SW_SHOW = 5
Private Const SW_SHOWMINNOACTIVE = 7
Private Const SW_SHOWNA = 8
Private Const SW_SHOWDEFAULT = 10

Private Sub Command1_Click()
    ShowWindow hwnd, SW_SHOWMAXIMIZED
End Sub

Private Sub Command2_Click()
    ShowWindow hwnd, SW_SHOWMINIMIZED
End Sub

Private Sub Command3_Click()
    ShowWindow hwnd, SW_SHOWNORMAL
End Sub

Private Sub Command4_Click()
    If Command4.Caption = "消隐任务栏" Then
        Command4.Caption = "显示任务栏"
        HideTaskBar (False)
    Else
        Command4.Caption = "消隐任务栏"
        HideTaskBar (True)
    End If
End Sub

Private Sub Command5_Click()
    Unload Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
    HideTaskBar True
End Sub

Private Sub HideTaskBar(Active As Boolean)
    Dim m_hWnd As Long
    
    m_hWnd = FindWindow("Shell_TrayWnd", vbNullString)
    If Active Then
        ShowWindow m_hWnd, SW_SHOW
    Else
        ShowWindow m_hWnd, SW_HIDE
    End If
End Sub