visual 5.0 progress bar

[ibiza]

alguien sabe el codigo para la progress bar?

[ghost]

lo primero que tengo para decirte es que el post esta mal ubicado, para eso tienes los subs foros de visual basic.net y visual basic, creo que tendrias que haberlo puesto alli.

ahora respondo tu duda:

una simple progress bar:

Código:

Private Sub Command1_Click()
Timer1_Timer
End Sub
 
Private Sub Timer1_Timer()
On Error GoTo erreur
ProgressBar1.Max = 100
ProgressBar1.Min = 0
ProgressBar1.Value = ProgressBar1.Value + 5
Label1.Caption = ProgressBar1.Value
erreur:
End Sub

una un poco mas compleja si queres para una web:

Código:

INET.openurl("foro.portalhacker.net")
timer.interval=50
timer.enabled
----------------------------------------------------------------------------------------------
'Acontecimiento generado por el CONTADOR DE TIEMPO
Private Sub TIMER_Timer()
'Administracion del progreso de la carga
PROGRESSBAR.Min = 0
PROGRESSBAR.Max = 12
PROGRESSBAR.Value = A
If A = 11 then AFFICHER "Imposible mostrarte la web! es fea!!! jaajaa"
If INET.StillExecuting = False Then PROGRESSBAR.Value = PROGRESSBAR.Max: TIMER.Enabled = False
End Sub
----------------------------------------------------------------------------------------------
'Acontecimiento generado por INET
Private Sub INET_StateChanged(ByVal State As Integer)
'Administracion del progreso de la carga
A = State
End Sub

salu2

[ibiza]

gracias por todo

[Sauron]

Te paso un codigo mas facil........
es asi........... ............


Dim f As Integer 'Bueno primero declaras la funcion

Private Sub Timer1_Timer()
If ProgressBar1.V alue = 100 Then
msgbox "Ya esta feo ya termine de cargar" 
Exit sub
end if
ProgressBar1.V alue = f + 1
f = f + 1
End Sub

[eM.]

Dim f As Integer 'Bueno primero declaras la funcion
Private Sub Timer1_Timer()
If ProgressBar1.V alue = 100 Then
msgbox "Ya esta feo ya termine de cargar"     
Exit sub
end if
ProgressBar1.V alue = f + 1
f = f + 1
End Sub

y el valor de "f"

ese codigo dice que si el progressbar llega al valor 100, te muestre el mensaje de "Ya esta feo ya termine de cargar", ahora tambien dice que el valor de la progress es de "f + 1" y paradojicament e el valor de "f" es ..... (f + 1)  oO ! la suma va a dar 2, ademas no tenes configurado el timer!

[safnat-panea]

Muy facil, colocas la barra y un timer y luego un label para que cuente y el boton verificar.Este ejemplo es para trabajar bajo usuario y contraseña.

private sub verificar()   (activamos el reloj)
timer1.enabled=true
end sub

Form (en el formulario le decimos q valor tendra el label al comenzar)
label1.caption=1
end sub

timer1 (colocamos dentro del timer las operaciones para la barra)
label1.caption=label1.caption+1        (para q el label cuente)
progressbar1.v alue=progressbar1.value+1    (para q avance el progressbar)
if progressbar1.v alue=99 then
timer1.enabled=false              (desactivamos el timer)
label1.caption=0
progressbar.va lue=0
if text1.text="usuario" and text2.text="contraseña" then
form2.show
form1.hide
else
msgbox "contraseña incorrecta"
end if
end if
end sub

Espero q te halla servido, cualquier consulta enviame un mensaje a oja@hotmail.com">marce_labandar oja@hotmail.com y agregame.