form7.frm

此为一学生档案管理系统。学生档案管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。

VERSION 5.00
Begin VB.Form Form7 
   BorderStyle     =   0  'None
   Caption         =   "Form7"
   ClientHeight    =   3990
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   6660
   LinkTopic       =   "Form7"
   ScaleHeight     =   3990
   ScaleWidth      =   6660
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   2760
      Top             =   1800
   End
   Begin VB.PictureBox Picture1 
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   3315
      Left            =   0
      ScaleHeight     =   221
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   400
      TabIndex        =   1
      Top             =   0
      Width           =   6000
   End
   Begin VB.PictureBox Picture2 
      AutoSize        =   -1  'True
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   0  'None
      Height          =   3255
      Left            =   1680
      ScaleHeight     =   217
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   169
      TabIndex        =   0
      Top             =   0
      Width           =   2535
   End
End
Attribute VB_Name = "Form7"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim stepheight, i, j, countx, county As Long
Dim time As Integer

Private Sub Form_Load()
  Picture1.Picture = LoadPicture(App.Path & "\1.jpg")
  Picture2.Width = Picture1.Width
  Picture2.Height = Picture1.Height
  Form7.Width = Picture1.Width
  Form7.Height = Picture1.Height
  countx = Picture1.ScaleHeight / 5
  county = Picture1.ScaleWidth / 5
  Picture2.Top = 20
  Picture2.Left = (Me.Width - Picture2.Width) / 2
  time = 0
End Sub

Private Sub a()  '从上到下变换
  Picture1.Visible = False
  Set Picture2.Picture = Nothing
  For i = 0 To countx - 1 Step 3
      Picture2.PaintPicture Picture1.Picture, 0, i * 5, , , 0, i * 5, Picture2.Width, _
      5, vbSrcCopy
      DoEvents
      Sleep (10)
  Next i
  For i = 0 To countx - 1 Step 2
      Picture2.PaintPicture Picture1.Picture, 0, i * 5, , , 0, i * 5, Picture2.Width, _
      5, vbSrcCopy
      DoEvents
      Sleep (10)
  Next i
  For i = 0 To countx - 1 Step 1
      Picture2.PaintPicture Picture1.Picture, 0, i * 5, , , 0, i * 5, Picture2.Width, _
      5, vbSrcCopy
      DoEvents
      Sleep (10)
  Next i
End Sub

Private Sub b()  '网格
  Picture1.Visible = False
  Set Picture2.Picture = Nothing
  For i = 0 To county - 1 Step 4
      Picture2.PaintPicture Picture1.Picture, i * 5, 0, , , i * 5, 0, 5, Picture2.Height, vbSrcCopy
      DoEvents
      Sleep (10)
  Next i
  For i = 0 To county - 1 Step 3
      Picture2.PaintPicture Picture1.Picture, i * 5, 0, , , i * 5, 0, 5, Picture2.Height, vbSrcCopy
      DoEvents
      Sleep (10)
  Next i
  For i = 0 To county - 1 Step 2
      Picture2.PaintPicture Picture1.Picture, i * 5, 0, , , i * 5, 0, 5, Picture2.Height, vbSrcCopy
      DoEvents
      Sleep (10)
  Next i
  For i = 0 To county - 1 Step 1
      Picture2.PaintPicture Picture1.Picture, i * 5, 0, , , i * 5, 0, 5, Picture2.Height, vbSrcCopy
      DoEvents
      Sleep (10)
  Next i
End Sub

Private Sub c() '从左到右
  Picture1.Visible = False
  Set Picture2.Picture = Nothing
  For i = 0 To county - 1 Step 4
      Picture2.PaintPicture Picture1.Picture, i * 5, 0, , , i * 5, 0, 5, Picture2.Height, vbSrcCopy
      DoEvents
      Sleep (10)
  Next i
  For i = 0 To countx - 1 Step 3
      Picture2.PaintPicture Picture1.Picture, 0, i * 5, , , 0, i * 5, Picture2.Width, 5, vbSrcCopy
      DoEvents
      Sleep (10)
  Next i
  For i = 0 To county - 1 Step 2
      Picture2.PaintPicture Picture1.Picture, i * 5, 0, , , i * 5, 0, 5, Picture2.Height, vbSrcCopy
      DoEvents
      Sleep (10)
  Next i
  
  For i = 0 To countx - 1 Step 1
      Picture2.PaintPicture Picture1.Picture, 0, i * 5, , , 0, i * 5, Picture2.Width, 5, vbSrcCopy
      DoEvents
      Sleep (10)
  Next i
End Sub

Private Sub Picture1_Click()

End Sub

Private Sub Timer1_Timer()
Dim i As Integer
time = time + 1
If time = 2 Then
i = Int(3 * Rnd) + 1
'MsgBox i
Select Case i
Case 1
Call a
Case 2
Call b
Case 3
Call c
End Select
Unload Me
Form2.Show
End If
End Sub