about.frm

大型商业学分统计系统原代码说明 1.如果在向导设置班级数为8时,此数值为班级总数

VERSION 5.00
Begin VB.Form ABOUTaa 
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   4005
   ClientLeft      =   45
   ClientTop       =   45
   ClientWidth     =   6120
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "ABOUT.frx":0000
   ScaleHeight     =   267
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   408
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   4215
      Left            =   480
      Picture         =   "ABOUT.frx":6EA78
      ScaleHeight     =   4215
      ScaleWidth      =   6135
      TabIndex        =   0
      Top             =   4410
      Width           =   6135
   End
   Begin VB.Timer Timer1 
      Interval        =   10
      Left            =   4770
      Top             =   5280
   End
End
Attribute VB_Name = "ABOUTaa"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function WaterInit Lib "waterdll.dll" (ByVal bitmap As Long) As Long
Private Declare Function WaterMouseAction Lib "waterdll.dll" (ByVal hdc As _
        Long, ByVal sx As Long, ByVal sy As Long, ByVal mx As Long, _
        ByVal my As Long, ByVal half As Long, ByVal deep As Long) As Long

Private Declare Function WaterTimer Lib "waterdll.dll" (ByVal hdc As Long, ByVal sx As _
        Long, ByVal sy As Long) As Long



Private Sub Form_DblClick()

    On Error Resume Next
    On Error Resume Next
    '    Main.Enabled = True
    MousePointer = vbDefault
    Unload Me

End Sub

Private Sub Form_Load()
    MousePointer = vbDefault
    On Error Resume Next
    WaterInit Picture1.Picture.Handle
    'Me.Print "图片数据" ''    Me.Show

    DoEvents
    WaterMouseAction ABOUTaa.hdc, 0, 0, 55, 55, 60, 500
    WaterMouseAction ABOUTaa.hdc, 0, 0, 55, 55, 5, 80

    WaterMouseAction ABOUTaa.hdc, 0, 0, 155, 155, 60, 500
    WaterMouseAction ABOUTaa.hdc, 0, 0, 155, 155, 5, 80

    WaterMouseAction ABOUTaa.hdc, 0, 0, 255, 255, 60, 500
    WaterMouseAction ABOUTaa.hdc, 0, 0, 255, 255, 5, 80
End Sub



Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    On Error Resume Next
    WaterMouseAction ABOUTaa.hdc, 0, 0, x, y, 60, 500
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    On Error Resume Next
    WaterMouseAction ABOUTaa.hdc, 0, 0, x, y, 5, 500
End Sub

Private Sub Timer1_Timer()
    On Error Resume Next
    WaterTimer Me.hdc, 0, 0

End Sub