Hai ragione, ma continuo a lavorarci su per cercare l'errore e provare alternative.
Ritorno al codice originale e ti metto a disposizione sia il codice per il button1 sul form1, sia il codice sul form2 (con 2 bottoni e 27 textbox)
'form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Form2.ShowDialog()
End Sub
'form2
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Dispose()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim valore1 As Double = 0
Dim valore2 As Double = 0
If TextBox1.Text <> "" Then
valore1 = CDbl(TextBox1.Text)
End If
If TextBox2.Text <> "" Then
valore2 = CDbl(Textbox2.text)
End If
If Math.Abs(valore1 - valore2) > 30 Then
Dim messaggio As String = "Valori fortemente distanti" & vbCrLf & "Confermare?"
Dim titolo As String = "ANOMALIA"
Dim bottone As MessageBoxButtons = MessageBoxButtons.YesNo
Dim icona As MessageBoxIcon = MessageBoxIcon.Information
Dim messaggiovariazione as dialogresult = MessageBox.Show(messaggio, titolo, bottone, icona)
If messaggiovariazione = Windows.Forms.DialogResult.Yes Then
Call Salvataggio()
Me.Close()
End If
If messaggiovariazione = Windows.Forms.DialogResult.No Then
TextBox1.Focus()
End If
Else
Call Salvataggio()
Me.Close()
End If
End Sub
Private Function Salvataggio()
Me.Cursor = Cursors.WaitCursor
Dim i As Integer
Dim percorso As String = percorso
Dim nomefile As System.IO.StreamWriter = My.Computer.FileSystem.OpenTextFileWriter(percorso, False)
For i = 1 To 27
nomefile.WriteLine(Me.Controls("Textbox" & i).Text)
Next
nomefile.Close()
Me.Cursor = Cursors.Default
MsgBox("SALVATAGGIO EFFETTUATO", vbExclamation + vbOKOnly, "FINE")
End Function
Confermo che scritto così, quando clicco su NO, mi chiude il form2 e mi fa tornare al form1.
ed incredibilmente, ho creato un nuovo progetto partendo da capo e se faccio copia incolla di questo codice funziona!! Quindi mi vien da pensare che ho involontariamente modificato qualche proprietà del form…