Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick If Label10.Text > 0 Then ' se a quedado en 58 Label1.Text - = 1 End If If Label1.Text = 0 Then Label2.Text = 59 label1.text = 59 End If Timer2.Start()
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick Label5.Text -= 1 End Sub
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick If Label5.Text > 0 Then Label5.Text -= 1 End If
pbGuardar.Maximum = 60 pbGuardar.Minimum = 0 pbGuardar.Value = 0 pbGuardar.Anchor = AnchorStyles.Left Or AnchorStyles.Bottom Or AnchorStyles.Right'Establece a 1 segundo el Timer y lo activa tmrGuardar.Interval = 1000 tmrGuardar.Enabled = True
'Incrementa el Contador de la barra de Progreso If (pbGuardar.Value = 60) Then pbGuardar.Value = 0'Este es una parte donde tu implementas If (StrFileName <> vbNullString And rbtGuardar.Checked) Then 'Guarda el Archivo rtbEditor.SaveFile(StrFileName, RichTextBoxStreamType.PlainText) End If Else pbGuardar.Value += 1 End If
'Colocamos en 0 el ProgressBar pbGuardar.Value = 0 'Deshabilitamos timer tmrGuardar.Enabled = False
'Colocamos en 0 el ProgressBar pbGuardar.Value = 0 'Habilitamos timer tmrGuardar.Enabled = True