|  |||
|      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:  |