--- Soumis par Matthias Kaskel---

Afficher une addresse IP en utilisant un Input Mask.

Pour afficher une addresse IP dans une boîte texte, on peut utiliser un Input Mask et quelques lignes de code dans les procédures événementielles  KeyDown de KeyUp.

Input Mask:  099\.099\.099\.099;0;_

'   ***** Code Start ******
Private Const vbKeyPoint As Integer = 190

Private Sub Text0_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyPoint Or KeyCode = vbKeySpace Then
        If Text0.SelLength = 1 And Text0.SelStart < 12 Then
            Text0.SelStart = ((Text0.SelStart \ 4) + 1) * 4
        End If
        KeyCode = 0
    End If
End Sub

Private Sub Text0_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyPoint Or KeyCode = vbKeySpace Then
        KeyCode = 0
    End If
End Sub
'   ***** Code End ******