启动.frm

财务管理系统！ 经过本人操作可以使用！

VERSION 5.00
Begin VB.Form 启动 
   AutoRedraw      =   -1  'True
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "启动"
   ClientHeight    =   8655
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   11925
   Icon            =   "启动.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   577
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   795
   ShowInTaskbar   =   0   'False
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   2000
      Left            =   480
      Top             =   4890
   End
   Begin VB.Image Image2 
      Height          =   1380
      Left            =   1440
      Picture         =   "启动.frx":0442
      Top             =   3300
      Width           =   9000
   End
   Begin VB.Image Image1 
      Height          =   1380
      Left            =   2910
      Picture         =   "启动.frx":34D8
      Stretch         =   -1  'True
      Top             =   720
      Width           =   6240
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "2000 年 2 月"
      BeginProperty Font 
         Name            =   "仿宋_GB2312"
         Size            =   18
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000E&
      Height          =   405
      Left            =   4800
      TabIndex        =   1
      Top             =   7260
      Width           =   2955
   End
   Begin VB.Label Label19 
      BackStyle       =   0  'Transparent
      Caption         =   "程序设计：姚   巍"
      BeginProperty Font 
         Name            =   "仿宋_GB2312"
         Size            =   15.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000E&
      Height          =   405
      Left            =   4530
      TabIndex        =   0
      Top             =   6300
      Width           =   3585
   End
End
Attribute VB_Name = "启动"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'API函数声明
Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
Private Declare Function FillRect Lib "User32" (ByVal hdc As Long, lpRect As RECT, ByVal hBrush As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwflags As Long) As Long
'相关常量声明
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowPos Lib "User32" (ByVal hwnd As Long, ByVal X As Long, _
 ByVal hWndInsterAfter As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Dim hWndl As Long
Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW = &H40
Private Sub Form_Load()
Dim Y As Integer, R As Single, G As Single, B As Single
Dim Q As String, Path As String, I As Integer
Dim W As Integer
Q = Me.hwnd
W = 0
Disabled Q, W
Timer1.Enabled = True
 Call PlaySound(App.Path + "\Windows 登录音.wav", 0&, &H1)
  启动.ScaleWidth = 799
  启动.ScaleHeight = 573
Me.Top = 0
Me.Left = 0
ScaleMode = 3
R = 71: G = 180: B = 161
For I = 1 To 600
Y = Y + 1
 Line (1, Y)-(800, Y), RGB(R, G, B)
 R = R - 0.085: G = G - 0.1975: B = B - 0.1575
Next I
'获得窗体句柄
  hWndl = FindWindow("Shell_traywnd", "")
'关闭任务栏
  SetWindowPos hWndl, 0, 0, 0, 0, 0, SWP_HIDEWINDOW
  '得到屏幕当前分辨率
 SystemParametersInfo SPI_GETWORKAREA, vbNull, VarPtr(apiRECT), 0
'将屏幕当前分辨率保存于 Screen.txt
Open App.Path + "\" + "Screen.txt" For Output As #1
Write #1, apiRECT.Right
Close #1
'将屏幕分辨率改为800×600
SetDisplayMode 800, 600, 16
End Sub
Private Sub Form_Click()
Timer1.Enabled = False
用户登录.Show
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii <> 0 Then
Timer1.Enabled = False
用户登录.Show
End If
End Sub
Private Sub Timer1_Timer()
Timer1.Enabled = False
用户登录.Show
End Sub