Visual Basic - VIDEOCLUB-PROGRESSBAR DE LA PRESENTACIÓN

Life is soft - evento anual de software empresarial
   
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder