弹出.frm

一间公司的管理系统的源码

VERSION 5.00
Begin VB.Form tanchu 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   2025
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   2850
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   2025
   ScaleWidth      =   2850
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.Timer Timer1 
      Left            =   4200
      Top             =   0
   End
   Begin VB.Shape Shape1 
      Height          =   1935
      Left            =   0
      Top             =   0
      Width           =   2775
   End
   Begin VB.Label Title 
      Caption         =   "这里是提示标题"
      Height          =   255
      Left            =   120
      TabIndex        =   1
      Top             =   120
      Width           =   2655
   End
   Begin VB.Label Content 
      Caption         =   "这里是提示信息"
      Height          =   1335
      Left            =   120
      TabIndex        =   0
      Top             =   480
      Width           =   2655
   End
End
Attribute VB_Name = "tanchu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim DirectionIsUp As Boolean '弹上或降下状态
Private Sub Form_Load()

  Call CheckLogin(Me)
  Call tanchuSet(Me)
  
  Me.Top = Screen.Height + Me.Height
  Me.Left = Screen.Width - Me.Width
  
  Timer1.Interval = 500
  DirectionIsUp = True
  
  Title.Left = (Me.Width - Title.Width) / 2
  Content.Left = (Me.Width - Content.Width) / 2
  
  Title.Alignment = vbCenter
  Title.ForeColor = vbBlue
  Content.Alignment = vbLeftJustify
  Content.ForeColor = vbBlack
  '显示返回的提示信息
  Title.Caption = popTitle
  Content.Caption = popContent
  
End Sub

Private Sub Timer1_Timer()
  Timer1.Interval = 10
  If DirectionIsUp Then
    Me.Top = Me.Top - 50
    If (Me.Top <= (Screen.Height - Me.Height - 500)) 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