29 lines
1014 B
Plaintext
29 lines
1014 B
Plaintext
|
VERSION 5.00
|
|||
|
|
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} progressForm
|
|||
|
|
Caption = "Working..."
|
|||
|
|
ClientHeight = 975
|
|||
|
|
ClientLeft = 120
|
|||
|
|
ClientTop = 465
|
|||
|
|
ClientWidth = 3525
|
|||
|
|
OleObjectBlob = "ProgressForm.frx":0000
|
|||
|
|
StartUpPosition = 1 'Centrar en propietario
|
|||
|
|
End
|
|||
|
|
Attribute VB_Name = "ProgressForm"
|
|||
|
|
Attribute VB_GlobalNameSpace = False
|
|||
|
|
Attribute VB_Creatable = False
|
|||
|
|
Attribute VB_PredeclaredId = True
|
|||
|
|
Attribute VB_Exposed = False
|
|||
|
|
' C<>digo para ProgressForm
|
|||
|
|
Private Sub UserForm_Initialize()
|
|||
|
|
Me.StartUpPosition = 0
|
|||
|
|
Me.Left = Application.Left + (0.5 * Application.Width) - (0.5 * Me.Width)
|
|||
|
|
Me.Top = Application.Top + (0.5 * Application.Height) - (0.5 * Me.Height)
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Public Sub UpdateProgress(current As Long, total As Long)
|
|||
|
|
lblProgress.Caption = "Procesando fila " & current & " de " & total
|
|||
|
|
' Si est<73>s usando una ProgressBar real, descomenta la siguiente l<>nea:
|
|||
|
|
' ProgressBar1.Value = (current / total) * 100
|
|||
|
|
DoEvents
|
|||
|
|
End Sub
|