Carte du site
 Remerciements
 Netiquette
 Bugs
 Tables
 Requêtes
 Formulaires
 États (rapports)
 Modules
 APIs
 Chaînes
 Date/Time
 Général
 Ressources
 Téléchargeables

 Termes d'usage

General: Afficher une adresse IP en utilisant un Input Mask

Author(s)
Matthias Kaskel

Pour afficher une adresse 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 ******

© 1998-2001, Dev Ashish, All rights reserved. Optimized for Microsoft Internet Explorer