启动屏幕.frm

小区物业管理系统vb开发的,曾用于本科毕业设计

VERSION 5.00
Begin VB.Form default 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "小区物业管理"
   ClientHeight    =   8220
   ClientLeft      =   2100
   ClientTop       =   1140
   ClientWidth     =   8595
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "启动屏幕.frx":0000
   ScaleHeight     =   8220
   ScaleWidth      =   8595
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   1800
      Top             =   600
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "感受文明、热情的服务……"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   15
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   3840
      TabIndex        =   2
      Top             =   2040
      Width           =   4455
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "优雅、舒适、温馨的生活环境"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   15
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   840
      TabIndex        =   1
      Top             =   1560
      Width           =   4335
   End
   Begin VB.Label Label1 
      BackColor       =   &H00FFFFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "小区物业管理系统"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   27.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000080FF&
      Height          =   735
      Left            =   2040
      TabIndex        =   0
      Top             =   360
      Width           =   4575
   End
End
Attribute VB_Name = "default"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, _
    ByVal X2 As Long, ByVal Y2 As Long) As Long
    
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, _
    ByVal bRedraw As Long) As Long

Dim i As Long
Dim J As Long

Private Sub Form_Click()
Unload Me
身份登录.Show
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
Unload Me
身份登录.Show
End Sub

Private Sub Form_Load()
  Dim hr&, dl&
  Dim usew&, useh&
  Me.Height = Me.Width
  Me.Refresh
  usew& = Me.Width / Screen.TwipsPerPixelX
  useh& = Me.Height / Screen.TwipsPerPixelY
  hr& = CreateEllipticRgn(0, 0, usew, useh)
  dl& = SetWindowRgn(Me.hWnd, hr, True)
End Sub

Private Sub Timer1_Timer()
Dim i%, J%, K%
  i = Int(Rnd * 255) + 1
  K = Int(Rnd * 255) + 2
  J = Int(Rnd * 255) + 4
  Label2.ForeColor = RGB(i, J, K)
  Label3.ForeColor = RGB(i, J, K)
End Sub