frmabout.frm

管理电子相片 可以进行上传 评价 浏览 等操作

VERSION 5.00
Begin VB.Form frmAbout 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "About me"
   ClientHeight    =   1785
   ClientLeft      =   45
   ClientTop       =   315
   ClientWidth     =   3705
   ClipControls    =   0   'False
   BeginProperty Font 
      Name            =   "Arial"
      Size            =   14.25
      Charset         =   0
      Weight          =   700
      Underline       =   0   'False
      Italic          =   -1  'True
      Strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H00000000&
   Icon            =   "frmAbout.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   119
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   247
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.PictureBox Thumbing 
      AutoRedraw      =   -1  'True
      BorderStyle     =   0  'None
      ClipControls    =   0   'False
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   6.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00808080&
      Height          =   885
      Left            =   300
      ScaleHeight     =   59
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   47
      TabIndex        =   2
      TabStop         =   0   'False
      Top             =   420
      Width           =   705
   End
   Begin VB.Label lblTitleBack 
      BackStyle       =   0  'Transparent
      Caption         =   "相片管理系统"
      ForeColor       =   &H00FF0000&
      Height          =   345
      Left            =   1380
      TabIndex        =   3
      Top             =   390
      Width           =   2025
   End
   Begin VB.Label lblAuthor 
      BackStyle       =   0  'Transparent
      Caption         =   "发布日期   2004"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   180
      Left            =   1395
      TabIndex        =   1
      Top             =   915
      Width           =   1440
   End
   Begin VB.Label lblMailTo 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   1410
      MouseIcon       =   "frmAbout.frx":000C
      MousePointer    =   99  'Custom
      TabIndex        =   0
      Top             =   1125
      Width           =   45
   End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit

Private bQuit As Boolean '-- 退出循环



'------------------------------------------------------------------------------
' 动画
'------------------------------------------------------------------------------

Private Sub Form_Activate()

  Dim Shows As Long
  Dim x     As Long
  Dim y     As Long
    
    Thumbing.Cls
    bQuit = False
    
    Do
        If (timeGetTime - t >= 50) Then
            t = timeGetTime
        
            If (Shows < 20) Then
                x = (Shows Mod 4) * 12
                y = (Shows \ 4) * 12
                Thumbing.Line (x, y)-(x + 10, y + 10), , B
            End If
            Shows = Shows + 1
            
            If (Shows = 30) Then
                Shows = 0
                Thumbing.Cls
            End If
        End If
        DoEvents
        
    Loop Until bQuit
End Sub



'------------------------------------------------------------------------------
' 退出
'------------------------------------------------------------------------------

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If (KeyCode = 27) Then Unload Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
    bQuit = True
End Sub