frmsplash.frm

以前做项目时

VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmSplash 
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   810
   ClientLeft      =   255
   ClientTop       =   1410
   ClientWidth     =   4065
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   810
   ScaleWidth      =   4065
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   1290
      Top             =   480
   End
   Begin MSComCtl2.Animation aniFindFile 
      Height          =   555
      Left            =   180
      TabIndex        =   0
      Top             =   90
      Width           =   615
      _ExtentX        =   1085
      _ExtentY        =   979
      _Version        =   393216
      FullWidth       =   41
      FullHeight      =   37
   End
   Begin VB.Label Label1 
      Caption         =   "正在检查数据库连接,请稍后..."
      Height          =   180
      Left            =   1110
      TabIndex        =   1
      Top             =   300
      Width           =   2520
   End
End
Attribute VB_Name = "frmSplash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'发布日期：06/04/19
'描    述：
'网    站：
'e-mail  ：[e-mail]
'OICQ    ：[e-mail]
'作    者: 李绍龙
'****************************************************************************

Option Explicit

Dim j As Integer

Private Sub Form_Load()
    If Dir(App.Path & "\findfile.avi") = "" Then
    Else
        ' 打开查找动画
        aniFindFile.Open App.Path & "\findfile.avi"
        aniFindFile.Play
    End If
    j = 0
End Sub

Private Sub Timer1_Timer()
Dim i As Integer
Dim SQLDMOAppX As New SQLDMO.Application
Dim NameListX As SQLDMO.NameList
Set NameListX = SQLDMOAppX.ListAvailableSQLServers
    j = j + 1
    If j = 1 Then
        
        For i = 0 To NameListX.Count - 1
            frmMain.Combo1.AddItem NameListX.Item(i + 1)
        Next
        
    Unload Me
    frmMain.Show
    End If
End Sub