ProgresBar

Muchachos quien de ustedes me puede ayudar con un ejemplo
para programar el control ProgresBar cuando estoy
llenando un LixBox

Tomando el ejemplo que te paso Jorge Serrano:

ProgressBar1.Value = 0
ProgressBar1.Maximum = objDS.Tables("Ejemplo").Rows.Count

For Each Row In objDS.Tables("Ejemplo").Rows
ListBox1.Items.Add(Row(0))
ProgressBar1.Value += 1
Next

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo

La respuesta es perfecta, pero yo le agregaria por las
dudas un DO EVENTS, ya que no se sabe que tamaño tiene la
base y a lo mejor se queda trabada ahi y no podemos
seguir con otra cosa
Saludos

Muchachos quien de ustedes me puede ayudar con un

ejemplo

para programar el control ProgresBar cuando estoy
llenando un LixBox

Tomando el ejemplo que te paso Jorge Serrano:

ProgressBar1.Value = 0
ProgressBar1.Maximum = objDS.Tables("Ejemplo").Rows.Count

For Each Row In objDS.Tables("Ejemplo").Rows
ListBox1.Items.Add(Row(0))
ProgressBar1.Value += 1
Next

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo


.