frmwelcome.frm

一个图书管理系统

VERSION 5.00
Begin VB.Form frmWelcome 
   BorderStyle     =   0  'None
   Caption         =   "Welcome"
   ClientHeight    =   1830
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   3885
   LinkTopic       =   "Form1"
   Picture         =   "frmWelcome.frx":0000
   ScaleHeight     =   1830
   ScaleWidth      =   3885
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   Begin VB.PictureBox Picture1 
      BackColor       =   &H00E0E0E0&
      Height          =   1815
      Left            =   0
      ScaleHeight     =   1755
      ScaleWidth      =   3795
      TabIndex        =   0
      Top             =   0
      Width           =   3855
      Begin VB.Label Label2 
         BackStyle       =   0  'Transparent
         Caption         =   "www.VIVEKPATEL.cjb.net"
         BeginProperty Font 
            Name            =   "Comic Sans MS"
            Size            =   15.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   495
         Left            =   0
         TabIndex        =   4
         Top             =   0
         Width           =   3735
      End
      Begin VB.Label Label1 
         BackStyle       =   0  'Transparent
         Caption         =   "Have a Nice Day!!!"
         BeginProperty Font 
            Name            =   "Courier New"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00808080&
         Height          =   255
         Left            =   480
         TabIndex        =   3
         Top             =   1440
         Width           =   2775
      End
      Begin VB.Label lblUserName 
         BackStyle       =   0  'Transparent
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   15.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000C0&
         Height          =   495
         Left            =   1920
         TabIndex        =   2
         Top             =   840
         Width           =   1695
      End
      Begin VB.Label lblWelcome 
         BackStyle       =   0  'Transparent
         Caption         =   "Welcome!!!"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   15.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000C0&
         Height          =   495
         Left            =   120
         TabIndex        =   1
         Top             =   840
         Width           =   1455
      End
   End
End
Attribute VB_Name = "frmWelcome"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'* Programmed by : Vivek Patel                        *
'* Contact :  Email   => [e-mail]  *
'*            Website => www.VIVEKPATEL.cjb.net       *
'* Description : Welcome Message as per User-Logged in*
'=====================================================
'*****************************************************
'* Vote For Me : If you really enjoy this utility or *
'                 helped by any of the functionality *
'                 than plz. reward us by your VOTE.  *
'*****************************************************
'=====================================================



'####################################################
'Declaration for making form as TOPMOST
' [ Start ]
'####################################################

Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40

Private Declare Sub SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
'####################################################
'Declaration for making form as TOPMOST
' [ End ]
'####################################################


'####################################################
'Api Declaration to make delay between form load and unload
'####################################################
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)



'####################################################
'Code for making forms Animated on Start-up and Close
' [ Start ]
'####################################################
Dim i As Integer

Private Sub popup()
On Error Resume Next
    Picture1.Visible = True
    i = Me.Height
    Me.Height = 0
    While Me.Height < i
        Me.Height = Me.Height + 1
        Me.Top = Me.Top - 1
        DoEvents
    Wend
End Sub

Private Sub popdown()
On Error Resume Next
    i = Me.Height
    While Me.Height > 0
        Me.Height = Me.Height - 1
        Me.Top = Me.Top + 1
        DoEvents
    Wend
End Sub

Private Sub Form_Activate()
On Error Resume Next
    lblUserName.Caption = sUserName
    Call popup
    SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
    Sleep 1000  'Wait for 1 Seconds
    Call popdown
End Sub

Private Sub Form_Load()
On Error Resume Next
    Me.Left = Screen.Width - (Me.Width + 50)
    Me.Top = Screen.Height - 450 '450 assumed height for taskbar
    Picture1.Visible = False
    DoEvents
End Sub

'####################################################
'Code for making forms Animated on Start-up and Close
' [ends]
'####################################################




'=====================================================
'*****************************************************
'* Vote For Me : If you really enjoy this utility or *
'                 helped by any of the functionality *
'                 than plz. reward us by your VOTE.  *
'*****************************************************
'=====================================================