VIDEOCLUB-PROGRESSBAR DE LA PRESENTACIÓN
Publicado por OLIVIAS (1 intervención) el 30/05/2010 19:24:33
Form1_Shown
For x = 0 To 100000
ProgressBar1.Value = x
My.Application.DoEvents()
If x > ProgressBar1.Maximum / 2 Then
L.Text = " ESPERE..."
Else
L.Text = "CARGANDO ..."
End If
If x = ProgressBar1.Maximum Then
FControl.Show()
Me.Hide()
End If
Next
For x = 0 To 100000
ProgressBar1.Value = x
My.Application.DoEvents()
If x > ProgressBar1.Maximum / 2 Then
L.Text = " ESPERE..."
Else
L.Text = "CARGANDO ..."
End If
If x = ProgressBar1.Maximum Then
FControl.Show()
Me.Hide()
End If
Next
Valora esta pregunta
0