lmb1.frm

lmb--路面工程数量计算软件

VERSION 5.00
Begin VB.Form Form2 
   BackColor       =   &H00C0C0C0&
   Caption         =   "退出"
   ClientHeight    =   615
   ClientLeft      =   8220
   ClientTop       =   345
   ClientWidth     =   1320
   ControlBox      =   0   'False
   LinkTopic       =   "Form2"
   ScaleHeight     =   615
   ScaleWidth      =   1320
   Begin VB.CommandButton Command1 
      Caption         =   "退出"
      Height          =   375
      Left            =   120
      MaskColor       =   &H80000012&
      TabIndex        =   0
      Top             =   120
      Width           =   1095
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOZORDER = &H4
Private Const SWP_NOREDRAW = &H8
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_FRAMECHANGED = &H20
Private Const SWP_SHOWWINDOW = &H40
Private Const SWP_NOCOPYBITS = &H80
Private Const SWP_NOOWNERZORDER = &H200
Private Const SWP_DRAWFRAME = SWP_FRAMECHANGED
Private Const SWP_NOREPOSITION = SWP_NOOWNERZORDER
Private Const HWND_TOP = 0
Private Const HWND_BOTTOM = 1
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Declare Function SetWindowPos Lib "user32" ( _
ByVal hWnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal X As Long, _
ByVal Y As Long, _
ByVal cx As Long, _
ByVal cy As Long, _
ByVal wFlags As Long) As Long
Private mbOnTop As Boolean

Private Property Let OnTop(Setting As Boolean)
    If Setting Then
        SetWindowPos hWnd, -1, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
    Else
        SetWindowPos hWnd, -2, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
    End If
    mbOnTop = Setting
End Property

Private Property Get OnTop() As Boolean
'Return the private variable set in Property Let
OnTop = mbOnTop
End Property

Private Sub Command1_Click()
    Unload Form2
End Sub

Private Sub Form_Load()
    OnTop = True
 '   AppActivate "Microsoft Excel"
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Form1.Show
    xlbook.Application.WindowState = xlMinimized
    'xlbook.Windows(1).Visible = False
    'xlbook.Application.Visible = False
End Sub