frmnewsbar.frm

图书管理系统是针对学校和个人有一定的作用软件

VERSION 5.00
Begin VB.Form frmNewsBar 
   BackColor       =   &H00000080&
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   315
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4935
   ForeColor       =   &H00FFFFFF&
   LinkTopic       =   "Form1"
   ScaleHeight     =   315
   ScaleWidth      =   4935
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   Begin VB.Timer Timer1 
      Left            =   1920
      Top             =   120
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "Label1"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   285
      Left            =   120
      TabIndex        =   0
      Top             =   0
      Width           =   1170
   End
End
Attribute VB_Name = "frmNewsBar"
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 : Generating NewsBar                  *
'* Vote For Me : If you really enjoy this utility or *
'                 helped by any of the functionality *
'                 than plz. reward us by your VOTE.  *
'*****************************************************
'=====================================================

Private Sub Form_Load()
    Me.Left = 0
    Me.Width = Screen.Width
    Me.Top = Screen.Height - 750 '750 assumed height for taskbar
    SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
    
    Label1.Caption = "www.VIVEKPATEL.cjb.net provides you with Best Free Codes, Links and other information.  Kindly Encourage us with your valuable VOTE...Thanks for your support."
    Label1.Left = Screen.Width
    Label1.Width = Screen.Width - 50
    Label1.AutoSize = True
    
    
    Timer1.Interval = 40
End Sub

Private Sub Timer1_Timer()
    If Label1.Left + Label1.Width <= 5 Then
        Unload Me
    Else
        Label1.Left = Label1.Left - 60
        DoEvents
    End If
End Sub


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