Textbox - Formatage de saisie IP
Bonjour,
La saisie d'un adresse ip impose les prérequis suivants, je pense:
- 15 caractéres possibles max,
- 3 points max,
- inférieur à 255,
- le textbox commence par un chiffre,
- au moins 3 chiffres entre 2 points.
J'utilise le code suivant:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
If Asc(e.KeyChar) = 44 Then e.KeyChar = "."
If IsNumeric(e.KeyChar) And Len(TextBox2.Text) < 16 And Asc(e.KeyChar) > 47 And Asc(e.KeyChar) < 54 Or Asc(e.KeyChar) = 46 And Asc(e.KeyChar) = 46 And (CType(sender, TextBox).Text.IndexOf(".") > 0 Or CType(sender, TextBox).Text <> "") Or Asc(e.KeyChar) = System.Windows.Forms.Keys.Back Then
If Len(TextBox2.Text) > 2 Then e.KeyChar = "." 'cela provoque un blocage et seulement le point est possible
e.Handled = False
Else
e.Handled = True
End If
End Sub |
Mais je n'arrive pas à traduire :
- le nombre de points max à 3
- le nombre en 2 points =< à 255 ou 4 nombre =< à 255 entre les points
Sauriez vous faire ?
Cdlt,
Oulahoup