updown.frm

学校管理系统 V1.0 正式企业版是一款面向中小型企业、个体私营企业

VERSION 5.00
Begin VB.Form frmUpDown 
   BackColor       =   &H00FFC0C0&
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   1485
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   2415
   LinkTopic       =   "Form1"
   ScaleHeight     =   1485
   ScaleWidth      =   2415
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.Timer Timer1 
      Interval        =   500
      Left            =   960
      Top             =   720
   End
   Begin VB.Label lblmsg 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "这里是提示信息！"
      Height          =   855
      Left            =   120
      TabIndex        =   0
      Top             =   360
      Width           =   2175
   End
   Begin VB.Shape Shape1 
      BackColor       =   &H8000000F&
      Height          =   1455
      Left            =   0
      Top             =   0
      Width           =   2415
   End
End
Attribute VB_Name = "frmUpDown"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim DirectionIsUp As Boolean
Private Sub Form_Load()

  Me.Top = Screen.Height + 200
  Me.Left = Screen.Width - (Me.Width + 80)
  
  DirectionIsUp = True
  
  lblmsg.ForeColor = vbRed
  lblmsg.Caption = popTiShi
  
End Sub

Private Sub Timer1_Timer()
  
  Timer1.Interval = 10
  
  If DirectionIsUp Then
    
    Me.Top = Me.Top - 50
    
    If (Me.Top <= Screen.Height - (Me.Height + 300)) Then
      
      Timer1.Interval = 3000
      
      DirectionIsUp = False
    End If
  
  Else
    Me.Top = Me.Top + 50
    
    If Me.Top >= Screen.Height + 10 Then
      Timer1.Enabled = False
      Unload Me
    End If
  End If
End Sub