Ho scritto queste righe di codice e va tutto bene fino a quando fisso un valore di partenza conta stabilito a livello di codice, mentre se voglio impostarlo in esecuzione del programma incontro degli errori.
Quello che voglio fare è scrivere il valore di partenza del timer su una textbox. La label prende il valore della textbox e quando premo start il timer si avvia da quel valore.
codice:
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Timer1.Start()
Timer1.Interval = 1000
If Label12.Text = 10 Then
Label12.ForeColor = Color.Red
Label12.Text = Val(Label12.Text) - 1
ElseIf Label12.Text = 0 Then
Timer1.Enabled = False
MsgBox("Tempo scaduto!")
Else
Label12.Text = Val(Label12.Text) - 1
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Label12.ForeColor = Color.Black
If Timer1.Enabled = True Then
Timer1.Start()
Else
Label12.Text = 20
Timer1.Start()
End If
End Sub
End Class
Ho provato a scrivere cosi al posto di questa riga
Label12.Text = 20
ho sostituito con questa
label12.Text = form2.Textbox13.Text
ma mi da errore e non compila
ps. la textbox è nel secondo form