PROGRESBAR COM TIMER
Galera, meu objetivo é que assim que a pessoa aperte o botão start (button1), a cada 1 segundo add um no valor da Progresbar, se alguem puder me auxiliar.
Sei que é bem simples mas não achei o comando para juntar o Timer1 com Progressbar e ativar quando só quando o start for dado click.
Sei que é bem simples mas não achei o comando para juntar o Timer1 com Progressbar e ativar quando só quando o start for dado click.
O sistema fica mais ou menos assim:
Apertou start
Timer inicia
a cada 1 segundo adiciona 1 no progressbar
se Timer for igual a N
Pare o timer.
N pode ser qualquer valor, em questão do progressbar, ele tem que ir proporcional de acordo com a variavel.
A variavel isso vai ser determinado pelo usuario.
Apertou start
Timer inicia
a cada 1 segundo adiciona 1 no progressbar
se Timer for igual a N
Pare o timer.
N pode ser qualquer valor, em questão do progressbar, ele tem que ir proporcional de acordo com a variavel.
A variavel isso vai ser determinado pelo usuario.
Private Contador As Integer
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If Contador >= 7 Then
Timer1.Enabled = False
[ô]o q acontece qnd acaba o tempo
End If
Contador += 1
End Sub
veja q aki com 7 passadas no timer termina, ai vai o tempo q vc precisa, e vc mudando o interval do timer muda a frequencia do tick
q burro, faltou o else pra progressbar1.value=contador
ai precisaria casar o max do progress bar com o valor final do contador
ai precisaria casar o max do progress bar com o valor final do contador
Dim contador2 As Integer = 0
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Timer1.Interval = 100
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
contador2 += 1
If contador2 > 100 Then
Timer1.Enabled = False
Else
ProgressBar1.Value = contador2
End If
End Sub
Tópico encerrado , respostas não são mais permitidas