IPTEXBOX FAÇON WINDOWS

'MODIFIER
'Titre : controleur IP semblable windows
'Auteur : GARENNE Geoffrey
'Mail : g.garenne@gmail.com

Public Class IpTextBox
    'Variable de récupération de l'ip
    Public val As String
    'propriété Text récupère ou assigne la valeur
    Public Overrides Property Text() As String
        Get
            Return val
        End Get
        Set(ByVal value As String)
            val = value
            'Insertion de l'ip dans le controleur
            If val <> "" Then
                ELEM1.Text = val.Split(".").GetValue(0)
                ELEM2.Text = val.Split(".").GetValue(1)
                ELEM3.Text = val.Split(".").GetValue(2)
                ELEM4.Text = val.Split(".").GetValue(3)
            End If
        End Set
    End Property
    'Si vous désirez avoir le focus
    'avec une selection complete du texte
    'Décommenté la ligne en dessous et celle
    'juste en dessous de focus
    'Private Sub ELEM_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles ELEM1.GotFocus, ELEM2.GotFocus, ELEM3.GotFocus, ELEM4.GotFocus
    '    Select Case sender.name
    '        Case "ELEM1"
    '            ELEM1.SelectAll()
    '        Case "ELEM2"
    '            ELEM2.SelectAll()
    '        Case "ELEM3"
    '            ELEM3.SelectAll()
    '        Case "ELEM4"
    '            ELEM4.SelectAll()
    '    End Select
    'End Sub
    Private Sub ELEM_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ELEM1.TextChanged, ELEM2.TextChanged, ELEM3.TextChanged, ELEM4.TextChanged
        'Test sur le champ ELEM1 (Numérique, longueur, Valeur <= 255)
        If IsNumeric(sender.Text) = True Then
            If sender.Text.Length = 3 Then
                If sender.Text > 255 Then
                    sender.Text = 255
                End If
                If sender.name = "ELEM1" Then
                    ELEM2.Focus()
                    'ELEM2.SelectAll()
                End If
                Select Case sender.name
                    Case "ELEM1"
                        ELEM2.Focus()
                        'ELEM2.SelectAll()
                    Case "ELEM2"
                        ELEM3.Focus()
                        'ELEM3.SelectAll()
                    Case "ELEM3"
                        ELEM4.Focus()
                        'ELEM4.SelectAll()
                    Case "ELEM4"
                        val = ELEM1.Text & "." & ELEM2.Text & "." & ELEM3.Text & "." & ELEM4.Text
                End Select
            End If
        Else
            Select Case sender.name
                Case "ELEM1"
                    ELEM1.Text = Nothing
                Case "ELEM2"
                    ELEM2.Text = Nothing
                Case "ELEM3"
                    ELEM3.Text = Nothing
                Case "ELEM4"
                    ELEM4.Text = Nothing
            End Select
        End If
    End Sub

    Private Sub IpTextBox_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Leave
        'Vérification et enregistrement de l'ip dans la variable val
        'le rajout de message d'erreur est à prévoir
        'je ne l'ai pas fait car je n'en est pas trouvé l'utilité
        If ELEM1.Text = "" Or ELEM2.Text = "" Or ELEM3.Text = "" Or ELEM4.Text = "" Then
            val = Nothing
        Else
            val = ELEM1.Text & "." & ELEM2.Text & "." & ELEM3.Text & "." & ELEM4.Text
        End If
    End Sub

    Private Sub IpTextBox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Définition de la grandeur max des elements
        ELEM1.MaxLength = 3
        ELEM2.MaxLength = 3
        ELEM3.MaxLength = 3
        ELEM4.MaxLength = 3
    End Sub
    Private Sub ELEM_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ELEM1.KeyDown, ELEM2.KeyDown, ELEM3.KeyDown, ELEM4.KeyDown
        Select Case sender.name
            Case "ELEM1"
                'Gestion des pression sur les touches (droite)
                If e.KeyCode = Keys.Right And ELEM1.SelectionStart = ELEM1.TextLength Then
                    ELEM2.Focus()
                End If
            Case "ELEM2"
                'Gestion des pression sur les touches (gauche, droite, backspace)
                If e.KeyCode = Keys.Right And ELEM2.SelectionStart = ELEM2.TextLength Then
                    ELEM3.Focus()
                End If
                If e.KeyCode = Keys.Left Or e.KeyCode = Keys.Back And ELEM2.SelectionStart = 0 Then
                    ELEM1.Focus()
                End If
            Case "ELEM3"
                'Gestion des pression sur les touches (gauche, droite, backspace)
                If e.KeyCode = Keys.Right And ELEM3.SelectionStart = ELEM3.TextLength Then
                    ELEM4.Focus()
                End If
                If e.KeyCode = Keys.Left Or e.KeyCode = Keys.Back And ELEM3.SelectionStart = 0 Then
                    ELEM2.Focus()
                End If
            Case "ELEM4"
                'Gestion des pression sur les touches (gauche, backspace)
                If e.KeyCode = Keys.Left Or e.KeyCode = Keys.Back And ELEM4.SelectionStart = 0 Then
                    ELEM3.Focus()
                End If
        End Select
    End Sub
End Class

Télécharger le zip

13 août 2008 16:30:27 :

Code raccourci et simplifié