SELECTIONNER TOUT LE TEXT D'UN CONTROL

Public Sub SelectionTout(MonControl As Control)
    With MonControl
        .SetFocus
        .SelStart = 0
        .SelLength = Len(MonControl)
    End With
End Sub

' Pour Utiliser cette fonction, utilisez ce code dans un Bouton_Click par exemple :

Call SelectionTout(Text1)

Télécharger le zip

• FAIRE UN PING (ICMP) EN VB 2005 (LE PLUS SIMPLEMENT DU MONDE)
• IMPRIMER LE CONTENU D'UN RICHTEXTBOX
• TESTEUR DE REGEX (REGULAR EXPRESSIONS)
• FORCER LE REBOOT SOUS WINDOWS NT OU WINDOWS 2000 (REDÉMARRAGE FORCÉ)
• COMPTER LES MOTS DANS UNE CHAINE DE CARACTÈRE

• DÉTECTER L'APPARIATION DES SCROLLBARS DANS UN SCROLLABLECONTROL ET TRANSFORMATION EN SLIDER
• AJOUTER N'IMPORTE QUEL RACCOURCI À VOS MENUS (HOOK CLAVIER)
• CLIQUER SUR UN LIEN JAVASCRIPT / CONTRÔLE DE INTERNET EXPLORER / REMPLIR UN FORMULAIRE AUTOMATIQUEMENT / ROBOT
• USERFORM PLEIN ÉCRAN SOUS EXCEL VBA
• LIMITER LE NOMBRE DE LIGNES DANS UN TEXTBOX

• MANIPULER LES CHAÎNES ET TRIER UNE LISTE DE NOMS
• LIMITER LE NOMBRE DE LIGNES DANS UN TEXTBOX
• COMMANDE SELSTART
• RECHERCHER ET SÉLECTIONNER UN TEXTE DANS UNE TEXTBOX
• SELECTIONNER TOUT LE TEXTE D'UN TEXTEBOX LORSQUE LE TEXTBOX RECOIT LE FOCUS