exitcap.frm

用于学习用的VB源程序,可以缩定一个程序

VERSION 2.00
Begin Form ExitCap 
   BackColor       =   &H8000000F&
   BorderStyle     =   3  'Fixed Double
   Caption         =   "ExitWin - From Caption"
   ClientHeight    =   495
   ClientLeft      =   2640
   ClientTop       =   2250
   ClientWidth     =   3240
   ClipControls    =   0   'False
   Height          =   900
   Icon            =   EXITCAP.FRX:0000
   Left            =   2580
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   495
   ScaleWidth      =   3240
   Top             =   1905
   Width           =   3360
   WindowState     =   1  'Minimized
   Begin CommandButton cmdClose 
      Cancel          =   -1  'True
      Caption         =   "Close Me"
      Default         =   -1  'True
      Height          =   495
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   3255
   End
   Begin CapBar CapBar1 
      ButtonClass     =   ""
      ButtonDown1     =   EXITCAP.FRX:0302
      ButtonStatus1   =   0  'Enabled
      ButtonStatus10  =   0  'Enabled
      ButtonStatus2   =   0  'Enabled
      ButtonStatus3   =   0  'Enabled
      ButtonStatus4   =   0  'Enabled
      ButtonStatus5   =   0  'Enabled
      ButtonStatus6   =   0  'Enabled
      ButtonStatus7   =   0  'Enabled
      ButtonStatus8   =   0  'Enabled
      ButtonStatus9   =   0  'Enabled
      ButtonTask      =   -1
      ButtonTip1      =   "Exit Windows"
      ButtonTip10     =   ""
      ButtonTip2      =   ""
      ButtonTip3      =   ""
      ButtonTip4      =   ""
      ButtonTip5      =   ""
      ButtonTip6      =   ""
      ButtonTip7      =   ""
      ButtonTip8      =   ""
      ButtonTip9      =   ""
      ButtonUp1       =   EXITCAP.FRX:08A4
      Left            =   0
      Top             =   0
   End
End
Option Explicit

Declare Function ExitWindows Lib "User" (ByVal dwReturnCode As Long, ByVal wReserved As Integer) As Integer

Sub CapBar1_Click (ButtonIndex As Integer)
Dim R As Integer, dwReturnCode As Long, wReserved As Integer
   
   R = ExitWindows(dwReturnCode, wReserved)

End Sub

Sub cmdClose_Click ()

   End

End Sub

Sub Form_Load ()

   ' Run CapBar
   CapBar1.Action = 0

End Sub