Textbox - Formatage de saisie IP

**oulahoup** · 02/12/2007, 15h41

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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