Forse ho parlato troppo presto...
Mi sapete spiegare perchè questi due codici funzionano quando sono da soli, mentre se li unisco si blocca tutto?
Per Luciano: Io non studio per accontentare te, ma per CERCARE di riuscire a fare quello che mi propongo...
Ora guardo l'indirizzo che mi hai passato.
Public Class Form1
Private Sub TextBox_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus, TextBox2.GotFocus, TextBox3.GotFocus, TextBox4.GotFocus
TextBox1.BorderStyle = BorderStyle.FixedSingle
TextBox2.BorderStyle = BorderStyle.FixedSingle
TextBox3.BorderStyle = BorderStyle.FixedSingle
TextBox4.BorderStyle = BorderStyle.FixedSingle
End Sub
End Class
FUNZIONA
Public Class Form1
Private Sub TextBox_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus, TextBox2.LostFocus, TextBox3.LostFocus, TextBox4.LostFocus
TextBox1.BorderStyle = BorderStyle.None
TextBox2.BorderStyle = BorderStyle.None
TextBox3.BorderStyle = BorderStyle.None
TextBox4.BorderStyle = BorderStyle.None
End Sub
End Class
FUNZIONA
Public Class Form1
Private Sub TextBox_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus, TextBox2.GotFocus, TextBox3.GotFocus, TextBox4.GotFocus
TextBox1.BorderStyle = BorderStyle.FixedSingle
TextBox2.BorderStyle = BorderStyle.FixedSingle
TextBox3.BorderStyle = BorderStyle.FixedSingle
TextBox4.BorderStyle = BorderStyle.FixedSingle
End Sub
Private Sub TextBox_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus, TextBox2.LostFocus, TextBox3.LostFocus, TextBox4.LostFocus
TextBox1.BorderStyle = BorderStyle.None
TextBox2.BorderStyle = BorderStyle.None
TextBox3.BorderStyle = BorderStyle.None
TextBox4.BorderStyle = BorderStyle.None
End Sub
End Class
NON FUNZIONA
Per Alessandro: Potrebbe essere colpa del sender?
Fa confusione quando seleziono un oggetto che ha sia il got che il lost focus.