uso de progressbar

Question

Hola muy bueno dias

Alguien podria decirme como se usa un progress bar y proporcionarme un codigo de ejemplo por favor

Answer 1

hola

simpre es bueno consultar la documentacion del msdn

ProgressBar


Working with ProgressBar in VB.NET

saludos

---

Leandro Tuttini

Blog
Buenos Aires
Argentina

Answer 2

gracias Leandro, mira lo que pasa es que tengo este codigo...

Public Class Form1
Dim MyProgress As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ProgressBar1.Style = ProgressBarStyle.Marquee
ProgressBar2.Style = ProgressBarStyle.Continuous
ProgressBar2.Step = 1
Timer1.Enabled = True
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar2.Value = MyProgress
If MyProgress < 100 Then MyProgress = MyProgress + 1
Label1.Text = "File Upload = " & MyProgress & "%"
If MyProgress = 100 Then
    Label1.Text = "Complete"
    ProgressBar1.Visible = False
End If

End Sub
End Class

pero se ejecuta al cargar la form, y yo quiero saber como hacer que se ejecute al presionar una opcion de un toolstrip, ya intente poner el codigo que esta en el load en en evento click del toolstrip pero no hace nada.

qué puedo hacer en este caso?

Answer 3

hola

ten en cuenta que el evento del ToolStrip debes asignarselo al boton

fijate en este video
en el minuto 1:28 aprox alli veras que define un boton y al hacerle dobleclick va al evento de ese boton en particular

es alli donde deberias no poner todo el codigo sino solo el inicio del timer, solo eso, esta linea

Timer1.Enabled = True

en el evento del menu el resto puede quedar en el form_load ya que solo son propiedades que definen al pagress

otro tema cuando se ejecuta el evento Timer1_Tick
lo primero que deberias hacer es deterner el timer, ejecutar el codigo y al final volverlo a habilitar si hiciera falta

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

    Timer1.Enabled = False
   
    ProgressBar2.Value = MyProgress
   
    If MyProgress < 100 Then MyProgress = MyProgress + 1
    Label1.Text = "File Upload = " & MyProgress & "%"
    If MyProgress = 100 Then
        Label1.Text = "Complete"
        ProgressBar1.Visible = False
    End If

    Timer1.Enabled = True
   
End Sub


saludos

---

Leandro Tuttini

Blog
Buenos Aires
Argentina