Connaitre la colonne courante d'un textbox, cad le nombre de caractere entre le bord gauche et le curseur

Commenter

Contenu du snippet

Le titre dit tout. Mais si vous ne savez pas de quoi je parle regardez donc la capture. Inspiré du code de OrionLG

Source / Exemple : 


'Afficher le numero de colonne où est le curseur dans Text1

Dim NColonne As Integer
Dim i As Integer
NColonne = 1

'Le problème c'est qu'il fait tout le TextBox jusqu'au curseur et que 
'dès qu'il 'voit un passage à la ligne il revient à 0. Imaginez qu'il y en ait 
'200 et ce code est bon pour la poubelle

For i = 1 To Text1.SelStart 'Il part du début du textbox et va jusqu'au curseur
    NColonne = NColonne + 1 'à chaque caractère il fait plus 1 puisque 
    '1 caractère = 1 colonne
    If Mid(Text1.Text, i, 1) = Chr(10) Then NColonne = 1 'Mais si il passe à 
    'la ligne alors il revient à 0
Next

Conclusion :


Ben voila ce n'est pas grandiose mais ça pourrait vous aider. En fait je me suis inspiré du code de OrionLG qui détectait les lignes. Donc si vous trouvez un truc plus rapide faites-le moi savoir !

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (TheRedman)