frmsplash.frm

三层架构的数据C/S, 主要是学生成绩的管理体制

VERSION 5.00
Begin VB.Form frmSplash 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   BorderStyle     =   1  'Fixed Single
   ClientHeight    =   5565
   ClientLeft      =   225
   ClientTop       =   1380
   ClientWidth     =   8310
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   Icon            =   "frmSplash.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5565
   ScaleWidth      =   8310
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   4680
      Top             =   2040
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   5580
      Left            =   -120
      Picture         =   "frmSplash.frx":000C
      ScaleHeight     =   5550
      ScaleWidth      =   8400
      TabIndex        =   0
      Top             =   0
      Visible         =   0   'False
      Width           =   8430
   End
End
Attribute VB_Name = "frmSplash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim Proba, Proba2 As Integer
Dim Boja2 As String
     
Private Function Zrak(slika As PictureBox, StartX As Integer, StartY As Integer, Levo As Integer, Desno As Integer, Boja As String)
    Me.ScaleMode = vbPixels
    With slika
        .ScaleMode = vbPixels
        .AutoRedraw = True
    End With
    
    For Proba2 = 0 To slika.ScaleWidth
        DoEvents
    For Proba = 0 To slika.ScaleHeight
        Boja2 = slika.Point(Proba2, Proba)
        Line (StartX, StartY)-(Levo + Proba2, Desno + Proba), Boja2
    Next
        Line (StartX, StartY)-(Levo + Proba2, Desno + slika.ScaleHeight), Boja
    Next

    For Proba2 = 0 To slika.ScaleHeight
        Line (StartX, StartY)-(Levo + slika.ScaleWidth, Desno + Proba2), Boja
    Next
End Function

Private Sub Form_Activate()
    Timer1.Enabled = True
End Sub

Private Sub Form_Click()
    Unload Me
    frmLogin.Show
    Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
    Dim i, j As Integer
    Zrak Picture1, 565, 295, 0, 0, Me.BackColor
    If Timer1.Interval = 1000 Then
        For i = 0 To 100
            For j = 0 To 100
               DoEvents
            Next
        Next
    End If
    Call Form_Click
End Sub