form5.frm

本人初次开发本系统

VERSION 5.00
Begin VB.Form Form5 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   BorderStyle     =   0  'None
   Caption         =   "Form5"
   ClientHeight    =   3090
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   5235
   DrawMode        =   1  'Blackness
   FillStyle       =   0  'Solid
   FontTransparent =   0   'False
   LinkTopic       =   "Form5"
   Picture         =   "Form5.frx":0000
   ScaleHeight     =   3090
   ScaleWidth      =   5235
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "退出"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   420
      Left            =   2070
      TabIndex        =   0
      Top             =   60
      Width           =   240
   End
   Begin VB.Image Image1 
      Height          =   435
      Left            =   0
      MouseIcon       =   "Form5.frx":4829
      MousePointer    =   99  'Custom
      Picture         =   "Form5.frx":50F3
      Top             =   0
      Width           =   2295
   End
End
Attribute VB_Name = "Form5"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Private MyRect As RECT


Private Sub Form_Load()
      Form5.Height = 435
      Form5.Width = 2310
        Get_Windows_Rect
End Sub

Sub Get_Windows_Rect()
        Dim dl&
        Max = 390: Form5.Height = Max
        Form5.Top = 0       '窗体始终放在屏幕顶部
        dl& = GetWindowRect(Form1.hwnd, MyRect)
End Sub

Private Sub Image1_Click()
Form1.Show
Form5.Hide
End Sub

Private Sub Label1_Click()
tt = MsgBox("确定要退出系统吗？", 1 + 32, " 五虎工作室")
If tt = 1 Then
End
End If
End Sub