form1.frm

平面网平差

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form1 
   Appearance      =   0  'Flat
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   7155
   ClientLeft      =   3150
   ClientTop       =   1950
   ClientWidth     =   9795
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "Form1.frx":1272
   ScaleHeight     =   7155
   ScaleWidth      =   9795
   ShowInTaskbar   =   0   'False
   Begin MSComctlLib.ProgressBar ProgressBar1 
      Height          =   200
      Left            =   0
      TabIndex        =   0
      Top             =   6960
      Width           =   9735
      _ExtentX        =   17171
      _ExtentY        =   344
      _Version        =   393216
      Appearance      =   1
      Scrolling       =   1
   End
   Begin VB.Timer Timer1 
      Interval        =   500
      Left            =   720
      Top             =   840
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "测量概算及平差程序1.1专业版    [制作:  赵忠海]"
      ForeColor       =   &H0000FFFF&
      Height          =   180
      Left            =   4800
      TabIndex        =   3
      Top             =   6000
      Width           =   4140
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "版权所有(c)     2006年1月-2012年1月"
      ForeColor       =   &H0000FFFF&
      Height          =   180
      Left            =   5760
      TabIndex        =   2
      Top             =   6360
      Width           =   3150
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   21.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FFFF&
      Height          =   435
      Left            =   3000
      TabIndex        =   1
      Top             =   2160
      Width           =   225
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Public ko As Boolean

'Private Sub Form_Load()

'Static cishu As Integer
'If ko = True Then
'Form3.Show
'Form1.Hide
'Else


'cishu = cishu + 1
'End If
'Timer1.Interval = 20000
'Timer1.Enabled = True
'Form1.Caption = "请注册"
'End Sub
'Private Sub Command1_Click()
'Timer1.Enabled = False
'Form3.Show
'Form1.Hide
' End Sub

'Private Sub Timer1_Timer()
'Timer1.Enabled = False
    '关闭定时器
'Timer1.Enabled = False
'Form2.Show
'Unload Form1
'End Sub
Private Sub Form_Load()
 'Screen.MousePointer = 11
  '  SetWindowPos Form1.hWnd, HWND_TOPMOST, _
   '     0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
    '鼠标呈沙漏状
    '显示封面
   ProgressBar1.Align = vbAlignBottom
   ProgressBar1.Visible = False
End Sub
Private Sub Form_Activate()
   Timer1.Interval = 500
    Timer1.Enabled = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
   
   Dim Counter As Integer
   Dim Workarea(2500) As String
   ProgressBar1.Min = LBound(Workarea)
   ProgressBar1.Max = UBound(Workarea)
   ProgressBar1.Visible = True

'设置进度的值为 Min。
   ProgressBar1.Value = ProgressBar1.Min
   Label1.Caption = "程序载入中........."
'在整个数组中循环。
   For Counter = LBound(Workarea) To UBound(Workarea) - 2000
      '设置数组中每项的初始值。
      Workarea(Counter) = "Initial value" & Counter
      ProgressBar1.Value = Counter
      
   Next Counter
   
   For Counter = UBound(Workarea) - 2000 To UBound(Workarea)
      '设置数组中每项的初始值。
      Workarea(Counter) = "Initial value" & Counter
      ProgressBar1.Value = Counter
      Label1.Caption = "程序载入成功........."
   Next Counter
   
   ProgressBar1.Visible = False
   ProgressBar1.Value = ProgressBar1.Min
   
End Sub

Private Sub Timer1_Timer()
    Form1.Timer1.Enabled = False
    '关闭定时器
    Unload Form1
    '卸载封面
   Form2.Show

    Screen.MousePointer = 0
    '鼠标恢复原样
End Sub