frmabout.frm

这是一个VB做的多功能图书借阅系统

VERSION 5.00
Begin VB.Form frmAbout 
   BackColor       =   &H00E0E0E0&
   Caption         =   "About Me"
   ClientHeight    =   4710
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6840
   LinkTopic       =   "Form1"
   ScaleHeight     =   4710
   ScaleWidth      =   6840
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.PictureBox Picture1 
      BackColor       =   &H00E0E0E0&
      Height          =   3015
      Left            =   600
      ScaleHeight     =   2955
      ScaleWidth      =   5595
      TabIndex        =   1
      Top             =   1200
      Width           =   5655
      Begin VB.Label Label2 
         BackColor       =   &H00808080&
         BackStyle       =   0  'Transparent
         Caption         =   "Email : [e-mail]"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   15.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   495
         Left            =   480
         TabIndex        =   4
         Top             =   1920
         Width           =   5535
      End
      Begin VB.Label Label1 
         BackColor       =   &H00808080&
         BackStyle       =   0  'Transparent
         Caption         =   "Programmed by : zhangjunmin"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   15.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   495
         Left            =   840
         TabIndex        =   3
         Top             =   1080
         Width           =   5055
      End
      Begin VB.Label lblWelcome 
         Alignment       =   2  'Center
         BackColor       =   &H00808080&
         Caption         =   "简单机票订购系统"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   21.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C0FFFF&
         Height          =   495
         Left            =   0
         TabIndex        =   2
         Top             =   0
         Width           =   5655
      End
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H00C0C0C0&
      Caption         =   "&close"
      Height          =   615
      Left            =   480
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   120
      Width           =   1575
   End
   Begin VB.Label lblvote 
      Alignment       =   2  'Center
      AutoSize        =   -1  'True
      BackColor       =   &H00E0E0E0&
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   330
      Left            =   3525
      TabIndex        =   5
      Top             =   960
      Width           =   105
   End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'####################################################
'Declaration for making form as TOPMOST
' [ Start ]
'####################################################

'Private Const HWND_TOPMOST = -1
'Private Const HWND_NOTOPMOST = -2
'Private Const SWP_NOSIZE = &H1
'Private Const SWP_NOMOVE = &H2
'Private Const SWP_NOACTIVATE = &H10
'Private 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 ]
'####################################################

Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "User32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long
'the form's diameter in pixels
Const F_DIA As Integer = 7000

Private Sub Command1_Click()
    Unload Me
End Sub

Private Sub Form_Activate()
    Call popup
'    SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub

Private Sub Form_Load()
    Me.Width = F_DIA
    Me.Height = F_DIA
    thewidth = Me.Width / Screen.TwipsPerPixelX
    theheight = Me.Height / Screen.TwipsPerPixelY
    hori = CreateEllipticRgn(25, 25, thewidth, theheight)
    digo = SetWindowRgn(Me.hWnd, hori, False)
    Me.Height = F_DIA + 25
    Me.Width = F_DIA + 25
    
    'For displaying form in between
    Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
    
    'Me.Left = Screen.Width - (Me.Width + 50)
    Me.Top = Screen.Height - 1400 '1400 assumed height for taskbar
    Picture1.Visible = False
    
    'For displaying command btn in between
    Command1.Move (Me.Width - Command1.Width) \ 2, (Me.Height - Command1.Height) - 700
    
    lblvote.Move (Me.Width - lblvote.Width) \ 2, (Me.ScaleTop + lblvote.Height) + 500
    Picture1.Move (Me.Width - Picture1.Width) \ 2, (Me.ScaleTop + lblvote.Height) + 1475
    
    Call frmNewsBar.Show
End Sub



'**************************************************
' MSN Style Popup Menu Coding
'**************************************************
  
  Private Sub popup()
    Picture1.Visible = True
    Dim i As Integer
    i = Me.Height
    Me.Height = 0
    While Me.Height < i
        Me.Height = Me.Height + 50
        Me.Top = Me.Top - 50
        DoEvents
    Wend
End Sub

Private Sub popdown()
    i = Me.Height
    While Me.Height > 0
        Me.Height = Me.Height - 50
        Me.Top = Me.Top + 50
        DoEvents
    Wend
End Sub