Originariamente inviata da
patel
io mi sono perso, posta un link al tuo progetto e vediamo di capirci qualcosa
FORM1
codice:
Public Class Form1
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim form2 As New Form2
form2.Show()
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
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 = Val(Label12.Text)
Timer1.Start()
End If
End Sub
End Class
FORM2
codice:
Public Class Form2
Public Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Form1.Label1.Text = TextBox1.Text
Form1.Label62.Text = TextBox2.Text
Form1.Label92.Text = TextBox4.Text
Form1.Label152.Text = TextBox3.Text
Form1.Label182.Text = TextBox8.Text
Form1.Label122.Text = TextBox7.Text
Form1.Label32.Text = TextBox6.Text
Form1.Label47.Text = TextBox5.Text
Form1.Label77.Text = TextBox12.Text
Form1.Label137.Text = TextBox11.Text
Form1.Label167.Text = TextBox10.Text
Form1.Label107.Text = TextBox9.Text
Form1.Label12.Text = Val(ComboBox1.Text)
End Sub
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.ComboBox1.Items.Add("10 secondi")
Me.ComboBox1.Items.Add("15 secondi")
Me.ComboBox1.Items.Add("20 secondi")
Me.ComboBox1.Items.Add("25 secondi")
Me.ComboBox1.Items.Add("30 secondi")
Me.ComboBox1.Items.Add("35 secondi")
Me.ComboBox1.Items.Add("40 secondi")
Me.ComboBox1.Items.Add("45 secondi")
Me.ComboBox1.Items.Add("50 secondi")
Me.ComboBox1.Items.Add("55 secondi")
Me.ComboBox1.Items.Add("60 secondi")
End Sub
End Class
Questo è il codice scritto finora.
Funziona tutto.
Ma vorrei che quando clicco il button1 del form 2 si salvino le impostazioni e restino memorizzate nel form1. Per le label avviene. Per la combobox si resetta e rimane campo vuoto dopo che avvio per la seconda volta il timer con il button1 del form1, quindi il timer non parte. Per farlo rifunzionare devo riaprire il form2 e reimpostare la combobox.
Spero di essermi spiegato