| |||
Cita:
Iniciado por alex the pc boy tengo la duda de como utilizar el progresivebar para cargar una pista de audio
Código:
lo suyo es utilizarla en un proceso largo que de vueltas de bucle, y por cada vuelta de bucle ir incrementando el value de la progressbar Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub AumentaBarra(cantidad As Integer) ProgressBar1.Value = cantidad End Sub Private Sub Command1_Click() AumentaBarra (10) Sleep 1000 AumentaBarra (20) Sleep 1000 AumentaBarra (30) Sleep 1000 AumentaBarra (40) Sleep 1000 AumentaBarra (50) Sleep 1000 AumentaBarra (60) Sleep 1000 AumentaBarra (70) Sleep 1000 AumentaBarra (80) Sleep 1000 AumentaBarra (90) Sleep 1000 AumentaBarra (100) Sleep 1000 End End Sub
__________________ Lo importante no es saber, sino tener el teléfono del que sabe :risa: |
| |||
Cita:
Iniciado por alex the pc boy tengo la duda de como utilizar el progresivebar para cargar una pista de audio
Código:
lo suyo es utilizarla en un proceso largo que de vueltas de bucle, y por cada vuelta de bucle ir incrementando el value de la progressbar Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub AumentaBarra(cantidad As Integer) ProgressBar1.Value = cantidad End Sub Private Sub Command1_Click() AumentaBarra (10) Sleep 1000 AumentaBarra (20) Sleep 1000 AumentaBarra (30) Sleep 1000 AumentaBarra (40) Sleep 1000 AumentaBarra (50) Sleep 1000 AumentaBarra (60) Sleep 1000 AumentaBarra (70) Sleep 1000 AumentaBarra (80) Sleep 1000 AumentaBarra (90) Sleep 1000 AumentaBarra (100) Sleep 1000 End End Sub
__________________ Lo importante no es saber, sino tener el teléfono del que sabe :risa: |