1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
GestionActivationBouton()
End Sub
Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
GestionActivationBouton()
End Sub
Private Sub TextBox2_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox2.TextChanged
GestionActivationBouton()
End Sub
Private Sub GestionActivationBouton()
If Not TextBox1.Text = "" And Not TextBox2.Text = "" Then
Button1.Enabled = True
Else
Button1.Enabled = False
End If
End Sub |
Partager