frmsplash1.frm

一套35选7黄河风采（兰州福利彩票）完整版。有分析、选号、筛号功能

VERSION 5.00
Object = "{24365B29-A3B5-11D1-B8B0-444553540000}#1.0#0"; "XFXFORMSHAPER.OCX"
Begin VB.Form frmSplashtemp 
   Appearance      =   0  'Flat
   AutoRedraw      =   -1  'True
   BackColor       =   &H80000006&
   BorderStyle     =   0  'None
   ClientHeight    =   1515
   ClientLeft      =   210
   ClientTop       =   1365
   ClientWidth     =   1935
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   FontTransparent =   0   'False
   Icon            =   "frmSplash1.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form4charge"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Moveable        =   0   'False
   PaletteMode     =   1  'UseZOrder
   Picture         =   "frmSplash1.frx":000C
   ScaleHeight     =   101
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   129
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin xfxFormShaper.FormShaper FormShaper1 
      Left            =   480
      Top             =   960
      _ExtentX        =   1852
      _ExtentY        =   1296
   End
   Begin VB.Shape Shape3 
      Height          =   1215
      Left            =   1800
      Tag             =   "shaper"
      Top             =   120
      Width           =   135
   End
   Begin VB.Shape Shape2 
      Height          =   135
      Left            =   120
      Tag             =   "shaper"
      Top             =   1320
      Width           =   1815
   End
   Begin VB.Shape Shape1 
      Height          =   1335
      Left            =   0
      Tag             =   "shaper"
      Top             =   0
      Width           =   1815
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "请稍侯..."
      BeginProperty Font 
         Name            =   "华文行楷"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   375
      Left            =   120
      TabIndex        =   1
      Top             =   720
      Width           =   1575
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "正在装入数据"
      BeginProperty Font 
         Name            =   "华文行楷"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   255
      Left            =   120
      TabIndex        =   0
      Top             =   360
      Width           =   1575
   End
End
Attribute VB_Name = "frmSplashtemp"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit
'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



'Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
'Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'Dim dandle As Long

Private Sub Form_Load()

FormShaper1.ShapeIt "shaper"
'SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, &H1 Or &H2 Or &H10 Or &H40

'dandle = FindWindow(vbNullString, Me.Caption)
'Debug.Print dandle
'dandle = SetForegroundWindow(Me.hwnd)
Me.ZOrder 0

'If classform Then
'ccrpProgressBar1.Visible = True
'
'ccrpProgressBar1.Max = class1.Adodc1.Recordset.RecordCount
'Timer1.interval = 100
'End If
End Sub

Private Sub Timer1_Timer()
'DoEvents
'ccrpProgressBar1.Value = class1.Adodc1.Recordset.AbsolutePosition
End Sub