frmstate.frm

vb+sql 用于公交点钞结算和报表结合的相关软件

VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmState 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "正在处理 ......"
   ClientHeight    =   1500
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5295
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1500
   ScaleWidth      =   5295
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   4290
      Top             =   1050
   End
   Begin MSComCtl2.Animation Animation1 
      Height          =   375
      Left            =   390
      TabIndex        =   0
      Top             =   210
      Width           =   975
      _ExtentX        =   1720
      _ExtentY        =   661
      _Version        =   393216
      AutoPlay        =   -1  'True
      OleDropMode     =   1
      FullWidth       =   65
      FullHeight      =   25
   End
   Begin VB.Label lblTip 
      AutoSize        =   -1  'True
      Caption         =   "正在进行划拨处理..."
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   180
      Left            =   330
      TabIndex        =   1
      Top             =   1080
      Width           =   1890
   End
   Begin VB.Line Line1 
      BorderColor     =   &H80000005&
      Index           =   1
      X1              =   330
      X2              =   4980
      Y1              =   960
      Y2              =   960
   End
   Begin VB.Line Line1 
      BorderColor     =   &H80000003&
      BorderWidth     =   2
      Index           =   0
      X1              =   330
      X2              =   4980
      Y1              =   960
      Y2              =   960
   End
End
Attribute VB_Name = "frmState"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function DrawEdge Lib "user32" (ByVal hdc As Long, qrc As RECT, ByVal edge As Long, ByVal grfFlags As Long) As Long
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Private Declare Function 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) As Long

Const BDR_RAISEDINNER = &H4
Const BF_TOP = &H2
Const BF_BOTTOM = &H8
Const BF_LEFT = &H1
Const BF_RIGHT = &H4
Const BF_RECT = (BF_LEFT Or BF_TOP Or BF_RIGHT Or BF_BOTTOM)

Private Sub Form_Load()
    On Error Resume Next
    SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 1
    CenterMe Me
    Animation1.Open App.Path + "\103.avi"
    Err.Number = 0
End Sub
'
'Private Sub Form_Paint()
'    Dim rc As RECT
'    With rc
'        .Left = 0
'        .Top = 0
'        .Bottom = Me.Height / Screen.TwipsPerPixelY
'        .Right = Me.Width / Screen.TwipsPerPixelX
'    End With
'    DrawEdge hdc, rc, BDR_RAISEDINNER, BF_RECT
'End Sub

Sub CenterMe(frm As Form)
    With frm
        .Left = (Screen.Width - .Width) / 2
        .Top = (Screen.Height - .Height) / 2
    End With
End Sub

Private Sub Timer1_Timer()
    Refresh
    lblTip.Refresh
End Sub